Excel VBA質問箱 IV

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

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


6100 / 76734 ←次へ | 前へ→

【76236】Re:フォルダーからファイルをコピーする
回答  ペンネーム船長  - 14/10/19(日) 14:02 -

引用なし
パスワード
   変数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
6 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 お礼[未読]

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