Forum Coders' city Strona Główna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Potrzebuję szybkiej odpowiedzi na moje pytanie... Zasady

[Excel] - Otwieranie pliku Worda makrem



 
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Oprogramowanie biurowe
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
jurek



Dołączył: 20 Lut 2008
Posty: 116
Skąd: z mazowieckiej wsi

PostWysłany: 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 góry dzi?kuj?

_________________
Pozdrawiam
Jurek
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
Bajt128
Gość





PostWysłany: 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 & ", który przerwa? dzia?anie procedury.", vbCritical + vbOKOnly, "B??d procedury"
    End Select
End Sub
Powrót do góry
jurek



Dołączył: 20 Lut 2008
Posty: 116
Skąd: z mazowieckiej wsi

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

Wielkie Dzi?ki !
_________________
Pozdrawiam
Jurek
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
karolinavb
Site Admin


Dołączył: 25 Maj 2005
Posty: 7930

PostWysłany: 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??dów 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

Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
Wyświetl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Oprogramowanie biurowe Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Możesz dodawać załączniki na tym forum
Możesz pobierać pliki z tego forum




Debug: strone wygenerowano w 0.23959 sekund, zapytan = 12
contact

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