掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Unicodeで書かれたハングル文字のテキストファイルをVBAで読み込みセルに描画するには？ (ID：80277)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません。 Sub CreateFile() Dim Stm As Object Dim SourceFilePath As String Const adCRLF = -1 Const adSaveCreateOverWrite = 2 Const adWriteLine = 1 Const adTypeText = 2 SourceFilePath = "C:\〜\TEST.TXT" Set Stm = CreateObject("ADODB.Stream") Stm.Open Stm.Charset = "UNICODE" Stm.Type = adTypeText Stm.LineSeparator = adCRLF ' ↓ここじゃない！ ' Stm.SaveToFile SourceFilePath, adSaveCreateOverWrite Stm.WriteText "こんにちは", adWriteLine ' ↓ここ！ Stm.SaveToFile SourceFilePath, adSaveCreateOverWrite Stm.Close Set Stm = Nothing End Sub にしたらできました。 勘違いしてました。 ひとまずこれで全て解決いたしました。 魔界の仮面弁士様 ありがとうございました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.