X
ďťż

Ładny brzuch

No właśnie, jak uruchomić aplikację spod Access'a? Worda otwieram tak:
Private Sub Polecenie_Click() On Error GoTo Err_Polecenie_Click    Dim oApp As Object    Set oApp = CreateObject("Word.Application")    oApp.Visible = True Exit_Polecenie_Click:    Exit Sub Err_Polecenie_Click:    MsgBox Err.Description    Resume Exit_Polecenie_Click End Sub
Ale jak uruchomić inne aplikacje, choćby Excela?



No właśnie, jak uruchomić aplikację spod Access'a? Worda otwieram tak:
Private Sub Polecenie_Click() On Error GoTo Err_Polecenie_Click    Dim oApp As Object    Set oApp = CreateObject("Word.Application")    oApp.Visible = True Exit_Polecenie_Click:    Exit Sub Err_Polecenie_Click:    MsgBox Err.Description    Resume Exit_Polecenie_Click End Sub
Ale jak uruchomić inne aplikacje, choćby Excela?


Jeśli natomiast chcesz, aby aplikacja pokazywała się trochę dłużej, niż czas trwania procedury, to deklarację obiektu przenieś poza tę procedurę. Poza tym jeśli znasz ścieżkę do Excela, to możesz go odpalić poleceniem Shell.
Właśnie o to chodzi, Excel tylko mignie i tyle. Ale poradziłem już sobie w inny sposób:
Private Sub Polecenie_Click() On Error GoTo Err_Polecenie_Click    Dim oApp As Object    Set oApp = CreateObject("Excel.Application")    oApp.Visible = True    On Error Resume Next    oApp.UserControl = True Exit_Polecenie_Click:    Exit Sub Err_Polecenie_Click:    MsgBox Err.Description    Resume Exit_Polecenie_Click End Sub


Właśnie o to chodzi, Excel tylko mignie i tyle. Ale poradziłem już sobie w inny sposób:
Private Sub Polecenie_Click() On Error GoTo Err_Polecenie_Click    Dim oApp As Object    Set oApp = CreateObject("Excel.Application")    oApp.Visible = True    On Error Resume Next    oApp.UserControl = True Exit_Polecenie_Click:    Exit Sub Err_Polecenie_Click:    MsgBox Err.Description    Resume Exit_Polecenie_Click End Sub

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •  

    Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.