Forum Coders' city Strona Gwna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UytkownicyUytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj si, by sprawdzi wiadomociZaloguj si, by sprawdzi wiadomoci   ZalogujZaloguj 

Potrzebuj szybkiej odpowiedzi na moje pytanie... Zasady

[Excel] - Otwieranie pliku Worda makrem



 
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Oprogramowanie biurowe
Zobacz poprzedni temat :: Zobacz nastpny temat  
Autor Wiadomo
jurek



Doczy: 20 Lut 2008
Posty: 116
Skd: z mazowieckiej wsi

PostWysany: Sro Sie 29, 2018 10:28 am  OP    Temat postu: [Excel] - Otwieranie pliku Worda makrem Odpowiedz z cytatem Pisownia

Cze??,

Szukam porady jak otworzy? plik Worda ze wskazanej ?cie?ki
Kod:
"\\corp1.ad-is.net\tebdfs04\331_Process\Restricted\--== STANDARDS ==--\classes\PCDS\EAAS1_PN25_50C.doc"

za pomoc? kodu w module Excela.

Z gry dzi?kuj?

_________________
Pozdrawiam
Jurek
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
Bajt128
Go





PostWysany: Sro Sie 29, 2018 11:32 am      Temat postu: Odpowiedz z cytatem Pisownia

Witam.

Najprostszym rozwi?zaniem jest poni?szy kod:

Kod:
Sub UruchomDokumentWorda()
    Dim Word As Object
    
    Set Word = CreateObject("Word.Application") 'Tworzy obiekt dla aplikacji Word przez p?ne wi?zanie
    
    On Error GoTo BladProcedury
    With Word
        .Visible = True
        .Documents.Open "\\corp1.ad-is.net\tebdfs04\331_Process\Restricted\--== STANDARDS ==--\classes\PCDS\EAAS1_PN25_50C.doc"
    End With
    
    Exit Sub
    
BladProcedury:
    Word.Quit 'Zamyka aplikacj?
    Select Case Err.Number
        Case 5173
            MsgBox "Nie mo?na odnale?? pliku.", vbCritical + vbOKOnly, "B??d pliku"
        Case 5273
            MsgBox "Nieprawid?owa nazwa dokumentu lub ?cie?ki dost?pu.", vbCritical + vbOKOnly, "B??d pliku"
        Case Else
            MsgBox "Wyst?pi? nieoczekiwany b??d nr " & Err.Number & ", ktry przerwa? dzia?anie procedury.", vbCritical + vbOKOnly, "B??d procedury"
    End Select
End Sub
Powrt do gry
jurek



Doczy: 20 Lut 2008
Posty: 116
Skd: z mazowieckiej wsi

PostWysany: Sro Sie 29, 2018 12:38 pm  OP    Temat postu: [Excel] - Otwieranie pliku Worda makrem Odpowiedz z cytatem Pisownia

Wielkie Dzi?ki !
_________________
Pozdrawiam
Jurek
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
karolinavb
Site Admin


Doczy: 25 Maj 2005
Posty: 7930

PostWysany: Sro Sie 29, 2018 7:22 pm      Temat postu: Odpowiedz z cytatem Pisownia

Zanim otworzysz aplikacj? Word bezwzgl?dnie sprawd? czy plik istnieje, kody s? na forum!
Obs?uga b??dw raczej tak:
Kod:
Sub UruchomDokumentWorda()
    On Error GoTo UruchomDokumentWorda_Error
    Dim Word                      As Object
    ' tu kod procedury
    '---------------------
UruchomDokumentWorda_Exit:
    On Error Resume Next
    If Not (Word Is Nothing) Then
        Word.Quit False                '**** False
        Set Word = Nothing
    End If
    Exit Sub

UruchomDokumentWorda_Error:
    MsgBox "B??d Nr: " & Err.Number & vbNewLine & _
           "Opis b??du:" & Err.Description & vbNewLine & _
           "Procedura UruchomDokumentWorda "
    Resume UruchomDokumentWorda_Exit
End Sub

Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
Wywietl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Oprogramowanie biurowe Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Moesz pisa nowe tematy
Moesz odpowiada w tematach
Nie moesz zmienia swoich postw
Nie moesz usuwa swoich postw
Nie moesz gosowa w ankietach
Moesz dodawa zaczniki na tym forum
Moesz pobiera pliki z tego forum




Debug: strone wygenerowano w 0.23867 sekund, zapytan = 11
contact

| Darmowe programy i porady Jelcyna | Tansze zakupy w Helionie | MS Office Blog |