Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8005 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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

宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8005 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free