Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shell

Shell
03.02.2005 11:29:44
Fab
Hallo
Wie muss ich in der Shell-Zeile a einfügen, damit das Makro funktioniert?

Sub Wordöffnen()
Dim a
a = Application.Path
Shell ("" & a & "\winword.exe M:\Test\test.doc", 3)
End Sub

Gruss
Fab

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shell
UweD
Hallo
X = Shell(a & "\winword.exe M:\Test\test.doc", 3)
Es wird eine Rückgabewert erwartet
Ich mach so:

Sub Worddatei()
Pfad = ActiveWorkbook.Path & "\test.doc"
Dim WdApp As Object
Dim wdDok As Object
Set WdApp = CreateObject("Word.Application")
Set wdDok = WdApp.documents.Open(FileName:=Pfad, ReadOnly:=True) 'mit Schreibschutz
WdApp.Visible = True
WdApp.Activate
Set wdDok = Nothing
Set WdApp = Nothing
End Sub

Gruß UweD
AW: Shell
03.02.2005 11:58:21
Fab
Hallo UweD
Danke für dein Vorschlag. Irgendwie funktioniert dieser aber nicht bei mir. Das Laufwerk M: wird bei deinem Makro nirgends angewählt, ist das richtig so?
Gruss
Fab
Anzeige
AW: Shell
03.02.2005 12:17:08
Fab
Ich habe mein Problem über folgendes Makro gelöst:
Dim datei As String
Dim dok As Object
Dim wd As Object
datei = "F:\Vorlagen\briefMV.doc"
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set dok = wd.Documents.Open(datei)
Danke allen fürs Überlegen.
Fab

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige