[已解决]提示，错误5，是什么原因

yjwdjfqb

hwc2ycy 发表于 2014-6-30 22:10
这是你自己动手的结果。

咱解决的，，把出错的地方给说下吧。

也是，请教其他老师的，

先把当前工作薄名称、路径、扩展名赋值

    Dim myName As String, mykzm As String, myPath As String
    myPath = ActiveWorkbook.Path    '当前工作薄路径赋值
    myName = Split(ActiveWorkbook.name, ".")(0)    '当前工作薄名称赋值
    mykzm = Mid(ActiveWorkbook.name, InStrRev(ActiveWorkbook.name, "."))    '当前工作薄扩展名赋值
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                mySheet = mySheet & .List(i) & "︱"    '这里的"︱" 是用来分隔工作表名称
                j = j + 1
            End If
        Next
    End With
    If Len(mySheet) Then
        mySheet = Left(mySheet, Len(mySheet) - 1)
    Else
        MsgBox "你没有选择要导出的工作表！"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    Select Case True
    Case j > 1
        Worksheets(Split(mySheet, "︱")).Copy
        strName = myPath & "\" & myName & "_" & "导出数据" & mykzm