|
私はテキストファイルを扱うときはVBスクリプトの
TextStreamストリームオブジェクトを利用してしまうので
http://www7.ocn.ne.jp/~tllsp/tips_fileio.htm#固定長ファイルへのパッチ
とはぜんぜん違うやり方になってしまうのですが、
以下ようなコードで動くと思います。
FileName = "C:\My Documents\Test.Txt"
を正しいファイル名に、
Range("A1", Range("A65536").End(xlUp)).Offset(0, 1).FormulaR1C1 = _
"=""hogehoge""&MID(R[0]C[-1],9,LEN(R[0]C[-1])-8)"
の""hogehoge""を置き換えたい文字に置き換えてお試しください。
※実行前にバックアップを取って置いてください。
Sub test()
Dim objText As Object
Dim FileName As String
Dim i As Long
FileName = "C:\My Documents\Test.Txt"
Set objText = CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName, 1)
i = 1
Do
Cells(i, 1).Value = objText.ReadLine
i = i + 1
Loop Until objText.AtEndOfStream
objText.Close
Range("A1", Range("A65536").End(xlUp)).Offset(0, 1).FormulaR1C1 = _
"=""hogehoge""&MID(R[0]C[-1],9,LEN(R[0]C[-1])-8)"
Set objText = CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName, 2)
For i = 1 To Range("B65536").End(xlUp).Row
objText.WriteLine (Cells(i, 2).Value)
Next
objText.Close
End Sub
|
|