Question

vb运行时错误13，类型不匹配

If Worksheets("sheet1").Cells(k + 3, 3) <> 0 Then
.Goto What:=wdGoToBookmark, Name:="耕地"

.TypeText Text:="耕地" & Format(Worksheets("sheet1").Cells(k + 3, 3),
"#0.0000") & "公顷、"
（这句提示错误 →） GDmj = Format(Worksheets("sheet1").Cells(k + 3, 3), "#0.0000")

'耕地>0,记录数据为1，GDnum用于计算综合补偿标准
GDnum = 1

求解释

Answer 1

GDmj 你定义的是什么类型的
Worksheets("sheet1").Cells(k + 3, 3) 有可能内容是字符串 而 GDmj 是数值类型 左右类型不一致

Answer 2

你打包方法出现问题，把类文件也打包进去，。或者用VB自带的打包工具，你引用14.0这个DLL文件别人怎么获取呢？他又没注册插件，所以这就是VB6.0的烦恼