150個ぐらいのエクセルファイルがあります。
スタイルはすべて同じで、特定のシートを別ファイルに用意したシート(エクセル表)で書き換えたいと思っています。
マクロの作成でテンプレファイルの読み込みから目的ファイルへの貼り付けをやってみて、WEBを参考にマクロを作ってみましたが、テストでエラー:オブジェクトが指定されていないとか出てしまい、さっぱりわかりません。
貼り付け元ファイル(テンプレ)は1つです。
貼り付け先ファイルは1つの元フォルダにフォルダでさらに分類されており、最大で3階層あります。
貼り付け元ファイルにあるシート(シート名:TITLE)を別のファイルの同じシートに貼り付けます。
シート名は1つだけです。
テンプレと目的ファイルのスタイルはまったく同じです。
どなたかよろしくお願いできないでしょうか。
以下に(失敗している)マクロを添付します。
----------------
Sub Macro2()
'
' Macro2 Macro
Workbooks.Open Filename:= _
"C:\Users\aaa\aaa.xls"
Sheets("TITLE").Select
Cells.Select
Selection.Copy
Dim fol As String
Dim f As String
Dim wb As Workbook
fol = "D:\working"
f = Dir(fol & "\*.xls")
Do While f <> ""
Set wb = Workbook.Open(fol & "\" & f)
Sheets("TITLE").Select
Cells.Select
ActiveSheet.Paste
ActiveWorkbook.Save
wb.Close
f = Dir()
Loop
Set wb = Nothing '変数の解放
End Sub
No.1ベストアンサー
- 回答日時:
こんなカンジ。
sub macro1()
dim myPath as string
dim myFile as string
’初期化
workbooks.open "c:\Users\aaa\aaa.xls"
mypath = "c:\working\"
myfile = dir(mypath & "*.xls")
’開いてコピー貼り付けて保存して閉じる
do until myfile = ""
workbooks.open mypath & myfile
workbooks("aaa.xls").worksheets("TITLE").cells.copy destination:=workbooks(myfile).worksheets("TITLE").range("A1")
workbooks(myfile).close savechanges:=true
myfile = dir()
loop
end sub
ありがとうございました。
自分の作ったマクロでは流れると思うんですが、複数あってもなぜか途中で止まってしまってました。
このマクロを使わせてもらいました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 3個のfileのセルデータを1個のfileのセルに貼り付けるVBAコードですが。 1 2023/02/20 09:21
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】読取専用のファイル...
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
ファイルの保存場所を変えたら...
-
データ参照先が別ファイルの場...
-
ファイルを開かずにマクロを実行
-
EXCELが終了できません
-
excel2007のファイルを一気に97...
-
【Excel VBA】ファイル名が一...
-
VBAでワークブックの名前を変数...
-
word2007ファイル起動時のSQLに...
-
VBAでフォルダ内の全てのcsv...
-
エクセルファイルをHTML化する...
-
秀丸:あらかじめ設定した複数...
-
Accessのaccdbファイルを起動で...
-
エクセルのxls形式からxlsx形式...
-
エクセルのシートの数を数えた...
-
【VBA】フォルダ内のファイル全...
-
vlookup関数の引数を変数で指定...
-
エクセル 複数ファイルの一括...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
VBAでワークブックの名前を変数...
-
フォルダ内のexcelファイルを順...
-
エクセルのxls形式からxlsx形式...
-
エクセル 複数ファイルの一括...
-
エクセルのシートの数を数えた...
-
accessフォルダを移動したらフ...
-
vlookup関数の引数を変数で指定...
-
Accessのaccdbファイルを起動で...
-
ファイルを開かずにマクロを実行
-
【Excel VBA】ファイル名が一...
-
EXCELマクロを無効にして開く方法
-
エクセル(マクロ)のファイル...
-
ACCESS VBAでファイルを開くダ...
-
Excel VBA でファイルが開かれ...
-
ファイルの保存場所を変えたら...
-
vba初心者です。 質問です。 毎...
-
フォルダ内のブック全部にパス...
-
エクセルマクロ 異なるファイ...
おすすめ情報