エクセルからファイルを移動させる方法

質問

あるAというフォルダに以下のようなファイルが12個あります(ファイル数は変動します)。
フォルダ名：A
0655.ktx
0755.ktx
0900.ktx
0957.ktx
1054.ktx
‥‥
1659.ktx
1758.ktx

これをエクセルで読み込みます。
その際、bシートにファイル名が読み込まれ、cシートに上りor下りが自動で分かります(以下参照)。
ｂシート　　cシート
0655.ktx　上り
0755.ktx　下り
0900.ktx　下り
0957.ktx　上り
1054.ktx　下り
‥‥
1659.ktx 下り
1758.ktx　上り

ここでフォルダ名：Aにあるファイルを別の所にあるフォルダに上り、下りにわけて保存したいのです(以下参照)。どういうふうにやっていけばいいでしょうか？どなたかよろしくお願い致します。

結果
フォルダ名：上り
0655.ktx
0957.ktx
‥‥
1758.ktx　

フォルダ名：下り
0755.ktx　
0900.ktx　
1054.ktx　
‥‥
1659.ktx

回答No.2

noah7150

> これをエクセルで読み込みます。
> その際、bシートにファイル名が読み込まれ、cシートに上りor下りが自動で分かります(以下参照)。
> ｂシート　　cシート
> 0655.ktx　上り

さっぱり説明が理解できません
どのようにしてファイル名を読むの？
ｃシートに上りor下りが自動で？どうやって？
この説明で何がしたいか理解できる人は居ませんよ

単純にファイルの移動なら

dim fs As Object

Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFile "C:\A\0655.ktx", "C:\上り\0655.ktx"

fs.MoveFile "C:\A\0755.ktx", "C:\下り\0755.ktx"
Set fs = Nothing

でどうぞ

補足

noah7150さん、ご回答ありがとうございます。
説明不足ですみません。
エクセルに読み込む際に、マクロを使用してファイル名を読み込んでいます。
上りor下りを表示するのも同様にマクロでやっています。

回答No.1

noname#66624

プローブデータ変換ツールでCSV型式に変換してからじゃないとKTX型式はExcelでは直接読めない
まずはプローブデータ変換ツールでCSV型式に変換してくださいね
http://www.datawest.co.jp/henkan.html

補足

hanukeさん
ご回答ありがとうございます。
KTXファイルをCSVファイルへ変換することはできています。