掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VBA バイナリのデータを1byteずつファイルに書き出すには？（ADO使用） (ID:80386)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Public Sub WriteTest(sReadFile As String, sWriteFile As String) Dim StmRead As Object Dim vReadData As Variant Dim StmWrite As Object Dim b As Variant Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 '読み込むファイルの設定 Set StmRead = CreateObject("ADODB.Stream") StmRead.Open StmRead.Type = adTypeBinary StmRead.LoadFromFile sReadPath vReadData = StmRead.Read '一気に読み込む For i = 0 To Ubound(vReadData) b = vReadData(i) '1byteずつ取得 If (b = &H0A) then '〜 bを解析する処理 〜 End If StmWrite.Write b '1biteずつ書き込む Next i '一気にファイルに書き出す StmWrite.SaveToFile sWritePath, adSaveCreateOverWrite 'StmReadを閉じる StmRead.Close Set StmRead = Nothing 'StmReadを閉じる StmWrite.Close Set StmWrite = Nothing End Sub で、 ”StmWrite.Write b” のところでエラーになってしまいます。 ADOのWriteメソッドの使用方法がいまいちつかめてません。 どうかご教授願います。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.