哪位大神会vb调用word程序，就是把数字水准数据用vb调控填到word的观测记录手簿里。

工程先引用word

Dim objWord As Object

Const CLASSOBJECT = "WordApplication"

Set objWord = CreateObject(CLASSOBJECT)

objWordVisible = False ’隐藏word界面

Dim win As Object

Set win = objWordDocumentsAdd(AppPath & "\V-2dot") '打开word模版把记录替换到模版中

Set MyTable = winTables(1) '将数据写入word 表中

MyTableCell(5, 4) = Adodc1RecordsetFields("l1") & ""

MyTableCell(6, 4) = Adodc1RecordsetFields("l2") & ""

MyTableCell(7, 4) = Adodc1RecordsetFields("l3") & ""

MyTableCell(8, 4) = Adodc1RecordsetFields("l16") & ""

MyTableCell(9, 4) = Adodc1RecordsetFields("l17") & ""

objWordVisible = True

objWordPrintPreview = True

Do

DoEvents

'判断是否在预览状态

If Not objWordPrintPreview Then

objWordActiveDocumentClose (0) '不保存直接退出

'objwordQuit '用它可以直接退出word 但是我用的时候总是卡后来干脆不用了手运关闭word

Exit Do

End If

Loop

有可能是调用的时候word程序未关闭，或者对象未清除。

不是用的时候，worddocumentclose//close the workbook

set word =nothing //clear the object

两条语句的顺序换换

dim file as string=“C:\1doc”

a=Shell("C:\Program Files\Microsoft Office\OFFICE11\WORDEXE " & file, vbNormalFocus)

以上就是关于哪位大神会vb调用word程序，就是把数字水准数据用vb调控填到word的观测记录手簿里。全部的内容，包括:哪位大神会vb调用word程序，就是把数字水准数据用vb调控填到word的观测记录手簿里。、关于VB调用word的难题、VB如何用shell调用word程序的打开word文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！