質問編集履歴
1
コード部分を書き足しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,12 +4,15 @@
|
|
|
4
4
|
|
|
5
5
|
困っているのは、それを保存するときにどうしてもコンマ区切りCSVになってしまうことです（数値の前のアポストロフィは消えている点はよかったです）。
|
|
6
6
|
```ここに言語を入力
|
|
7
|
+
ThisWorkbook.Activate
|
|
8
|
+
SoukinSt.Visible = True
|
|
7
|
-
|
|
9
|
+
SoukinSt.Select
|
|
10
|
+
SoukinSt.Copy '名前を付け、ファイル形式も決めて特定の場所に保存する。
|
|
8
|
-
ActiveWorkbook.ActiveSheet.Range("A1").Select
|
|
11
|
+
ActiveWorkbook.ActiveSheet.Range("A1").Select
|
|
9
|
-
Application.DisplayAlerts = False
|
|
12
|
+
Application.DisplayAlerts = False
|
|
10
|
-
ActiveWorkbook.SaveAs fileName:=fn, FileFormat:=xlCSV
|
|
13
|
+
ActiveWorkbook.SaveAs fileName:=fn, FileFormat:=xlCSV
|
|
11
|
-
ActiveWorkbook.Close
|
|
14
|
+
ActiveWorkbook.Close
|
|
12
|
-
ThisWorkbook.Activate
|
|
15
|
+
ThisWorkbook.Activate
|
|
13
16
|
```
|
|
14
17
|
このように保存しています。
|
|
15
18
|
|