Question

我目前正在Excel中学习VBA，以便从电子表格数据中生成Word文档。

我收到错误450：参数数量错误或属性分配无效。

我不知道出了什么问题。任何人都可以帮助我吗？

除此之外，我该如何在表格中的单元格中插入字符串？

谢谢。

'Create document
Sub main()
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()

Dim i As Integer
Dim strValue As String
For i = 1 To 5
    objDoc.Activate
    'define string
    strID = Cells(i, 1)
    strSTR = Cells(i, 2)
    strKK = Cells(i, 3)
    strDEF = Cells(i, 4)
    strEX = Cells(i, 5)
    'write the value to the document
    objWord.Selection.TypeText Text:=strID + ". " + strSTR + "  " + strKK + "  " + strDEF
    'move to the next line
    objWord.Selection.TypeParagraph
    objWord.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:=3

Next i

End Sub

Answer 1

这个怎么样：

objDoc.Tables.Add Range:=objWord.Selection.Range, NumRows:=4, NumColumns:=3

那是使用objDoc而不是objWord并使用objWord.Selection而不仅仅是Selection

Excel VBA 450 Tables.Add

1 个答案: