質問編集履歴
1
コードの追加など、質問された内容を追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -9,4 +9,39 @@
|
|
|
9
9
|
100個のファイル名は変更不可です。
|
|
10
10
|
|
|
11
11
|
どのようにしたらよいでしょうか。
|
|
12
|
+
|
|
13
|
+
Sub macro2()
|
|
14
|
+
|
|
15
|
+
'■フォルダ内のエクセルファイルを一括処理(今回はA1セルに1と入力のみ)
|
|
16
|
+
Sub call_folder_all_file_process()
|
|
17
|
+
|
|
18
|
+
Dim Path As String
|
|
19
|
+
Dim FName As String
|
|
20
|
+
|
|
21
|
+
'■ファイル名取得するフォルダパス、該当拡張子を入れる
|
|
22
|
+
Path = "C:\Users\user\Desktop\レジ\入力シート\宇和島\"
|
|
23
|
+
FName = Dir(Path & "*.xls") 'ワイルドカード(*)を使用し、xlsx拡張子のファイルを全て
|
|
24
|
+
|
|
25
|
+
'■Loopでファイルを取得→開く→処理→保存→閉じる
|
|
26
|
+
Do While FName <>""
|
|
27
|
+
Workbooks.Open Path & FName
|
|
28
|
+
Cells(1, 1) = 1
|
|
29
|
+
ActiveWorkBook.Save
|
|
30
|
+
ActiveWorkBook.Close
|
|
31
|
+
|
|
32
|
+
FName = Dir()
|
|
33
|
+
Loop
|
|
34
|
+
End Sub
|
|
35
|
+
|
|
36
|
+
を加工すれば、別ブックからの1シートのコピーができるのかと思いましたが
|
|
37
|
+
Cells(1, 1) = 1のところを、同編集すればよいか不明です。
|
|
38
|
+
|
|
39
|
+
コピー元ファイル：C:\Users\user\Desktop\レジ\入力シート\宇和島\" 内にあります
|
|
40
|
+
コピー元ワークシート名：ジャンル
|
|
41
|
+
コピー先ファイル："C:\Users\user\Desktop\レジ\ジャンル.xlsx"
|
|
42
|
+
コピー先ワークシート名：ジャンル
|
|
43
|
+
|
|
44
|
+
コピーは、書式（色や罫線など）・値、すべてをそのままの形で
|
|
12
|
-
|
|
45
|
+
コピーしたいです。
|
|
46
|
+
シートそのもののコピー→挿入でも問題ありませんが、コピー元が1つ
|
|
47
|
+
コピー先が複数なので、そこがどうなるのかがよくわかりません。
|