回答編集履歴

2

追記

2023/01/11 05:51

投稿

hatena19
hatena19

スコア33899

test CHANGED
@@ -21,3 +21,14 @@
21
21
  Charset:="utf-8")
22
22
  ```
23
23
 
24
+ 追記
25
+ ---
26
+ Microsoft365ということなので、新関数の Sequence を使えば、自作関数を作成する必要はないですね。
27
+
28
+ ```vba
29
+ Call csv.Output(TargetSheet:=ActiveSheet, Filepath:=Filepath, _
30
+ StartRow:=3, StartCol:=1, _
31
+ WithQuoteCols:=Join(WorksheetFunction.Sequence(1,50),","), _
32
+ Charset:="utf-8")
33
+ ```
34
+

1

リンク追加

2023/01/11 05:29

投稿

hatena19
hatena19

スコア33899

test CHANGED
@@ -1,4 +1,6 @@
1
1
  `csv.Output` はおそらく下記のサイトからダウンロードしたものですね。そのコードを書き換えてもいいとは思いますが、連番を生成する関数を作成してそれを利用すればどうでしょう。
2
+
3
+ [【超簡単】ワンタッチでエクセルからCSV出力するVBAプログラム](https://www.excelspeedup.com/csvsyuturyoku/)
2
4
 
3
5
  標準モジュールに下記の関数を作成します。
4
6
  ```vba
@@ -18,3 +20,4 @@
18
20
  WithQuoteCols:=GetSequence(1, 50), _
19
21
  Charset:="utf-8")
20
22
  ```
23
+