|
以下のコードでエラーが出ます。
アドバイスをお願いします。
Private Sub CommandButton1_Click()
Dim fso As Object 'ファイルシステムオブジェクト
Dim fileObj As Object 'ファイルオブジェクト
Dim K As Range
Set K = Range("A2") ’管理番号
'メインオブジェクトの生成
Set fso = CreateObject("Scripting.FileSystemObject")
'ファイルオブジェクト取得
'Set fileObj = fso.GetFile("C:\Users\○●\Desktop\test元\*部品 K & *.xls") '←NGナゼ?
'ファイルのコピー(上書き)
fileObj.Copy "C:\Users\○●\Desktop\test先\"
'オブジェクト変数のクリア
Set fso = Nothing
Set fileObj = Nothing
End Sub
注)部品とKとの間には半角スペースがあります
下記もNGでした
Set fileObj = fso.GetFile("C:\Users\○●\Desktop\test元\ & * & "鉄骨" & " " & K & * & .xls")
|
|