Excel VBA質問箱 IV

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

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


6106 / 76734 ←次へ | 前へ→

【76230】Re:フォルダーからファイルをコピーする
回答  ペンネーム船長  - 14/10/18(土) 20:53 -

引用なし
パスワード
   下記もNGでした。
どこが間違っているのでしょうか。

Private Sub CommandButton1_Click()
  Dim fso     As Object  'ファイルシステムオブジェクト
  Dim strSrc   As String  'コピー元
  Dim strDst   As String  'コピー先
  Dim K As Range
          
  Set K = Range("A2")
  'メインオブジェクトの生成
  Set fso = CreateObject("Scripting.FileSystemObject")
          
  'コピー元ファイルパスの設定
  strSrc = "C:\Users\○●\Desktop\test元\*部品 K*.xls"
  
  'コピー先フォルダパスの設定
  strDst = "C:\Users\○●\Desktop\test先\"
          
  'ファイルのコピー(上書き)
  fso.CopyFile strSrc, strDst
          
  'オブジェクト変数のクリア
  Set fso = Nothing
End Sub

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 お礼[未読]

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