hok********

2022/1/24 15:05

22回答

３０００行あるエクセルから、１行ごとに1つのcsvファイルを保存したいのですが、過去の知恵袋をみたらカンマ区切りはあったのですが、希望としてはタブ区切りで行いたいです。

３０００行あるエクセルから、１行ごとに1つのcsvファイルを保存したいのですが、過去の知恵袋をみたらカンマ区切りはあったのですが、希望としてはタブ区切りで行いたいです。 自分が参考にさせていただいたのが下記のものなのですが、これをタブ区切りで行うコードをどなたかお教えいただけませんでしょうか。どうかよろしくお願いします。 Sub Test() Set s = CreateObject("Scripting.FileSystemObject") For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row c = "" For j = 1 To 4 c = c & Cells(i, j).Value & "," Next j c = Left(c, Len(c) - 1) Set t = s.OpenTextFile("D:\Programming\" & Cells(i, 1).Value & "_" & Cells(i, 3).Value & ".csv", 2, True) t.WriteLine c t.Close Set t = Nothing Next i Set s = Nothing End Sub

Visual Basic | Excel・72閲覧・xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0
1234567890

2022/1/24 15:20

c = c & Cells(i, j).Value & vbTab ","をvbTabに変えればよいのでは？

hok********

質問者2022/1/24 15:42

ありがとうございます！vbTabにしてみたのですが、カンマのかわりにvbTabそのままの文字列として出力されてしまいます。やり方が悪いのでしょうか・・・

ThanksImg質問者からのお礼コメント

回答いただきありがとうございました！お二人の方にお答えいただきとても感謝しております！ベストアンサーは先にお答えいただいた方に選ばさせていただきました！

お礼日時：1/24 16:35

その他の回答（1件）

0
tra********

カテゴリマスター

2022/1/24 15:53

グルグル回すのは非効率。良い関数があるのだから、それを使うべき。 c = "" For j = 1 To 4 c = c & Cells(i, j).Value & "," Next j c = Left(c, Len(c) - 1) Set t = s.OpenTextFile("D:\Programming\" & Cells(i, 1).Value & "_" & Cells(i, 3).Value & ".csv", 2, True) ↓ With WorksheetFunction c = Join(.Transpose(.Transpose(Cells(i, j).Resize(, 4))), vbTab) End With Set t = s.OpenTextFile("D:\Programming\" & Cells(i, 1).Value & "_" & Cells(i, 3).Value & ".csv", 2, True)