ExcelVBAでセルに入力された値をみて複数のファイルコピーするマクロ
ＶＢＡ初心者です。関連する質問はみたのですが、組み合わせが他と違い
うまくできませんでした。
ＥＸＣＥＬのマクロを使って、それぞれ格納場所が異なる２つのエクセルファイル（格納元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をコピーさせたいのですが、可能でしょうか？
宜しくお願い致します。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_1_thumbnail_img_sm.png)
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
ご返答ありがとうございます。 アドインは使用しておりませんでした。