VBA-Code Änderung bei Dateiverschiebung

Bild

Betrifft: VBA-Code Änderung bei Dateiverschiebung
von: Jürgen K
Geschrieben am: 26.11.2003 09:59:36

Hallo Gemeinde,
ich habe in einer "Start-Datei" in "DieseArbeitsmappe" folgenden Code eingegeben:
PrivateSub Worbook_Open
Workbooks.Open Filename:="C:\.....\test1.xls
Workbooks.Open Filename:="C:\.....\test2.xls

Die Dateien test1 und test2 befinden sich immer im gleichen Verzeichnis wie die Start-Datei.
Wie sieht ein flexibler Code aus, der die test-Dateien immer in dem aktuellen Verzeichnis der Start-Datei sucht.
Ich hoffe ich habe mich verständlich und nicht zu kompliziert ausgedrückt.
Vielen Dank im voraus
Gruß Jürgen

Bild


Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: GerdW
Geschrieben am: 26.11.2003 10:03:01

dim Pfad as string

Pfad = Thisworkbook.Path & \test1.xls

Gerd


Bild


Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: Jürgen K
Geschrieben am: 26.11.2003 10:22:14

Bin leider in VBA unbeleckt.
Habe dein Vorschlag wie folgt umgesetzt aber Fehlermedung Laufzeitfehler erhalten:


Private Sub Workbook_Open()
Dim Pfad As String
Application.ScreenUpdating = False
Workbooks.Open Filename:="Thisworkbook.Path & \test 1.xls"
Workbooks.Open Filename:="Thisworkbook.Path & \test 2.xls"
Application.ScreenUpdating = True
End Sub

Was hab ich hier falsch gemacht?
Gruß Jürgen


Bild


Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: GerdW
Geschrieben am: 26.11.2003 11:01:00

Du musst mein Beispiel nur richtig umsetzen:
Dim Pfad As String
Pfad = Thisworkbook.Path & "\test1.xls"
Application.ScreenUpdating = False
Workbooks.Open Filename:=Pfad
oder:
Workbooks.Open Filename:= Thisworkbook.Path & "\test 2.xls"
Application.ScreenUpdating = True


Bild


Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: Jürgen K
Geschrieben am: 26.11.2003 11:26:27

Hallo Gerd,

damit ich es lerne, richtig umzusetzen, halte ich mich in diesem
Forum auf.

Vielen Dank

Gruß Jürgen


Bild


Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: Bernhard Ringhofer
Geschrieben am: 26.11.2003 11:01:30

so geht's:


Private Sub Workbook_Open()
Application.ScreenUpdating = False
Workbooks.Open Filename:=Thisworkbook.Path & "\test1.xls"
Workbooks.Open Filename:=Thisworkbook.Path & "\test2.xls"
Application.ScreenUpdating = True
End Sub


MfG Bernhard


Bild


Betrifft: So gehts. Vielen Dank!!
von: Jürgen K
Geschrieben am: 26.11.2003 11:24:29

Hallo Bernhard,

ausproboiert und kann bestätigen: so gehts:))

Vielen Dank und einen schönen Tag noch.

Viele Grüße
Jürgen


Bild

Beiträge aus den Excel-Beispielen zum Thema " VBA-Code Änderung bei Dateiverschiebung"