VBA初心者です
お知恵を貸して下さい
ワイルドカードで指定したファイルを、最初の(ここではxyz01.xls)しか読み込まないのではなく、7つのファイル(xyz01.xlsからxyz07.xls)まで1つずつ読み込み、それぞれでマクロを動作させ、(ランダムでも可)別名で7つのファイルに保存することをしたいです
・マクロは1つの動作(あるファイルAをフォーマットBに貼り付け、フォーマットBを別名Cで保存)
・ファイルはAとB、Cです
・ファイル属性は、xyz01.xls, xzy02.xls・・・xyz07.xlsのため、ワイルドカードでxyz*.xlsを読み込ませています→これがxyz01.xlsしか読み込まない!
現在は、あるフォルダに1つ(例えばxyz01.xls)のみを置いて読み込ませています
7つのファイルを同時に置いた状態で、7回読み込ませてマクロを1回ずつ動作させ、それぞれ別名で保存したい
長くなりましたが、よろしくお願いします
OS:Windows8PRO
Excel2010
No.2ベストアンサー
- 回答日時:
ファイルA,B,Cと「7つのファイル」の関係がさっぱり不明のため、そこはご自分で行ってください。
sub macro1()
dim myPath as string
dim myFile as string
dim TargetFolder as string
mypath = "c:\test\" ’あなたの実際に合わせて適切に記入する事
targetfolder = "c:\test\subfolder\"
myfile = dir(mypath & "xyz*.xls")
do until myfile = ""
workbooks.open mypath & myfile
’以下実際の作業は自分で実装する事
workbooks(myfile).saveas targetfolder & myfile
workbooks(myfile).close false
myfile = dir()
loop
end sub
ありがとうございます 動作させてみましたが、xyz*.xlsを上書きするのではなくて、別名で保存したいので、saveasの所を修正してみました これだけでは動くようですが、肝心のマクロと合体させるとやはりxyz01.xlsしか読み込みません もうちょっと悩んでみます
No.1
- 回答日時:
ありがとうございます そのHPの存在は知ってました あるフォルダの全ファイルを拾ってくるようですね ちょっと意味合いが違うのかと思ってましたが、もうちょっと勉強してみます
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Access(アクセス) Access2016のExcelインポートの機能のことで教えてください 1 2022/09/11 14:58
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
フォルダ内のexcelファイルを順...
-
エクセルのシートの数を数えた...
-
エクセルマクロで不特定なファ...
-
エクセルのxls形式からxlsx形式...
-
ファイルを開かずにマクロを実行
-
VBAでワークブックの名前を変数...
-
ACCESS VBAでファイルを開くダ...
-
ファイルの保存場所を変えたら...
-
VBA EXCELファイル選択⇒指定セ...
-
エクセル(マクロ)のファイル...
-
Accessのaccdbファイルを起動で...
-
エクセルマクロ 異なるファイ...
-
ファイル名を変更するマクロ
-
<ACCESS VBA -> EXCEL>getObjec...
-
LTSpiceにLMV358-Nのモデルを入...
-
EXCELマクロを無効にして開く方法
-
Excel VBA でファイルが開かれ...
-
vba初心者です。 質問です。 毎...
-
フォルダ内のブック全部にパス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
VBAでワークブックの名前を変数...
-
エクセル 複数ファイルの一括...
-
フォルダ内のexcelファイルを順...
-
エクセルのxls形式からxlsx形式...
-
【Excel VBA】ファイル名が一...
-
エクセル(マクロ)のファイル...
-
vlookup関数の引数を変数で指定...
-
ファイルを開かずにマクロを実行
-
エクセルのシートの数を数えた...
-
Accessのaccdbファイルを起動で...
-
エクセルマクロ 異なるファイ...
-
vba初心者です。 質問です。 毎...
-
ファイルの保存場所を変えたら...
-
Excel VBA でファイルが開かれ...
-
accessフォルダを移動したらフ...
-
リンク切れチェックを行うマクロ
-
フォルダ内のブック全部にパス...
-
ACCESS VBAでファイルを開くダ...
おすすめ情報