ドキュメントファイルをエクセルに移すVBAの「"][,]の処理法について

Question

前提・実現したいこと

エクセルから特定ファイルを開き、ファイル内のドキュメント(.txt)のデータを選択し
エクセルに移したい。

詳細

移す元データ(.txt)がシステムの仕様上、「”○○”,”○○”」の形になっている。
そのデータを”区切りでエクセルセルに移したい。

発生している問題・エラーメッセージ

大方、現状組んでいるVBAで上手くいっているが
金額情報だけが「"○,○○○","○,○○○"」と表記されているので
移したエクセルの順番が、「○,○○○」としたいのに、「○」「○○○」とおかしくなります。

区切り文字を「,」にしているのが原因だと思い「”」にしたりなどしたが型が合わず断念。

該当のソースコード

Sub テキスト読み込み()

Dim txtName As String
txtName = Application.GetOpenFilename("テキストファイル,*.txt")

If txtName <> "False" Then
    Open txtName For Input As #1
End If

Dim r As Long
r = 1 '1行目から書き出す

Do Until EOF(1)

    Dim buf As String
    Line Input #1, buf
    
    Dim aryLine As Variant '文字列格納用配列変数
    aryLine = Split(buf, ", ") '読み込んだ行をクオンテーション区切りで配列変数に格納
    
    Dim i As Long
    For i = LBound(aryLine) To UBound(aryLine)
        'インデックスが0から始まるので列番号に合わせるため+1
        Cells(r, i + 1) = aryLine(i)
    Next
    
    r = r + 1

Loop

Close #1

'余分なクオンテーションを削除

Cells.Select
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False



MsgBox "終了しました。"

End Sub

試したこと

カンマ区切りがいけないのかと思い区切り文字をクオンテーション等色々変更してみましたが
上手くいきませんでした。

補足情報（FW/ツールのバージョンなど）

Answer 1

ダブルクォーテーションを指定する場合は"ではなく""でエスケープしなければならないのですが下記の表記など試しましたか？

aryLine = Split(buf, """")

VBAでの文字列のダブルクォーテーションの使い方

“”は２文字だけであれば空文字列ですが、文字列内にある場合はダブルクォーテーション１文字になります。

Comments

[tkt1964]

試しました。
それをすると「,」に反応して「、」のみのセルが出てきてしまいます。

[退会済みユーザー]

システムから出力されるtxtであれば「、」の出てくる列は統一されていると思うので編集時に対応するのではなくエクセル転記後に該当の列だけ一括削除する方法ではいけませんか？

[退会済みユーザー]

すみません
もう一つだけ確認したいのですがシステムから出力されている形式がcsv形式のように思われるのですが、出力された.txtを.csvと書き直してExcelで開いたら想定通りの表示になりますか？

[tatsu99]

>出力された.txtを.csvと書き直してExcelで開いたら想定通りの表示になりますか？
たぶん、それでOKだと思います。やってみてください。
もし、だめだった場合は、その旨、補足してください。
別の対処方法を提示します。
①","を|に置換する。
②両端の"を空白（長さ０の文字列）に置換する。
③|でsplitする。
上記の方法でいけるはずです。