一直用得好好的，不知道哪出问题了保存不了了！急求助！

danhanqing

Sub 保存操作(frm As UserForm)
Dim wb As Workbook, fileName
Path = "G:\02：管理资料\01－报价资料\对外报价\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = CreateObject("Scripting.FileSystemObject")
    path1 = Path & frm.Controls(页面名称 & "_" & "单位名称").Value
    path2 = Path & frm.Controls(页面名称 & "_" & "单位名称").Value & "\对帐单"
    If fso.folderexists(path1) Then
        If fso.folderexists(path2) Then
            GoTo danniell
        Else
            MkDir path2
        End If
    Else
        MkDir path1
        MkDir path2
    End If

danniell:
    Sheets("对帐单模版").Select
    Sheets("对帐单模版").Copy
    Set wb = ActiveWorkbook
    ActiveWorkbook.Sheets("对帐单模版").Range("a1:K65536").Select
    ActiveWorkbook.Sheets("对帐单模版").Range("a1:K65536").EntireColumn.AutoFit
    ActiveSheet.Range("A1").Select
    fileName = frm.Controls(页面名称 & "_" & "单位名称").Value & "：" & Format(对帐期间, "yyyy年mm月dd日") & "－" & 报表类别 & ".xls"
'    On Error Resume Next
    Set wbk = Workbooks(fileName)
    If Err.Number <> 0 Then
    wb.SaveAs fileName:=path2 & "\" & fileName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    wb.Close False
    Else
        wb.Close False
    End If
    Err.Clear
End Sub

错误提示是：
    Set wbk = Workbooks(fileName)下标越界


急急急！万分感谢！

kuangben8

上传附件，才好帮助的。

danhanqing

数据库有点大，是与文件分离的……

abc123281

Set wbk = Workbooks.Open(Filename)