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 cieki
Kod:
"\\corp1.ad-is.net\tebdfs04\331_Process\Restricted\--== STANDARDS ==--\classes\PCDS\EAAS1_PN25_50C.doc"

za pomoc kodu w module Excela.

Z gry dzikuj

_________________
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 rozwizaniem jest poniszy kod:

Kod:
Sub UruchomDokumentWorda()
    Dim Word As Object
    
    Set Word = CreateObject("Word.Application") 'Tworzy obiekt dla aplikacji Word przez pne wizanie
    
    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 mona odnale pliku.", vbCritical + vbOKOnly, "Bd pliku"
        Case 5273
            MsgBox "Nieprawidowa nazwa dokumentu lub cieki dostpu.", vbCritical + vbOKOnly, "Bd pliku"
        Case Else
            MsgBox "Wystpi nieoczekiwany bd nr " & Err.Number & ", ktry przerwa dziaanie procedury.", vbCritical + vbOKOnly, "Bd 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 Dziki !
_________________
Pozdrawiam
Jurek
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
karolinavb
Site Admin


Doczy: 25 Maj 2005
Posty: 7889

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

Zanim otworzysz aplikacj Word bezwzgldnie sprawd czy plik istnieje, kody s na forum!
Obsuga bdw 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 "Bd Nr: " & Err.Number & vbNewLine & _
           "Opis bdu:" & 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.10114 sekund, zapytan = 11
contact

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