Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6110 / 76735 ←次へ | 前へ→

【76227】フォルダーからファイルをコピーする
質問  ペンネーム船長  - 14/10/18(土) 12:35 -

引用なし
パスワード
   以下のコードでエラーが出ます。
アドバイスをお願いします。

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")

0 hits

【76227】フォルダーからファイルをコピーする ペンネーム船長 14/10/18(土) 12:35 質問
【76228】Re:フォルダーからファイルをコピーする γ 14/10/18(土) 13:18 発言
【76229】Re:フォルダーからファイルをコピーする γ 14/10/18(土) 13:45 発言
【76230】Re:フォルダーからファイルをコピーする ペンネーム船長 14/10/18(土) 20:53 回答
【76231】Re:フォルダーからファイルをコピーする γ 14/10/18(土) 21:09 発言
【76232】Re:フォルダーからファイルをコピーする ペンネーム船長 14/10/18(土) 23:20 回答
【76233】Re:フォルダーからファイルをコピーする γ 14/10/18(土) 23:48 発言
【76234】Re:フォルダーからファイルをコピーする γ 14/10/19(日) 5:51 発言
【76236】Re:フォルダーからファイルをコピーする ペンネーム船長 14/10/19(日) 14:02 回答[未読]
【76237】Re:フォルダーからファイルをコピーする γ 14/10/19(日) 14:24 発言[未読]
【76238】Re:フォルダーからファイルをコピーする ペンネーム船長 14/10/19(日) 17:37 お礼[未読]

6110 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free