質問編集履歴
4
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
フォルダの中に複数のxlsxファイルがあり、全てを
|
|
1
|
+
フォルダの中に複数のxlsxファイルがあり、全てをそれぞれのブック名でcsvで保存する方法について悩んでいます。
|
|
2
2
|
|
|
3
3
|
フォルダの中のファイルをすべて処理するコードについては、あるサイトで掲載されていたコードを利用しています。
|
|
4
4
|
|
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -31,6 +31,6 @@
|
|
|
31
31
|
Next file
|
|
32
32
|
|
|
33
33
|
```
|
|
34
|
-
「FileFormat :=
|
|
34
|
+
「FileFormat :="XICSV"」部分をカットすると、1つずつcsvは作成されますが、開いてみると文字化けしてしまっています。
|
|
35
35
|
|
|
36
36
|
ご回答いただけると助かります。
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -25,9 +25,9 @@
|
|
|
25
25
|
Dim book1 As Workbook
|
|
26
26
|
Set book1 = ActiveWorkbook
|
|
27
27
|
Dim X As String
|
|
28
|
-
X = Left (book1. Name, Len (book1. Name) - 5) &
|
|
28
|
+
X = Left (book1. Name, Len (book1. Name) - 5) &"CSV"
|
|
29
29
|
book1. SaveAs Filename:=X, _
|
|
30
|
-
FileFormat :=
|
|
30
|
+
FileFormat :="XICSV"
|
|
31
31
|
Next file
|
|
32
32
|
|
|
33
33
|
```
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
フォルダの中に複数のxlsxファイルがあり、全てを同じブック名でcsvで保存する方法について悩んでいます。
|
|
2
2
|
|
|
3
|
-
フォルダの中のファイルをすべて処理するコードについては、あるサイトで掲載されていた
|
|
3
|
+
フォルダの中のファイルをすべて処理するコードについては、あるサイトで掲載されていたコードを利用しています。
|
|
4
4
|
|
|
5
5
|
|
|
6
6
|
以下のとおりに書きましたが、「Save Asメソッドは失敗しました。'Workbook'オブジェクト」というエラーが出てしまいます。
|