|
先日教わったのを参考に、下のコードを使用しようと思ったのですが
”検索文字が見つかりません”とエラーが出ます。
指定したファイルには、書換える文字列は入っています。
Dim Fso As Object
Dim Ts As Object
Dim myF As String
Dim V As String
myF = Application _
.GetOpenFilename("ファイルを選択(*.*), *.*")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Ts = Fso.OpenTextFile(myF, 1)
V = Ts.ReadAll
Ts.Close
Application.Dialogs(xlDialogFormulaReplace).Show arg1:="8000", arg2:="Sheet"
Set Ts = Fso.OpenTextFile(myF, 2, True)
Ts.Write V
Ts.Close
Set Ts = Nothing
Set Fso = Nothing
End Sub
宜しくお願い致します。
|
|