投稿日	： 2003/01/18(Sat) 01:42
投稿者	： Starfish
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: Cell(x, x).Value で文字列を取得した時

VBAは自信がないのですが、、、

Unicodeのデータをファイルに書くときは、バイト配列でバイナリデータとして
書かないとANSI変換が入って正しくかけません。

Cells(1, 1)のデータをメモ帳で読めるように、Unicodeのテキストファイルで
書いてみましたが、こんなことをやりたいのでしょうか？

Private Sub CommandButton1_Click()
    Dim strCellData As String
    Dim bytCellData() As Byte
    strCellData = Cells(1, 1).Value
    bytCellData = ChrB(&HFF) & ChrB(&HFE) & strCellData
    Open "c:\temp\unicode.txt" For Binary As #1
        Put #1, , bytCellData
    Close #1
End Sub

★ - Cell(x, x).Value で文字列を取得した時 - Crystal 01/17-01:29No.2209
• Re: Cell(x, x).Value で文字列を取得した.. - Starfish 01/18-01:42 No.2231
  • Re^2: Cell(x, x).Value で文字列を取得し.. - Crystal 01/18-18:00 No.2238