Question

使用vb引用变量名路径，提示错误类型不匹配

Option Explicit
Public mypath As String

Private Sub Command1_Click()
Dim h%, n%, num%
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbooks
Dim xlsheet As Excel.Sheets
Me.CommonDialog1.ShowOpen
mypath = Me.CommonDialog1.FileName
MsgBox mypath
Set xlapp = New Excel.Application '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open(mypath)
num = InputBox("请输入考场人数：")
num = num + 2
xlapp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlsheet = xlapp.xlbook.Worksheets("考场表")
n = 1
If num Mod 2 = 0 Then
For h = num To 1000 Step num
Cells(h, 1).EntireRow.Select
ActiveSheet.Rows(Selection.Row).Insert
ActiveSheet.Rows(Selection.Row).Insert
Cells(h, 1) = "第" & n & "考场"
Cells(h + 1, 1) = "第" & n & "考场"
n = n + 1
Next
Else
For h = num To 1000 Step num - 1
Cells(h, 1).EntireRow.Select
ActiveSheet.Rows(Selection.Row).Insert
Cells(h, 1) = "第" & n & "考场"
n = n + 1
Next
End If
xlbook.Close
xlapp.Quit
Set xlapp = Nothing
End Sub

Answer 1

问题应该出在 mypath = Me.CommonDialog1.FileName 上
这个打开文件对话框，如果没选择文件，返回的是个错误空路径
这个是常识问题，应该在后在加句判断，若返回值无效就结束过程。
If Trim(mypath)="" Or dir(mypath, 1 Or 2 Or 4 )="" Then Exit Sub