Datei öffnet sich nicht

Bild

Betrifft: Datei öffnet sich nicht
von: Micha
Geschrieben am: 01.12.2003 11:09:26

Hallo! Übergebe an ein Unterprogramm einen Dateinamen dann wird zwar das richtige Prog geöffnet aber nicht die Datei warum?

endung = LCase(Right(ZuOeffnendeDatei(1), 3))
name = LCase(ZuOeffnendeDatei(1))
If endung = "doc" Then
Call WORD(name)
End If




Sub WORD(ByVal d As String)
    Dim olApp As Object
    Set olApp = CreateObject("Word.Application")
    olApp.Workbooks.Open "d"
    
End Sub




Micha
Bild


Betrifft: AW: Datei öffnet sich nicht
von: FCH
Geschrieben am: 01.12.2003 11:25:56

Hi,

Word kennt keine Workbooks und das "d" in den Tüddelchen ist keine Variable, sondern halt ein d.

Versuche es so:


Sub WORD(ByVal d As String)
    Dim olApp As Object
    Set olApp = CreateObject("Word.Application")
    With olApp
    .Visible = True
    .Documents.Open (d)
    End With
End Sub


Gruß
FCH


Bild


Betrifft: AW: Datei öffnet sich nicht
von: Jan
Geschrieben am: 01.12.2003 11:27:42

.open ohne Anführungszeichen sollte das Problem lösen.


olApp.Workbooks.Open d


mfg
Jan


Bild

Beiträge aus den Excel-Beispielen zum Thema " Bestimmte Formatierung beim drucken weglassen"