回答編集履歴
4
誤字の修正
answer
CHANGED
|
@@ -15,7 +15,7 @@
|
|
|
15
15
|
Dim sFileName As String
|
|
16
16
|
|
|
17
17
|
Set wb = ActiveWorkbook
|
|
18
|
-
|
|
18
|
+
sFileName = Replace(wb.Name, "xlsx", "csv")
|
|
19
19
|
|
|
20
20
|
Application.DisplayAlerts = False
|
|
21
21
|
ActiveWorkbook.SaveAs Filename:=wb.Path & "\" & sFileName, _
|
3
誤字の修正
answer
CHANGED
|
@@ -9,18 +9,22 @@
|
|
|
9
9
|
|
|
10
10
|
-----
|
|
11
11
|
手動で出来てるなら、
|
|
12
|
+
```ExcelVBA
|
|
12
13
|
Sub Macro1()
|
|
13
14
|
Dim wb As Workbook
|
|
14
|
-
Dim
|
|
15
|
+
Dim sFileName As String
|
|
15
|
-
|
|
16
|
+
|
|
16
17
|
Set wb = ActiveWorkbook
|
|
17
|
-
sFilePath = Replace(wb.
|
|
18
|
+
sFilePath = Replace(wb.Name, "xlsx", "csv")
|
|
18
19
|
|
|
19
20
|
Application.DisplayAlerts = False
|
|
20
|
-
ActiveWorkbook.SaveAs Filename:=
|
|
21
|
+
ActiveWorkbook.SaveAs Filename:=wb.Path & "\" & sFileName, _
|
|
22
|
+
FileFormat:=xlCSVUTF8, CreateBackup:=False
|
|
21
23
|
Application.DisplayAlerts = False
|
|
22
24
|
End Sub
|
|
25
|
+
```
|
|
23
26
|
|
|
27
|
+
|
|
24
28
|
こんな感じでいいんではないかなぁ。。。
|
|
25
29
|
こちらは2010なので保存できませんが＾＾；；
|
|
26
30
|
|
2
追記
answer
CHANGED
|
@@ -5,4 +5,24 @@
|
|
|
5
5
|
|
|
6
6
|
https://did2memo.net/2016/11/14/excel-csv-utf8/
|
|
7
7
|
http://acoustic-groove.hatenablog.com/entry/2017/11/11/003157
|
|
8
|
-
https://tonari-it.com/excel-vba-utf8-write/
|
|
8
|
+
https://tonari-it.com/excel-vba-utf8-write/
|
|
9
|
+
|
|
10
|
+
-----
|
|
11
|
+
手動で出来てるなら、
|
|
12
|
+
Sub Macro1()
|
|
13
|
+
Dim wb As Workbook
|
|
14
|
+
Dim sFilePath As String
|
|
15
|
+
|
|
16
|
+
Set wb = ActiveWorkbook
|
|
17
|
+
sFilePath = Replace(wb.Path, "xlsx", "csv")
|
|
18
|
+
|
|
19
|
+
Application.DisplayAlerts = False
|
|
20
|
+
ActiveWorkbook.SaveAs Filename:=sFilePath, FileFormat:=xlCSVUTF8, CreateBackup:=False
|
|
21
|
+
Application.DisplayAlerts = False
|
|
22
|
+
End Sub
|
|
23
|
+
|
|
24
|
+
こんな感じでいいんではないかなぁ。。。
|
|
25
|
+
こちらは2010なので保存できませんが＾＾；；
|
|
26
|
+
|
|
27
|
+
参考HP＞＞
|
|
28
|
+
[Excel 2016でUTF-8のCSVファイルがサポートされるようになりました。](https://www.ka-net.org/blog/?p=7764)
|
1
追記
answer
CHANGED
|
@@ -1,4 +1,8 @@
|
|
|
1
1
|
>開いてみると文字化けしてしまっています。
|
|
2
2
|
|
|
3
3
|
手動でやってみても、文字化けしますか？
|
|
4
|
-
出来たテキストファイルを開くときはどんなアプリ使ってますか？
|
|
4
|
+
出来たテキストファイルを開くときはどんなアプリ使ってますか？
|
|
5
|
+
|
|
6
|
+
https://did2memo.net/2016/11/14/excel-csv-utf8/
|
|
7
|
+
http://acoustic-groove.hatenablog.com/entry/2017/11/11/003157
|
|
8
|
+
https://tonari-it.com/excel-vba-utf8-write/
|