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