Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Automatyczne uruchomienie aplikacji pod Excela + zakończenie bez zapisu?
Gutek




Typ: neutral
Postów: 7
Zarejestrowany: Apr 2004
Automatyczne uruchomienie aplikacji pod Excela + zakończenie bez zapisu?

Witam, czy istnieje jakiś sposób na uruchomienie aplikacji wykonanej pod Excelem gdy np. uruchomie plik ***.xls. Gdy zamykam aplikacje przez Application.Quit to wtedy Excel pyta się czy zapisać zmiany w pliku. W jaki sposób można wykonać tą operację tak żeby zamknąć Excela bez zapisu.

Dzięki i pozdrawiam

06-05-2004 00:04
Pokaż profil Gutek  Wyślij email do Gutek   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Przed użyciem polecenia Quit należy dla otwartego arkusza zastosować metodę:
1 - Jeśli tylko jeden otwarty (oczywiście objExcel - nazwa stworzonego przez Ciebie obiektu Excel):
objExcel.Workbooks("bajka.xls" ).Close SaveChanges:=False
2 -Jeśli więcej to należy operację zamknięcia wykonać w pętli for dla każdego skoroszytu "j"
for....
objExcel.Workbooks(j).Close SaveChanges:=False
next
Liczba otwartych skoroszytów zawarta jest we właściwości objExcel.Workbooks.Count
i dopiero zamknąć Excela.
Jeśli ta oberacja ma być wykonana z wewnątrz Excela za pomocą VBA wtedy w module należy zamiast "ObjExcel.Workbooks... itd " pisać "Application.Workbooks... itd ", bądź bezpośrednio np.
Workbooks(j).Close SaveChanges:=False


_____________________________________________
Karolina

06-05-2004 15:09
Pokaż profil karolinavb  Wyślij email do karolinavb   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Ciąg dalszy opowiedzi, przykład jeśli mamy zamknąć Excela z kodu VBA w samym Excelu

Sub MyExcelClose()
Dim oWorkbook As Workbook
For Each oWorkbook In Application.Workbooks
    ' zamykamy z wyjątkiem tego arkusza w którym jest ta funkcja
    ' zamykająca bo inaczej sie nie zamknie
    If oWorkbook.Name <> ThisWorkbook.Name Then
        oWorkbook.Close SaveChanges:=False ' zależnie od wymagań dla iinych arkuszy
    End If
Next
' ustawiamy alert na false
Application.DisplayAlerts = False
Application.Quit
End Sub

Pozdrawiam Karolina


_____________________________________________
Karolina

08-05-2004 20:18
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1