掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Unicodeで書かれたハングル文字のテキストファイルをVBAで読み込みセルに描画するには？ (ID：80276)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpado260/htm/mdmscadoapireference.asp を見たらなんとなくこういうものなのかという感じになりました。 今度は、ファイルを作成したいのですが、 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.Close Set Stm = Nothing End Sub とやってみたのですが、 空(ファイルサイズ0Byte)のファイルが作成されてしまい、 ”こんにちは”が書き出されていません。 ご教授願います。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.