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

Script mehrere Pfade auslesen lassen

Script mehrere Pfade auslesen lassen
26.07.2006 20:27:30
Nicole
Hallo
ich benötige Eure Hilfe !
Folgendes Makro liest mir beim Öffnen der Arbeitsmappe
Automatisch das erste Blatt nach der Dateiangabe (Pfadangabe) in B1
ein.
Ich würde gerne gleich 3 Arbeitsblätter aus Dateien mit
unterschiedlichen Pfaden einlesen.
Kann mir da jemand helfen ?
Wäre echt nett !
Gruß Nicole

Private Sub Workbook_Open()
TabImport
End Sub

Sub TabImport()
Dim wkb As Workbook
Dim sFile As String
Application.ScreenUpdating = False
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Set wkb = Workbooks.Open(sFile, False)
With ThisWorkbook
Worksheets(1).Copy after:=.Worksheets(.Worksheets.Count)
End With
wkb.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Script mehrere Pfade auslesen lassen
26.07.2006 21:12:32
ede
hallo,
dann versuchs mal so:

Private Sub Workbook_Open()
call TabImport(Range("B1").Value)
call TabImport(Range("B2").Value)
call TabImport(Range("B3").Value)
End Sub

Sub TabImport(sFile as string)
Dim wkb As Workbook
'Dim sFile As String
Application.ScreenUpdating = False
'sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Set wkb = Workbooks.Open(sFile, False)
With ThisWorkbook
Worksheets(1).Copy after:=.Worksheets(.Worksheets.Count)
End With
wkb.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Anzeige
AW: Script mehrere Pfade auslesen lassen
26.07.2006 22:06:23
Nicole
Hallo,
vielen Dank für deinen Vorschlag,
aber leider bekomme ich in der Zeile 2 call TabImport(Range("B1").Value)
Die Meldung: Falsche Anzahl an Argumenten oder
ungültige Zuweisung zu einer Eigenschaft.
Gruß Nicole
AW: Script mehrere Pfade auslesen lassen
27.07.2006 07:26:50
ede
habe gerade gesehen, das in deiner

Sub auch noch ein fehler ist.
du willst bestimmt aus dem workbook, welches du öffnest, das erste tabelleblatt in das aktuelle workbook kopieren.
dannn lautet der code so:

Sub TabImport(sFile As String)
Dim wkb As Workbook
'Dim sFile As String
Application.ScreenUpdating = False
'sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Set wkb = Workbooks.Open(sFile, False)
With ThisWorkbook
'Worksheets(1).Copy After:=.Worksheets(.Worksheets.Count)
wkb.Sheets(1).Copy After:=.Worksheets(.Worksheets.Count)
End With
wkb.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

gruss
und viel erfolg weiterhin
Anzeige
AW: Script mehrere Pfade auslesen lassen
28.07.2006 08:51:00
Nicole
Hallo ede
Leider kann ich mich erst jetzt wieder melden, sorry
Habe alles probiert, aber es funktioniert bei mir einfach nicht.
Es wird immer nur Zelle B1 berücksichtigt,
aber danke für deine Mühe
Gruß Nicole
AW: Script mehrere Pfade auslesen lassen
28.07.2006 09:13:20
Nicole
Hallo nochmal
habe nochmal ein bischen probiert und die
Scripte in eine neue Mappe geschrieben.
Jetzt klappt es.
Vielen Dank
Gruß Nicole
bitte o.t.
28.07.2006 10:58:03
ede
-

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige