Ładny brzuch

No wanie, 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, choby Excela?



No wanie, 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, choby Excela?


Jeli natomiast chcesz, aby aplikacja pokazywaa si troch duej, ni czas trwania procedury, to deklaracj obiektu przenie poza t procedur. Poza tym jeli znasz ciek do Excela, to moesz go odpali poleceniem Shell.
Wanie o to chodzi, Excel tylko mignie i tyle. Ale poradziem ju sobie w inny sposb:
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


Wanie o to chodzi, Excel tylko mignie i tyle. Ale poradziem ju sobie w inny sposb:
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
    •