Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20085 / 76732

←次へ　｜　前へ→


	【62070】テキストの変換

たかし - 09/6/19(金) 14:47 -


	引用なし

	パスワード

いつもお世話になっております。
現在、テキストファイルを読み込み、テキストファイルの"AAA"を検索し
一致する行をシート上のtextboxにコピーしています。

しかし、"－"や"～"、"1."等がバケてしまいます。
　"－"　→　－
　"～"　→　～
　"1."　→　①

マクロは、下記のように組んでいます。
文字バケしないようにするには、どうしたらよいのでしょうか？
また、文字化けしたものを直すいい方法は無いでしょうか？

Sub Disp()
　Dim fso As Object, fnow As Object, xlsThis As Object, objSheet1 As Object
　Dim FP As Variant, cont1 As Variant

　Set xlsThis = ThisWorkbook
　Set objSheet1 = xlsThis.Worksheets("Disp")

　objSheet1.TextBox1 = ""

　Const ForReading = 1, ForWriting = 2, ForAppending = 8
　FP = "C:\AAAA.txt"

　Set fso = CreateObject("Scripting.FileSystemObject")

　Set fnow = fso.OpenTextFile(FP, ForReading)
　　Do While fnow.AtEndOfStream <> True
　　　temp = fnow.readline
　　　
　　　If temp Like "*aaa*" Then
　　　　Cont1 = Split(Replace(temp, ";", ":"), ":")
　　　　objSheet1.TextBox1 = Cont1(2)
　　　end if

　fnow.Close
　Set fnow = Nothing

End Sub

169 hits

▼

【62070】テキストの変換 たかし 09/6/19(金) 14:47

≪