質問編集履歴
2
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -52,7 +52,9 @@
|
|
|
52
52
|
|
|
53
53
|
|
|
54
54
|
|
|
55
|
+
Do While file <>""
|
|
56
|
+
|
|
55
|
-
|
|
57
|
+
Set book = Workbooks.Open(folder &"\"&file)
|
|
56
58
|
|
|
57
59
|
|
|
58
60
|
|
1
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
特定のフォルダ内にある全てのExcelを転記用Excelの雛形に転記し、それぞれ名前をつけて保存したいです
|
test
CHANGED
|
@@ -1,3 +1,7 @@
|
|
|
1
|
+
Do While LoopとFor Nextの組み合わせのループ処理の不具合です。
|
|
2
|
+
|
|
3
|
+
|
|
4
|
+
|
|
1
5
|
マクロで、フォルダ①内にあるExcelファイル（数千個）の必要項目(ファイルによってどの行までデータがあるか異なる)をExcelファイル②(雛形)へ転記し、名前をつけてコピーを保存。その後Excelファイル②のデータをクリ
|
|
2
6
|
|
|
3
7
|
アし、次のフォルダ①内のExcelファイルの必要項目を転記、、、というループ処理をマクロで組んでいるのですが、名前をつけて保存する部分がうまく行きません。
|