Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打開表
Set iRe = New ADODB.Recordset
iRe.Open "select * from sj_1 where id<=3 ", cn, adOpenKeyset, adLockReadOnly
'保存到檔案
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
iRe.MoveFirst
While Not iRe.EOF ' 有三條
.Write iRe.Fields(1)
iRe.MoveNext
Wend
.SaveToFile App.Path & "\test3.doc" '總是只有一條資料被寫入。
End With
'關閉物件
iRe.Close
iStm.Close
End Sub
用VBA代碼也不懂寫。
' Set wdapp = CreateObject("Word.Application")
'Set wddoc = wdapp.Documents.Open("e:\test3.doc ")
' With WordApp
' .Visible = True
' .Activate
' .Selection.TypeText Text:="1: 啊 2: abc"
' .Selection.TypeParagraph
' End With
uj5u.com熱心網友回復：
Sub s_ReadFile()Set WordApp = New Word.Application
WordApp.Visible = True
WordApp.Documents.Add
With WordApp
.Visible = True
.Activate
.Selection.TypeText Text:="1: 啊 2: abc"
.Selection.TypeParagraph
End With
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打開表
Set iRe = New ADODB.Recordset
iRe.Open "select * from sj_1 where id<=3 ", cn, adOpenKeyset, adLockReadOnly
'保存到檔案
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
iRe.MoveFirst
While Not iRe.EOF ' 有三條
.Write iRe.Fields(1)
iRe.MoveNext
WordApp.Selection.TypeText Text:="Test"
WordApp.Selection.TypeText Text:=iRe.Fields(1) ' 要是能這樣寫最好，但是這句是行不能的，不知怎么改。
Wend
' .SaveToFile App.Path & "\test3.doc"
End With
'關閉物件
iRe.Close
iStm.Close
End Sub
uj5u.com熱心網友回復：
u puj5u.com熱心網友回復：
先保存為本地影像檔案，再呼叫Ｗｏｒｄ．Ａｐｐｌｉｃａｔｉｏｎ來創建檔案或打開檔案，
再插入這幾個本地影像檔案。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/89565.html
標籤：VB基礎類
上一篇：vb(控制元件不能加載)
下一篇：PDF如何合并列印