Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9079 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【29377】非表示な文字の編集 あいんすと 05/10/3(月) 23:15 質問[未読]
【29423】Re:非表示な文字の編集 Jaka 05/10/4(火) 17:10 発言[未読]
【29436】Re:非表示な文字の編集 あいんすと 05/10/4(火) 22:56 質問[未読]
【29445】Re:非表示な文字の編集 ちくたく 05/10/5(水) 10:18 回答[未読]
【29460】Re:非表示な文字の編集 あいんすと 05/10/5(水) 22:07 質問[未読]
【29377】非表示な文字の編集
質問  あいんすと  - 05/10/3(月) 23:15 -
引用なし
パスワード
   あるテキスト形式のDEFファイルをエクセルで読み取って編集しようとしたら、
1段目の行が必ず、文字化けしてしまいました。
テキストブックで見ると文字が見えなかったのに、バイナリコードエディッタでみると何文字かあるのです。この様なタイプのファイルをバグなしに編集する方法は有りますか？
【29423】Re:非表示な文字の編集
発言  Jaka  - 05/10/4(火) 17:10 -
引用なし
パスワード
   こんにちは。
これと違うのでしょうか？
ハズレてたらすみません。

http://support.microsoft.com/default.aspx?scid=kb;ja;821863
[XL2002] UTF-8 形式のテキスト ファイルが文字化けする
【29436】Re:非表示な文字の編集
質問  あいんすと  - 05/10/4(火) 22:56 -
引用なし
パスワード
   ▼Jaka さん：

>http://support.microsoft.com/default.aspx?scid=kb;ja;821863
>[XL2002] UTF-8 形式のテキスト ファイルが文字化けする

回答ありがとうございます。
サイトの内容を見たのですが、出来ないということですか...

テキストを普通に開いて全体をコピーして、セルのA1に貼り付ける方法
マクロを組むことって出来ますでしょうか？
重ね重ねすいません。m(_ _)m
【29445】Re:非表示な文字の編集
回答  ちくたく  - 05/10/5(水) 10:18 -
引用なし
パスワード
   あいんすと さん

こんにちは。
横から失礼します。

手持ちのがありましたので、
こんなかんじでしょうか？

Sub てすと()
　　Dim txtPath As String, myLine As String, tmpTxt As String
　　Dim myF As Integer
　　
　　myF = FreeFile
　　'開くファイルのパスを指定。
　　txtPath = "D:\tmp\USER_1_.txt"
　　Open txtPath For Input As #myF
　　Do Until EOF(myF)　　　　　　　　　　　 '// 行末まで読み込み。
　　　　Line Input #myF, myLine　　　　　　 '// 1行ずつね。
　　　　tmpTxt = tmpTxt & myLine & Chr(13) & Chr(10)
　　Loop
　　Close #myF
　　
　　Range("A1").Value = tmpTxt
End Sub
【29460】Re:非表示な文字の編集
質問  あいんすと  - 05/10/5(水) 22:07 -
引用なし
パスワード
   ▼ちくたく さん：

テキストを開いて、文字コードがUTF-8からUnicodeかANSIに
変更して行うと、文字化けせずにうまくバグを起こさずに
処理を行うことが出来ました。処理後のデータをまたUTF-8
に戻すことが出来ました。

マクロでテキストの文字コードを変更する方法は有りますでしょうか？
一応VB6を使用しています。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9079 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free