Excel VBA質問箱 IV

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

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


8004 / 13644 ツリー ←次へ | 前へ→

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

【35598】文字の書換え
質問  超初心者 E-MAIL  - 06/3/8(水) 13:21 -

引用なし
パスワード
   教えて下さい。。。

任意のファイルの中のある一定の文字(例:あいうえお)全てを一括で
”かきくけこ”と書き換える方法を教えて下さい。

書き換える際は、”SheetXXX”というように”XXX"の部分がその都度変わるので
出きればユーザーフォームを使って”XXX"の部分を作成する度に入力して
任意の文字に書換えたいと思っています。

よろしくお願いします。

【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

宜しくお願い致します。

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