新手問題，關(guān)于在access宏中操作word

luyu

1.在Access宏中如何設(shè)置新創(chuàng)建的word文件名呢？在沒有保存的情況下。

2.如何新建一個(gè)表格呢？我想把表中的數(shù)據(jù)都一行行的加進(jìn)去。

偶現(xiàn)在的代碼如下，謝謝。



Private Sub Command5_Click()

'步驟1：建立數(shù)據(jù)連接cnn
'由于數(shù)據(jù)庫(kù)已經(jīng)打開，所以直接應(yīng)用CurrentProject.Connection就可以建立連接
Set cnn = New ADODB.Connection
Set cnn = CurrentProject.Connection

'步驟2：用SQL語句創(chuàng)建記錄集rs
Set rs = New ADODB.Recordset
'設(shè)定游標(biāo)類型與鎖定類型
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
'制定特定的查詢條件，可以是任何有效的SQL查詢，甚至包括多表、多條件等復(fù)雜的查詢，查詢條件也常常從窗體取得
SQL = "select * from users"
'創(chuàng)建記錄集rs
rs.Open SQL, cnn
'統(tǒng)計(jì)字段數(shù)及記錄數(shù)
total_fields = rs.Fields.Count
total_records = rs.RecordCount

'步驟3：建立Word文檔對(duì)象
Set mywdapp = CreateObject("word.application")
'調(diào)整Word窗口大小
mywdapp.WindowState = wdWindowStateNormal
'生成新的Word文檔實(shí)例
mywdapp.Documents.Add
'設(shè)置視圖為頁(yè)面視圖
'mywdapp.ActiveWindow.View.Type = wdPrintView
'轉(zhuǎn)到Word視圖，顯示文檔生成過程
mywdapp.Visible = True
mywdapp.Activate
'設(shè)置文檔(表格)字體
mywdapp.ActiveDocument.Range.Font.Size = "11"

'步驟4：將記錄集rs中的字段名稱和字段內(nèi)容輸出到Word，各字段之間用制表符分隔
'輸出字段名稱
For i = 0 To total_fields - 2
mywdapp.Selection.TypeText Text:=rs.Fields(i).Name & vbTab
Next i
'最后一個(gè)字段名稱后加回車符
mywdapp.Selection.TypeText Text:=rs.Fields(total_fields - 1).Name & vbCrLf
'逐條輸出字段內(nèi)容
Do While Not rs.EOF
For i = 0 To total_fields - 2
tmpstr = rs.Fields(i).Value
If rs.Fields(i).Name = "age" Then
tmpstr = Format(tmpstr, "####.00")
End If
mywdapp.Selection.TypeText Text:=tmpstr & vbTab
Next i
'一條記錄的最后一個(gè)字段后加回車符
mywdapp.Selection.TypeText Text:=rs.Fields(total_fields - 1).Value & vbCrLf
rs.MoveNext
Loop

'步驟5：關(guān)閉記錄集
rs.Close
Set rs = Nothing

mywdapp.Application.ScreenRefresh '刷屏
'轉(zhuǎn)到Acdess視圖，顯示結(jié)束對(duì)話框
mywdapp.Visible = False
Msg = "數(shù)據(jù)提取完畢。" & vbCrLf & vbCrLf
Msg = Msg & "總記錄數(shù)=" & total_records & " 條"
MsgBox Msg, vbOKOnly, "數(shù)據(jù)提取完畢"
'轉(zhuǎn)到Word視圖，顯示文檔
mywdapp.Visible = True
mywdapp.Activate

End Sub

tmtony

使用ADO循環(huán)讀取數(shù)據(jù)集中的數(shù)據(jù)，再寫到Word對(duì)象中