加入判断未选择文件代码后，运行异常类型不匹配

draftroman

以下是一段代码，红色部分未加入前，运行一切正常，加入后可以判断出未选择文件的异常，但是选择文件后报错【类型不匹配】，请高手帮忙修正代码。

filename =Application.GetOpenFilename("2003格式 (*.xls;*.xla),*.xls;xla ,2007格式 (*.xl??), *.xl??", 2, "",MultiSelect:=True)

     

   If filename = False Then

   MsgBox "你没有选择文件", vbOKOnly, "提示"

   Exit Sub

   End If

If VBA.IsArray(filename) Then

For i = LBound(filename) ToUBound(filename)

Set wb = GetObject(filename(i))

Ifwb.Sheets(1).Name <> "期初数" Then

Application.ScreenUpdating = True

wb.Close SaveChanges:=xlDoNotSaveChanges

ExitSub

EndIf

Setsht = wb.Sheets(1)

ThisWorkbook.Activate

n_z= sht.Cells.SpecialCells(11).Row

sht_zhis.Range("A2：O" & sht.Range("F1048576").End(xlUp).Row + 1) =sht.Range("A1：O" &sht.Range("F1048576").End(xlUp).Row).Value

wb.Close

Nexti

EndIf

ykcbf1100

红色部分改成这样：
If len(filename) = 0 Then  Exit Sub

quqiyuan

这样也改，你红色部分删除，仅供参考。。。

quqiyuan

代码如下。。。。
Filename = Application.GetOpenFilename("2003格式 (*.xls;*.xla),*.xls;xla ,2007格式 (*.xl??), *.xl??", 2, "", MultiSelect:=True)

If VBA.IsArray(Filename) Then
    For i = LBound(Filename) To UBound(Filename)
        Set wb = GetObject(Filename(i))
        If wb.Sheets(1).Name <> "期初数" Then
        Application.ScreenUpdating = True
        wb.Close SaveChanges:=xlDoNotSaveChanges
        ExitSub
        End If
        Setsht = wb.Sheets(1)
        ThisWorkbook.Activate
        n_z = sht.Cells.SpecialCells(11).Row
        sht_zhis.Range("A2：O" & sht.Range("F1048576").End(xlUp).Row + 1) = sht.Range("A1：O" & sht.Range("F1048576").End(xlUp).Row).Value
        wb.Close
    Next i
ElseIf Filename = "False" Then
    MsgBox "你没有选择文件", vbOKOnly, "提示"
    Exit Sub
Else

End If