Excel VBA質問箱 IV

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

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


45779 / 76735 ←次へ | 前へ→

【35942】Re:検索文字列の置換方法
質問  Jack  - 06/3/16(木) 16:12 -

引用なし
パスワード
   ちくたくさん
お返事ありがとうございます。

実は、テキストファイルからデータを読み込んで置換していきたいのです。

下記のようにテキストファイルからデータを読み込むコードを追加してみました。


Sub test()
 
  Dim Fso As Object
  Dim Ts As Object
  Dim MyF As String
  Dim fStr As String, rStr As String
  Dim r As Range, f As Integer, fAdd As String
  Dim MyS As String
  
  MyF = Application.GetOpenFilename("ファイルを選択(*.*), *.*")
  If MyF = "False" Then Exit Sub

  Set Fso = CreateObject("Scripting.FileSystemObject")
  Set Ts = Fso.OpenTextFile(MyF, 1)
  MyS = Ts.ReadAll
  Ts.Close
 
  fStr = InputBox("検索文字列")
  rStr = InputBox("置換文字列")
 
    Set r = .Find("""MOM:: & " & fStr)
    fAdd = r.Address
    Do
      If Not r Is Nothing Then f = MsgBox(r.Address & "置き換えますか?", vbOKCancel)
      If f = vbOK Then r.Value = """MOM:: & " & rStr
      Set r = .FindNext(r)
      If r Is Nothing Then Exit Do
    Loop While Not r Is Nothing And r.Address <> fAdd
    
     Set Ts = Fso.OpenTextFile(MyF, 2, True)
    Ts.Write MyS
    Ts.Close
    MsgBox "書換えが完了しました"
    If S <> 0 Then
  Else
    MsgBox S & " はありませんでした"
  End If
  
  Set Ts = Nothing
  Set Fso = Nothing
  
  End With
End Sub


ですが、今動かしてみたところ
Set r = .Find("""MOM:: & " & fStr) の  .Findの部分でエラーがでます。

どこが違うのかもし解られるようであれば教えていただけないでしょうか?
お手数ですがもし宜しければエラーの原因も教えていただけると
今後の勉強にも役立つのでお願いできませんでしょうか?
どうぞ宜しくお願い致します。

    

0 hits

【35931】検索文字列の置換方法 Jack 06/3/16(木) 11:59 質問
【35932】Re:検索文字列の置換方法 ちくたく 06/3/16(木) 12:25 回答
【35937】Re:検索文字列の置換方法 Jack 06/3/16(木) 14:41 質問
【35940】Re:検索文字列の置換方法 ちくたく 06/3/16(木) 15:49 回答
【35941】Re:検索文字列の置換方法 ちくたく 06/3/16(木) 16:04 発言
【35942】Re:検索文字列の置換方法 Jack 06/3/16(木) 16:12 質問
【35943】Re:検索文字列の置換方法 Blue 06/3/16(木) 16:29 発言
【35951】Re:検索文字列の置換方法 ちくたく 06/3/16(木) 17:10 発言

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