- Option Explicit
- Private Sub Worksheet_Change(ByVal Target As Range)
- Application.DisplayAlerts = False
- If Target.Address(0, 0) = "A1" Then
-
- Dim Bo As Workbook, Save_Name As String, E As Object
-
- With ActiveWorkbook
-
- Save_Name = "D:\" & [A1] & ".xls"
- .Sheets("工作表1").Copy
- End With
-
- With ActiveWorkbook
- For Each E In .VBProject.VBComponent
- E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines
- Next
- .SaveCopyAs Save_Name
- .Close False
- End With
-
- [A1].Select
- End If
-
- Application.DisplayAlerts = True
- End Sub
結果變成無限迴圈~不知道為什麼會這樣~懇求大大們幫忙~謝謝! |
發表於 2013-3-14 14:01
| 
