Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46106 / 76732 ←次へ | 前へ→

【35605】Re:文字の書換え
質問  超初心者 E-MAIL  - 06/3/8(水) 14:02 -

引用なし
パスワード
   先日教わったのを参考に、下のコードを使用しようと思ったのですが
”検索文字が見つかりません”とエラーが出ます。
指定したファイルには、書換える文字列は入っています。


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

宜しくお願い致します。
10 hits

【35598】文字の書換え 超初心者 06/3/8(水) 13:21 質問
【35605】Re:文字の書換え 超初心者 06/3/8(水) 14:02 質問

46106 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free