|
「開かずに」、というのが「シート上に呼び出さずに」、という意味なら
以下のコードでできると思います。
ただし、テキストファイルのサイズが大きすぎるとメモリが不足する可能性があります。
Sub test()
Dim FileName As String
Dim objText As Object
Dim MyStr As String
FileName = Application.GetOpenFilename
If FileName = "False" Then Exit Sub
Set objText = CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName, 1)
MyStr = objText.ReadAll
objText.Close
MyStr = Replace(MyStr, "1", "2")
Set objText = CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName, 2)
objText.Write (MyStr)
objText.Close
End Sub
|
|