excel vba 提示424错误“要求对象” 5

PrivateSubCommandButton1_Click()DimiDimFilePathAsStringFilePath=ThisWorkbook.Path&"\1... Private Sub CommandButton1_Click()
Dim i
Dim FilePath As String
FilePath = ThisWorkbook.Path & "\1.0.docm"
Set Table = Sheets("封皮").UsedRange()
Dim WordFile As Object
Set WordFile = GetObject(FilePath)
Set WordFile = CreateObject("Scripting.FileSystemObject")
For i = 2 To Table.Rows.Count
For Each Var In ActiveDocument.Variables
Var.Delete
Next
ActiveDocument.Variables.Add Name:="Project", Value:=Table.Cells(i, 1).Text
ActiveDocument.Variables.Add Name:="Phase", Value:=Table.Cells(i, 2).Text
ActiveDocument.Variables.Add Name:="ProjectNo", Value:=Table.Cells(i, 3).Text
ActiveDocument.Variables.Add Name:="SubItem", Value:=Table.Cells(i, 4).Text
ActiveDocument.Variables.Add Name:="SubItemNo", Value:=Table.Cells(i, 5).Text
ActiveDocument.Variables.Add Name:="Title", Value:=Table.Cells(i, 6).Text
ActiveDocument.Variables.Add Name:="DwgNo", Value:=Table.Cells(i, 7).Text
ActiveDocument.Variables.Add Name:="VerNo", Value:=Table.Cells(i, 8).Text
ActiveDocument.Variables.Add Name:="Sheet", Value:=Table.Cells(i, 9).Text
ActiveDocument.Variables.Add Name:="Major", Value:=Table.Cells(i, 10).Text

ActiveDocument.Fields.Update
ActiveDocument.SaveAs ThisWorkbook.Path
ActiveDocument.SaveAs Filename:="第" & Table.Cells(i, 8).Text & "版" & Table.Cells(i, 16).Text & "-" & Table.Cells(i, 6).Text & ".doc"

Next
'
End Sub
展开
 我来答
oshi0016e16a8d
2018-02-10 · TA获得超过3070个赞
知道大有可为答主
回答量:2601
采纳率:84%
帮助的人:671万
展开全部
一般情况下点出来的提示性错误,看停留在哪一行.
个人感觉这句代码可能会有点问题.你可以检查一下:
FilePath = ThisWorkbook.Path & "\1.0.docm" 这个似乎并不是EXCEL的文档.
所以后面的操作就会出错了.
Set Table = Sheets("封皮").UsedRange()
你需要先将WORD文档中的表格对象获取.再进行操作吧.
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式