Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
604to608
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
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makro um eine excel datei zu öffnen

makro um eine excel datei zu öffnen
04.05.2005 13:36:13
ingo
Hallo,
vielleicht eine Amateurfrage, wie muss der VBA code aussehen um
eine best. Datei z.b. auf dem Pfad C:\Neuer Ordner\Berichtswesen\Erläuterungen.xls zu öffnen.
vielen dank im voraus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro um eine excel datei zu öffnen
04.05.2005 13:41:48
Katja
Hallo Ingo,

'Mit der nächsten Zeile wird die Datei geöffnet
Dim wb As Workbook
Set wb = Workbooks.Open("L:\BL_Einkauf\ISO 9001-2000\Mappe1.xls")
Gruß Katja

AW: makro um eine excel datei zu öffnen
04.05.2005 13:45:58
Hajo_Zi
Hallo Katja,
warum Set wb = ?
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: makro um eine excel datei zu öffnen
04.05.2005 13:55:32
Katja
Hallo Hajo,
du siehst echt alles :-). Habe den Code aus meinem Programm kopiert,
und das Set wird dort benötigt. Braucht man hier natürlich nicht.
Sorry Ingo, sorry Hajo...
mfg Katja
AW: makro um eine excel datei zu öffnen
04.05.2005 13:46:04
Harald
Hallo Ingo
für feste Dateinamen
Dim Filename As String
Filename = "C:\EigeneDateien\OrdnerXY\DeineDatei.xls"
If Dir(Filename) = "" Then
MsgBox "Gesuchte Datei wurde nicht gefunden."
Exit Sub
Else
Workbooks.Open Filename
End If
Für Dateien mit Namensteil in z.B. Zelle A1
Dim Filename As String
Filename = "C:\EigeneDateien\OrdnerXY\" & Range("A1")& ".xls"
If Dir(Filename) = "" Then
MsgBox "Gesuchte Datei wurde nicht gefunden."
Exit Sub
Else
Workbooks.Open Filename
End If
Gruß
Harald
Gruß
Harald
Anzeige
AW: makro um eine excel datei zu öffnen
04.05.2005 13:52:27
ingo
hallo, vielen dank, werde es gleich ausprobieren.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige