rab********

2022/1/13 14:40

22回答

VBA エクセルのマクロ 格納されているCSVファイル（カンマ区切り）について 編集でテキストとして開いて1行目の内容を書き換えるという作業をしています。

VBA エクセルのマクロ 格納されているCSVファイル（カンマ区切り）について 編集でテキストとして開いて1行目の内容を書き換えるという作業をしています。 これをマクロでやりたいのですが可能でしょうか？ AシートのA1セルに入力されているアドレスのCSVに対して行うという想定です。 有識者の方がいらっしゃいましたらご教授願います。

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

ベストアンサー

1
m3_maki0

2022/1/17 3:11

全角のカンマを消したい、ということなら こんな感じ。 Sub Sample() Dim FSO As Object Dim TXT As Object Dim sHeader As String Dim sBody As String Dim sPath As String Set FSO = CreateObject("Scripting.FileSystemObject") ' ここから sPath = "C:\Sample\Excelサンプル\test1.csv" Set TXT = FSO.OpenTextFile(sPath) sHeader = TXT.ReadLine sBody = TXT.ReadAll sHeader = Replace(sHeader, "，", "") ' ここで編集する TXT.Close Set TXT = FSO.OpenTextFile(sPath, 2) TXT.WriteLine sHeader TXT.Write sBody TXT.Close ’ここまで Set FSO = Nothing End Sub １件だけの例ですが、 複数件なら、「ここから」から「ここまで」までを ファイル名を取得しながらループすることで実現できます。

1人がナイス！しています

その他の回答（1件）

0
よこまや

2022/1/15 16:42

＞編集でテキストとして開いて1行目の内容を書き換えるという作業をしています。 これどういう意味でしょう？ メモ帳とかのお話？ それともEXCEL？ EXCELでしたらマクロで可能です。 が書き換えることの規則性も必要ですけど。

rab********

質問者2022/1/15 17:46

失礼しました。 Windowsの操作の話でCSVファイルを「開く｣ではなく「編集」によってメモ帳形式開いていると言う意味です。 001のような数値がある為Excelで開くと1に変換されてしまうのでその様な手順を取っております。 なぜCSVを作成した段階で最初から編集しておかないかと言う点に関しては今回消したいのはやむおえず発生している「，」を消したいためです。