Question

VB程序运行时出现错误‘13’，类型不匹配， 有没有人给解释一下

Private Sub CommandButton1_Click()
Dim i, number As Integer
Dim wpsno, wpsDIR, MyPath
number = 82
For i = 1 To number Step 2
If Len(Range("B" & i)) < 20 Then i = i + 1

wpsno = Range("B" & i).Value
wpsDIR = Range("D" & i).Value
'ThisWorkbook.SaveCopyAs "c:\xx.xls"
Set wshell = CreateObject("wscript.shell")
'MsgBox ThisWorkbook.Path
MyPath = ThisWorkbook.Path
'Set shotcut = wshell.createshortcut(wshell.specialfolders(MyPath) & "\" & wpsno & ".lnk")
Set shotcut = wshell.createshortcut(MyPath & "\" & wpsno & ".lnk")
shotcut.targetpath = wpsDIR
shotcut.windowstyle = 7
shotcut.Save
Set shotcut = Nothing
Set wshell = Nothing
Next i
End Sub

'"desktop"
我也不知道哪句话出错，这是excel的一个调用程序。

Answer 1

你这个只能在Excel里使用?

我复制你的代码，试了，没有提示错误．

Answer 2

是哪句话出错，提示这个信息，请标示出来啊