質問編集履歴
4
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
フォルダの中に複数のxlsxファイルがあり、全てを
|
|
1
|
+
フォルダの中に複数のxlsxファイルがあり、全てをそれぞれのブック名でcsvで保存する方法について悩んでいます。
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
3
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -64,7 +64,7 @@
|
|
|
64
64
|
|
|
65
65
|
```
|
|
66
66
|
|
|
67
|
-
「FileFormat :=
|
|
67
|
+
「FileFormat :="XICSV"」部分をカットすると、1つずつcsvは作成されますが、開いてみると文字化けしてしまっています。
|
|
68
68
|
|
|
69
69
|
|
|
70
70
|
|
2
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -52,11 +52,11 @@
|
|
|
52
52
|
|
|
53
53
|
Dim X As String
|
|
54
54
|
|
|
55
|
-
X = Left (book1. Name, Len (book1. Name) - 5) &
|
|
55
|
+
X = Left (book1. Name, Len (book1. Name) - 5) &"CSV"
|
|
56
56
|
|
|
57
57
|
book1. SaveAs Filename:=X, _
|
|
58
58
|
|
|
59
|
-
FileFormat :=
|
|
59
|
+
FileFormat :="XICSV"
|
|
60
60
|
|
|
61
61
|
Next file
|
|
62
62
|
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
フォルダの中のファイルをすべて処理するコードについては、あるサイトで掲載されていた
|
|
5
|
+
フォルダの中のファイルをすべて処理するコードについては、あるサイトで掲載されていたコードを利用しています。
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|