Access VBA 質問スレ Part2 (788ﾚｽ)
上
下
前
次
1-
新
235
:
230
2021/02/05(金)10:13
ID:s99X7duh(1)
AA×
外部ﾘﾝｸ[html]:www.moug.net
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
ﾚｽ栞
|
ﾚｽ消
]
235: 230 [] 2021/02/05(金) 10:13:06.16 ID:s99X7duh SELECT文でOLE型のファイル（拡張子.docx）を読み込んで保存しようとしています。 処理を行ったところ、「ファイル『temp.xls』は内容に問題があるため、開けませんでした。」という メッセージが出ますが、「開いて修復」すれば元のファイルと同じに見えるので SELECT文で項目だして、書き出すまである程度できているようなんですが、 どこがおかしいのでしょうか、ご意見をいただけたら幸いです。 参考サイト https://www.moug.net/tech/acvba/0080032.html 画像を読み込む（GetChunkメソッド） ソース一部抜粋 'OLE型用変数 Dim bytFile() As Byte Dim nFileNo As Integer Dim nSize As Long Dim olename As String Set DB = CurrentDb '項目「OLE型データテスト」抽出のSELECT文の実行 Set rs = DB.OpenRecordset(sqlText) nSize = rs.Fields("OLE型データテスト").FieldSize bytFile() = rs.Fields("OLE型データテスト").GetChunk(0, nSize) nFileNo = FreeFile Open "C:\Users\testuser\Documents\test.docx" For Binary As #nFileNo Put #nFileNo, , bytImage() Close #nFileNo http://mevius.5ch.net/test/read.cgi/tech/1544620479/235
文で型のファイル拡張子を読み込んで保存しようとしています 処理を行ったところファイルは内容に問題があるため開けませんでしたという メッセージが出ますが開いて修復すれば元のファイルと同じに見えるので 文で項目だして書き出すまである程度できているようなんですが どこがおかしいのでしょうかご意見をいただけたら幸いです 参考サイト 画像を読み込むメソッド ソース一部抜粋 型用変数 項目型データテスト抽出の文の実行 型データテスト 型データテスト
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 553 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
ぬこの手
ぬこTOP
0.033s