バイナリファイルをエクセルファイルに変換するには？ (ID:83475)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつも拝見させていただいています。 バイナリファイルからエクセルファイルに変換し、 また、エクセルファイルをバイナリファイルに変換するツールを作っています。 バイナリファイルからエクセルファイル(S-JIS)に変換するコードを作ってみましたけど、エラーが出ます。 どなたかお知恵をお貸し下さい。 ADODB.Streamについても教えていただきたいです。 環境はVB6.0(SP5)です。 参考コード Dim intFileNumber As Integer Dim lngFileSize As Long Dim bytArray() As Byte Const adTypeBinary = 1 Const adTypeText = 2 Dim St As Object Set St = CreateObject("ADODB.Stream") St.Open intFileNumber = FreeFile Open "C:\A.Dat" For Binary As #intFileNumber lngFileSize = LOF(intFileNumber) If lngFileSize Then ReDim bytArray(lngFileSize - 1) Get #1, , bytArray End If Close #intFileNumber St.Write bytArray ←エラー3129：このコンテキストで操作は許可されていません。 'Shift_JISの文字列として得る Dim S1 As String St.Position = 0 St.Type = adTypeText St.Charset = "Shift_JIS" S1 = St.ReadText() MsgBox S1, , "Shift_JIS" St.Close Set St = Nothing End Sub