Private Okręt podwodny CommandButton5_Click ()
'Bieg macro ekstrakt i oprócz Rekomendacja prześcieradło oddzielny Przodować kartoteka
'-----------------------------------------------------
'Oznajmiać zmienna
'-----------------------------------------------------
Ćmić wbNewBook Jako Workbook
Ćmić fName Jako Wariant
Ćmić sourceWB Sznurek
Ćmić DGSSPkgNo Sznurek
Ćmić Ostrzeżenie Sznurek
Const pw Jako Sznurek = "delpdgsskey"
'---------------------------------------------------------
'Initialize zmienna dla magazynowanie Nabywca Wkład informacja
'---------------------------------------------------------
DGSSPkgNo = Prześcieradło ("Projekt Chodnikowiec Prześcieradło - PECET"). Komórka (7, 3).Value
fName = "C:\LeanDGSS\" & DGSSPkgNo &" _LeanWksht_SN "
Application.EnableEvents = Fałszywy
Na Błąd Rozpoczynający Kończyć
'*************************************************************
'Skłaniać the użytkownik dla kartoteka - imię, i wtedy ratować the workbook
'*************************************************************
Jeżeli DGSSPkgNo = "" Wtedy
'Definiować wiadomość
Ostrzeżenie = MsgBox ("The DGSS Projekt # musieć wchodzić do" & _
vbCrLf & "w the Projekt Chodnikowiec Prześcieradło przed Eksport", vbOKOnly, "Ostrzegać! ")
Application.EnableEvents = Prawdziwy
Wyjście Okręt podwodny
Inny
ThisWorkbook.Worksheets ("Polecać Dostawca Data_SN"). Kopia
ActiveWorkbook.SaveAs Filename: =fName
Kończyć Jeżeli
Application.EnableEvents = Prawdziwy
'Wywoławczy Module2 Procedura VBA Składnik
ActiveWorkbook.Sheets ("Polecać Dostawca Data_SN"). Unprotect pw
Ciemnawy objDocument Jako Workbook
Ustalony objDocument = ActiveWorkbook
Wywoławczy RemoveAllMacros (objDocument)
Wyjście Okręt podwodny
Kończyć:
MsgBox "Błąd zdarzać się: Weryfikować kartoteka już istnieć w kartoteka ścieżka"
Kończyć Okręt podwodny
'-----------------------------------------------------
Jawny Okręt podwodny RemoveAllMacros (objDocument Przedmiot)
Ciemnawy i Długo, l Długo
Jeżeli objDocument Być Okręt podwodny Wtedy Wychodzić Okręt podwodny
i = (0)
Na Błąd Życiorys Następnie
i = objDocument.VBProject.VBComponents.Count
Na Błąd Rozpoczynający (0)
Jeżeli i < (1) Wtedy 'żadny VBComponents lub ochraniać VBProject
MsgBox "The VBProject w" & objDocument.Name & _
"ochraniać lub mieć żadny składnik! ", _
vbInformation, "Usuwać Wszystkie Macros"
Wyjście Okręt podwodny
Kończyć Jeżeli
Z objDocument.VBProject
Dla i = .VBComponents.Count (1) Krok -1
Na Błąd Życiorys Następnie
.VBComponents.Remove .VBComponents (i)
'kasować the składnik
Na Błąd Rozpoczynający (0)
Następnie i
Końcówka Z
Z objDocument.VBProject
Dla i = .VBComponents.Count (1) Krok -1
l = (1)
Na Błąd Życiorys Następnie
l = .VBComponents (i) .CodeModule.CountOfLines
.VBComponents (i) .CodeModule.DeleteLines (1), l
'jasny linia
Na Błąd Rozpoczynający (0)
Następnie i
Końcówka Z
Końcówka Okręt podwodny
|