teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

追記

2023/01/11 05:51

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -20,3 +20,14 @@
20
20
  WithQuoteCols:=GetSequence(1, 50), _
21
21
  Charset:="utf-8")
22
22
  ```
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
+ ```

1

リンク追加

2023/01/11 05:29

投稿

hatena19
hatena19

スコア34367

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