Q&A
「ファイル名を全て取得する等の以下のように分かっております。」
ループ内でDir（）が必要なのは分かってますか？
C:\Users\mike\Desktop\a_project
に以下のファイルが存在しております。
hoge.pdf
fuga.pdf
bar.pdf
これを
C:\Users\mike\Desktop\集計\summary
で同じ名前で全ての（3つ）のファイルをコピペするvbaを考えております。
ファイル名を全て取得する等の以下のように分かっております。
vba
1 Dim strPath As String 2 Dim strFilename As String 3 4 strPath = "C:\Users\mike\Desktop\a_project" 5 strFilename = Dir(strPath & cnsDIR, vbNormal) 6 7 Do While strFilename <> "" 8'実行する処理 9 Loop
そこで、
全てのファイルをopenして保存先を改めて指定するのではなく、単純にコピペをすることは
vba上可能なのでしょうか、google先生で調べても意外とでてこなかったため、
アドバイスを頂ければ幸いです。
宜しくお願い申し上げます。
回答3件
0
投稿2018/11/01 06:50
総合スコア678
0
FileCopyステートメントをご利用ください。
http://www.moug.net/tech/exvba/0060075.html
投稿2018/11/01 06:41
総合スコア16998
0
ベストアンサー
FileCopyステートメントというのがあるのでそちらを使えばよいかと。
投稿2018/11/01 06:39
総合スコア80850
いつもご回答有難うございます。
FileCopy ステートメントで無事解決しました！
解決「致します」と「しました」が混じってますが実際はどうなのでしょうか・・。
解決したのであれば最終的にどうなったかなどコメントいただければと。
日本語の誤り、失礼致しました。解決したコードは以下のとおりです。
Dim fso As Object
Dim strSrc As String
Dim strDst As String
Set fso = CreateObject("Scripting.FileSystemObject")
strSrc = "C:\pathfrom"
strDst = "C:\pathto"
fso.CopyFile strSrc, strDst
Set fso = Nothing
すみません、FileCopy ステートメントではなく、結果的にFileSystemObjectのCopyFileメソッドを使用して解決しましたというのが適切でしょうか？vbaに明るくなく、大変申し訳ないのですが、FileCopyステートメントで調べてこちらが出てきました。
利用するオブジェクトによって使う機能も違ってきます。
目的地に向かうのに幾つも手段があるのと同じで、
何かを実現する際に、実現方法は1つではないので、実際に要件を満たせているのであれば問題ないと思います。
解決につながったようで何よりです。
ただ、私もtorisanさんが仰っているように「探し方」を覚えたほうが
自身で解決できるようになるので、「要件」から「適切なキーワードを抽出」できるように
考えてみてください。
あなたの回答
tips
プレビュー
