基本上，我的用戶表單和表中有一個串列框，其中的列和行與串列框相同。我的 ListBox 專案來自 Sheet3 中的 Excel，使用范圍源 Sheet3(A1:C6)。我想要做的是當我單擊命令按鈕時，ListBox 中的所有專案都將轉移到我的 MS word 表中。
這是我當前的代碼。不幸的是，什么都沒有發生，我不知道為什么。
我附上了示例圖片。
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open(DocFile, False)
Word.Application.Visible = True
For lnglistcount = 0 To ListBox1.List - 1
WordDoc.Content.InsertAfter Text:=ListBox1.List(lnglistcount)
WordDoc.ExportAsFixedFormat OutputFileName:=FilePath, ExportFormat:=wdExportFormatPDF
WordDoc.Close saveChanges:=False
WordApp.Quit
Set WordApp = Nothing
Set WordDoc = Nothing
MsgBox "File Created."
Next
uj5u.com熱心網友回復：
此代碼假定檔案已經存在，有一個大小合適的表格（即行數和列數以及沒有合并的單元格等）并且它是檔案中的第一個表格。還假設您的 Excel VBA 專案參考了 Microsoft Word 物件庫。
Dim WordApp As Word.Application, WordDoc As Word.Document
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open(DocFile, False)
WordApp.Visible = True
Dim values As Variant, row As Long, col As Long
values = ListBox1.List
For row = 0 To UBound(values, 1)
For col = 0 To UBound(values, 2)
WordDoc.Tables(1).Cell(row 1, col 1).Range.Text = values(row, col)
Next col
Next row
WordDoc.Close SaveChanges:=True
WordApp.Quit
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/534687.html
標籤：擅长VBAms字
上一篇：自動選擇資料風險分類為內部