Question

请问这个EXCEL VBA程序哪里出错了，为什么出现错误？

Public Sub 叮叮当当()
Dim iRow
Dim iCol
Dim myArr(5)
Dim appWD As Word.Application
Dim docNew As Document
Dim curPath

curPath = ActiveWorkbook.Path
Set appWD = CreateObject("Word.Application")
Set docNew = appWD.Documents.Add(Template:=curPath & "计划报告.dot")

For iRow = 2 To Worksheets("Sheet1").UsedRange.Rows.Count
For iCal = 1 To 5
myArr(iCal) = Worksheets("Sheet1").Cells(iRow, iCal)
Next
With docNew.Content
.InsertAfter "第" & myArr(1) & "期" & ",等差额度为" & myArr(2)
.InsertAfter ",等比额度为" & myArr(3) & ",比例为" & myArr(4)
.InsertAfter ",赢利百分比为" & myArr(5) & "。" & vbCrLf
End With
Next
docNew.SaveAs Filename:=curPath & "Sample.doc"
docNew.Close
Set appWD = Nothing
Set docNew = Nothing

End Sub

请问为什么我运行到Set docNew = appWD.Documents.Add(Template:=curPath & "计划报告.dot")时总提示我运行时错误“5151”：word无法读取文件，文档可能损坏。请尝试些列方法：*打开并修复文件，*用文本转换器打开文件。
谢谢您！
把.dot改成doc试过，还是不行!

Answer 1

你好,你的路径可能是错了.
appWD.Documents.Add(Template:=curPath & "计划报告.dot")

curPath 中并不包括 "\"
所以正确的应该是
appWD.Documents.Add(Template:=curPath & "\计划报告.dot")

下面
docNew.SaveAs Filename:=curPath & "Sample.doc"
也是,就改为
docNew.SaveAs Filename:=curPath & "\Sample.doc"

应该就可以了

Answer 2

觉得提高写程序的技能最主要一个就是排错,调试的过程!!!
vb的调试其实还是很简单的,
可以应用F7,F8单步执行,把你所要实现的过程一步一步的执行,中间过程注意查看变量的结果是否有错误!!!
还可以应用断点..(主要是应用在循环比较多,只需要关注某一处的时候,可以设置一个条件,然后再其上加断点,再单步执行排错!)
你的这个问题,建议你先执行,找出错误地方,再单步执行,遇到和你的想法与思路不一致的地方,问baidu就ok了!!!

Answer 3

word文件的扩展名是.doc，不是.dot

Answer 4

2/3/4楼回答都不行，百度回答里面没有专业高手吗？