|
変数KをStringに設定し、下記のところを書き直すと、メッセージボックスでの確認では,test元にあるのエクセル名と一致したのですが,やはり、実行時エラー53 ファイルが見つかりませんとなります。後少しってところまで前進してるのでしょうか。
Private Sub CommandButton1_Click()
Dim fso As Object 'ファイルシステムオブジェクト
Dim strSrc As String 'コピー元
Dim strDst As String 'コピー先
Dim K As String
K = Range("A2")
'メインオブジェクトの生成
Set fso = CreateObject("Scripting.FileSystemObject")
'コピー元ファイルパスの設定
strSrc = "C:\Users\○●\Desktop\test元\*部品 " & K & " *.xls" '←ここ を書き直しました
MsgBox strSrc
'コピー先フォルダパスの設定
strDst = "C:\Users\○●\Desktop\test先\"
'ファイルのコピー(上書き)
'Debug.Print fso.CopyFile; strSrc, strDst ’←デバグプリントをやってみ ましたが、引数の数が一致しませんと出ました。実行時エラー450
fso.CopyFile strSrc, strDst
'オブジェクト変数のクリア
Set fso = Nothing
End Sub
|
|