![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_08.png?8acaa2e)
VBA初心者です。関連する質問はみたのですが、組み合わせが他と違い
うまくできませんでした。
EXCELのマクロを使って、それぞれ格納場所が異なる2つのエクセルファイル(格納元D:\AAA\123A.xlsと格納元D:\BBB\123B.xls)をコピーして指定のフォルダ(格納先D:\ZZZ\)内へ2つファイルを保存したいのですが・・
Private Const cnsSrc = "D:\AAA\123A.xls"
Private Const cnsDst = "D:\ZZZ\123A.xls"
Sub COPY_Func()
' ファイルをコピー
FileCopy cnsSrc, cnsDst
End Sub
まで考えたんですが
複数のファイルまでコピーさせることができませんでした。
また、それぞれのフォルダ内には○○○A.xlsと○○○B.xlsが複数あるため
コピーするファイル名は選択させたく、sheet1のA1セルに入力された"123"を
みて123A.xls123B.xlsをコピーさせたいのですが、可能でしょうか?
宜しくお願い致します。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
VBAからなんだが、FSOを使うのがよかろう。
Sub test01()
Const cnsSOUR1 = "C:\Documents and Settings\XXX\My Documents\01化B.xls" ' 元ファイル
Const cnsSOUR2 = "C:\Documents and Settings\XXX\デスクトップ\新しいフォルダ\関数.xls"
Const cnsDEST = "C:\Documents and Settings\XXX\デスクトップ\" ' 先フォルダ(右端\必須)
'---
Dim objFSO As Object ' FSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
' FSOによるファイルコピー
objFSO.CopyFile cnsSOUR1, cnsDEST, True
objFSO.CopyFile cnsSOUR2, cnsDEST, True
Set objFSO = Nothing
End Sub
これでデスクトップへ別のフォルダからコピーしたので、質問の場合も定数cnsSOUR1,
cnsSOUR2,
cnsDEST
を適当に変えると、出来るだろう
ーー
>。関連する質問はみたのですが
Googleででも「ファイルのコピー VBA」で照会すれば、沢山のコード例が出るよ。
>組み合わせが他と違いうまくできませんでした。
少しぐらい修正出来る力がないと、質問しても無駄。
内容にも書かせて頂きましたがVBA初心者です。
修正できる力がなくて質問させて頂きました。
無駄かも知れませんが、仕事の都合上やらなければいけませんので
力を借りたく投稿させていただきました。
回答頂いた内容を自分のマクロに置き換えていろいろやってみましたが
なかなかうまくいきませんでした。
完成できたらご報告したいと思います。
ありがとうございました。
No.1
- 回答日時:
こんな感じですかね。
Option Explicit
' ファイルパスのパターン
Private Const cnsSrcA = "D:\AAA\%num%A.xls"
Private Const cnsSrcB = "D:\BBB\%num%B.xls"
Private Const cnsDstA = "D:\ZZZ\%num%A.xls"
Private Const cnsDstB = "D:\ZZZ\%num%B.xls"
Sub COPY_Func()
Dim strSrcA As String, strSrcB As String
Dim strDstA As String, strDstB As String
Dim strNum As String
strNum = Sheets(1).Range("A1").Value
' パターンの番号部分を置き換える
strSrcA = Replace(cnsSrcA, "%num%", strNum)
strSrcB = Replace(cnsSrcB, "%num%", strNum)
strDstA = Replace(cnsDstA, "%num%", strNum)
strDstB = Replace(cnsDstB, "%num%", strNum)
' ファイルをコピー
FileCopy strSrcA, strDstA
FileCopy strSrcB, strDstB
End Sub
方法はいろいろありますが、フォルダやファイル名のパターンがある程度固定ならこういう方法がわかりやすいと思います。
文字列変数を & で連結させる方法もあります。
Dim X, Y
Y = "B"
X = "A" & Y & "C"
これで X には文字列"ABC"が代入されます。あとはうまく組み合わせてください。
すごく分かりやすいですね。
うまくできました。
これならあとで編集するのも簡単にできそうですね。
助かりました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
ワードへのハイパーリンク貼り...
-
ファイルサーバ上のファイルが...
-
ExcelVBAでセルに入力された値...
-
エクセルVBAで開いているファイ...
-
Vba初心者です。下記のコード助...
-
vbsでExcelのシートをコピーす...
-
ゴミ箱に移動するような削除を...
-
VB6でのファイルコピーの終了検...
-
賃貸アパートの退去の時の返却...
-
マインクラフトPCをプレイしよ...
-
FFFTP上のファイルをデスクトッ...
-
PCの中に保存されているファイ...
-
CD(データ入り)からそれを含...
-
ワード 一部のページだけをpdf...
-
エクセルの保護ビューについて
-
Office2007の拡張子
-
ms-dos v6.2 xcopy の使用
-
Excelのマクロについて教えてく...
-
Delphiによるファイルのコピー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
エクセルのハイパーリンクがコ...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
Vba初心者です。下記のコード助...
-
Excelのマクロについて教えてく...
-
エクセル2010、図が大きすぎま...
-
バッチファイル 別ファイルにリ...
-
[エクセル]コピーするとオブジ...
-
パワポでスライドをコピーでき...
-
エクセルVBAで開いているファイ...
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
Excelのマクロについて教えてく...
-
FTPとファイルコピーの違いにつ...
-
Excelのマクロについて教えてく...
-
バッチファイルのコピーで
-
bat 同名ファイルコピー時にリ...
-
アクセス クエリを別のファイ...
-
同じファイル名 上書きしないフ...
おすすめ情報