調用word

Private Sub Form_Load()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") ´創建EXCEL對象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\1") ´打開已經存在的EXCEL工件簿文件
xlApp.Visible = True ´設置EXCEL對象可見（或不可見）
Set xlSheet = xlBook.Worksheets(1) ´設置活動工作表
xlSheet.Cells(1, 1) = "零件名稱" ´給單元格（row,col）賦值
xlSheet.Cells(1, 2) = " 價格"
´xlSheet.PrintOut ´打印工作表
´xlBook.Close (True) ´關閉工作簿
´xlApp.Quit ´結束EXCEL對象
Set xlApp = Nothing ´釋放xlApp對象
´xlBook.RunAutoMacros (xlAutoOpen) ´運行EXCEL啟動宏
´xlBook.RunAutoMacros (xlAutoClose) ´運行EXCEL關閉宏

End Sub

原文轉自：http://www.anti-gravitydesign.com