VBA初心者です．文字を抽出しファイルを移動したい

質問

セルA1に表示された文字(例,CK001など)の右から3番目までの文字を拾って，その文字を含むファイルをAからBに移動したいのですが，上手く作動しませんでした．パス内に変数は使用できないのか(ここではZ）「ファイルが見つかりません」となってしまいます．良い方法をご教授いただければ幸いです．下記は自分が作成したプログラムです．

Sub Sample()
Dim fso As Object

Set fso = CreateObject("scripting.filesystemobject")
Dim A As String
Dim B As String
Dim Z As Variant

Z = Right(Range("A1"), 3)
A = "C:\Users\abc\Documents\test\*Z*"
B = "C:\Users\abc\Desktop\1\2\"

fso.MoveFile A, B

End Sub

回答No.1

kkkkkm · ベストアンサー

A = "C:\Users\abc\Documents\test\*Z*"
を
A = "C:\Users\abc\Documents\test\*" & Z & "*"
にして試してみてください。

回答No.5

kkkkkm

No.4は私のNo.1と全く同じ回答をしていますが、何の意味があるのかナゾですね。

回答No.4

chie65536（@chie65535）

A = "C:\Users\abc\Documents\test\*Z*"
を
A = "C:\Users\abc\Documents\test\*" & Z & "*"
にする。

回答No.3

imogasi

>ファイルを移動したい
（１）別のフォルダに移動したいのか？
（２）ファイル名（名前）を変えたいのか？
（３）コピーをして、そちらの名前を変えたい。
どれかを、質問表題に、はっきり明確に書くこと。
ファイルの処置については、VBA一族だが、VBSctoptというのが別にある。
初心者は初めからこの課題に首を突っ込まないことを勧める（手操作でやれ）が、仕事や個人ニーズでも、早くから、こちらが必要になることがある。
コマンド、VBAでもできるケースがあるが、ファイル関係はBSctopt　を使うに統一してはどうか？
だからVBSctoptの本を買って読むことを勧める。
ーーー
変数の値を文字列の一部に組み込むとき
新文字列＝文字列前半文字列　& 変数名 &　文字列後半文字列-　’ 両文字列は" "　で囲む
とするべきなのは常識だろう。変数名をそのまま文字列”　”の一部に入れてはならない。

回答No.2

kkkkkm

No1の補足です。

Zが"で囲まれると変数ではなくZという文字列になってしまいますからNo1のように"の外に出します。

Debug.Print "C:\Users\abc\Documents\test\*Z*"
Debug.Print "C:\Users\abc\Documents\test\*" & Z & "*"

で結果がイミディエイトウィンドウで確認できます。

お礼

出来ました。ありがとうございます。