txtの読み込み⇒置換⇒txtの保存をExcelでできないか教えてください。

Question

①複数ある.txtデータをエクセルで開いて
一つのブックにそれぞれシートとして展開するVBAを教えていただきたいです。
②Sub A()
Dim mySheet As Worksheet
Set mySheet = Activesheet
Dim wb As Workbook, ws As Worksheet, rng As Range, c As Range

' Set wb = Workbooks.Open("別ブック.xlsx")
Set wb = Workbooks("別ブック.xlsx")
Set ws = wb.Worksheets(1)
Set rng = ws.UsedRange.Columns(1).Cells
For Each c In rng
mySheet.Cells.Replace what:=c.Value, replacement:=c.Offset(, 1).Value
Next

End Sub
を読み込んだすべてのシートに実施するやり方を教えてほしいです。
③置換が終了したシートをそれぞれ、txtファイルとして保存する方法を教えていただきたいです。
手動でExcelファイルを保存すると、ダブルクォーテーションが値を括ってしまって、内容が変化してしまいます。
メモ帳に貼って保存しなおせば内容は相違なく保存できますが、手間がかかってしまうのでVBAのマクロで簡略化できないでしょうか。

Comments

[itagagaki]

複数ファイルを一括で置換するツールはいろいろあると思いますけど、そういうのは使わないでExcel VBAでやりたいのですか？

[HuransowaRuiz]

VBAでやりたいです。ほかにNotepad、eclipseもありましたが、マクロが組みにくくてVBAで編集しようと考えています。

[jinoji]

話をまとめると、
「複数のtxtファイルを、一定の規則に従って文字列を置換したうえで、別名のtxtファイルとして保存する
」という処理を、Excelマクロを使ってやりたい、ということでしょうか。

[HuransowaRuiz]

はい、またExcelで編集した状態で保存するとダブルクォーテーションがついて、内容が変化してしまうのを防ぎたいです。

[jinoji]

変換したtxtファイルが得られれば、①②のExcelファイルはなくてもかまわない？

[jinoji]

文字列を置換する対照表と、１つのコマンドボタンを持ち、
そのボタンを押すと「複数のtxtファイルを読み込んで対照表に基づいて置換してtxtファイルを書き出す」というマクロが動く、そういうExcelマクロが欲しい、ということですか？

[HuransowaRuiz]

はい、また①②のExcelは必要になります。

[jinoji]

複数のtxtファイルというのは、Excelに取り込んだ時に、複数行、複数列の、いわゆる表のような形になるものですか？　それとも、普通の文章が書かれたようなものですか？

[HuransowaRuiz]

普通の文章がかかれたものです。

[jinoji]

改行コードで何行かに改行された文章ですか？
もしそうなら、Excelに読み込んだ時には、txtの１行がExcelの１セルに対応するような感じで読み込みたいですか？それとも、全行のtxtが１セル内に入るような形でしょうか。

[jinoji]

txtファイルは日本語が使われていますか？
その場合、文字コードが Shift-JISか、UTF-8かによっても、作るべき処理が変わってきます。
また、改行コードが Lf か CrLf か、というのも考慮が必要な場合があります。

[HuransowaRuiz]

改行カードで改行された文章です。txtの１行が１セルに対応する形で読み込みたいです。

[HuransowaRuiz]

txt ファイルは日本語英語混在です。

Answer 1

改行コードCRLF
文字コードShift-jisでした。
また作成したtxtの中身が空白になります。
シートには置換できています。

Comments

[HuransowaRuiz]

シートに固定長フィールドのデータとして読み込まれりため、タブ区切りで設定したいのですが、
splitの部分をどう変えればいいでしょうか

[kaina]

自分で自分に質問してもダメじゃないですかね？
jinojiさんへのコメントであれば、jinojiさんの回答に書き込まないとダメでしょ。

後、したいことだけで多少なりとも自分で調べないんですか？
例えば、「vba Split」というキーワードで検索してみるとか。

[退会済みユーザー]

回答ではなく質問の追加情報なら、質問を編集して追記してください。
だれかの回答に対するコメントであれば、その回答のコメント欄に記入してください。
回答は削除依頼してください。

Answer 2

知らんけど。

Sub sample()
    
    '変換表はこのブックの１シート目に用意されているものとする
    Dim mySheet As Worksheet, rng As Range
    Set mySheet = ThisWorkbook.Worksheets(1)
    Set rng = mySheet.UsedRange.Columns(1)

    
    'txtファイルはこのマクロと同じ場所にあるものとする
    Dim fileName As String
    fileName = Dir(ThisWorkbook.Path & "*.txt")

    
    'ループ
    Do While fileName <> ""
        
        '読み込み（ファイルはすべてUTF-8であるものとする）
        Dim buf, arr
        buf = ADOFileLoad(ThisWorkbook.Path & "\" & fileName)
        
        '変換表に従い置換
        Dim c As Range
        For Each c In rng.Cells
            buf = Replace(buf, c.Value, c.Offset(, 1).Value)
            DoEvents
        Next
        '別名でtxt書き出し
        ADOFileSave buf, ThisWorkbook.Path & "\New_" & fileName
        
        'シートにも書き出し
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Worksheets.Add(After:=mySheet)
        
        arr = Split(buf, vbNewLine)
        ws.Cells.Resize(UBound(arr) + 1, 1).Value = WorksheetFunction.Transpose(arr)
        
        '次へ
        fileName = Dir()
    Loop


End Sub

 
Function ADOFileLoad(myPath)
    
    With CreateObject("ADODB.Stream")
        .Open
        .Type = 2
        .Charset = "UTF-8"
        .LoadFromFile myPath
        ADOFileLoad = .ReadText
        .Close
    End With

End Function
 
 
Sub ADOFileSave(buf, myPath)
 
    With CreateObject("ADODB.Stream")
        .Open
        .Type = 2
        .Charset = "UTF-8"
        .WriteText buf
        .SaveToFile myPath, 2
        .Close
    End With

End Sub