質問編集履歴

2

2020/04/24 16:31

投稿

rityonu
rityonu

スコア0

test CHANGED
File without changes
test CHANGED
@@ -30,6 +30,10 @@
30
30
 
31
31
 
32
32
 
33
+ ### 該当のコード
34
+
35
+
36
+
33
37
 
34
38
 
35
39
 

1

2020/04/24 16:31

投稿

rityonu
rityonu

スコア0

test CHANGED
File without changes
test CHANGED
@@ -1,41 +1,41 @@
1
+ VBAマクロにて、文字コードshift-JISのCSVファイルを編集、保存する自動機能を実装しようとしています。
2
+
3
+ 元になるCSVのデータは、データ型を問わず全てダブルクォーテーションで囲われた状態です。これを崩さないまま、規定の位置(今回は1.5項目部分)へ新たに項目を増やすような編集を行い、別CSVとして保存しようとしています。
4
+
1
- ■■な機能を実装中に以下エラメッセ発生ました。
5
+ 保存後ダブルクォションの状態、テキストエディタ等で確認ても違いがない状態にする方法を知りいです
6
+
7
+
2
8
 
3
9
 
4
10
 
5
11
  ### 発生している問題・エラーメッセージ
6
12
 
13
+ CSVファイルをVBAのマクロで開き、元CSVのデータをLine Inputにて取得。新規シートのセルにデータの値を追加する。
7
14
 
15
+ 列を挿入する処理にて項目追加を行い、新規ブック扱いとして出力したシートを移動、CSV形式で保存する。
8
16
 
9
- ```
10
-
11
- メッセ
17
+ 保存した編集後のCSVファイルをテキストディタ上で確認をすると、ダブルクォションが1つではなく3つに増えた状態になってしまう。
12
-
13
- ```
14
18
 
15
19
 
16
20
 
17
- ### 該当スコード
21
+ CSVデ
22
+
23
+ "データ", "データ", "データ",…
18
24
 
19
25
 
20
26
 
21
- ```ここに言語名を入力
27
+ 保存した編集後のCSVデータ
22
28
 
23
- スコ
29
+ """追加項目""","""デタ""", """デタ""", """データ""","""追加項目""",……となってしまう。
24
-
25
- ```
26
30
 
27
31
 
28
32
 
29
- ### 試したこと
30
33
 
31
34
 
32
35
 
33
- ここに問題に対して試したことを記載してください。
34
36
 
37
+ 対象のCSVをOpen後、Sprit関数にてカンマ区切りで分割、新規シートのセルへ値追加をする(ダブルクォーテーションをつけたままの状態で値を取得している
35
38
 
39
+ ②列を追加後、シートを別ブックに移しCSV形式で保存。
36
40
 
37
- ### 補足情報(FW/ツーのバョンなど)
41
+ ③別ブックをテキストエディタ(今回はメモ帳)で開いて確認すると、ダブクォテーションが3つにった状態で保存されてしまう
38
-
39
-
40
-
41
- ここにより詳細な情報を記載してください。