Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
924to928
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
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten importieren aus eimem Überordner

Daten importieren aus eimem Überordner
13.11.2007 15:55:51
edie
Hallo Zusammen,
importiere Daten aus einer geschlossenen Arbeitsmappe,
die im gleichen Verzeichnis liegt mit, hier ausschnitt:
Dim sPath As String, sFile As String
sPath = ThisWorkbook.Path
sFile = "Test.xls"
If Dir(sPath & "\" & sFile) = "" Then
Beep
MsgBox "Datei " & sFile & " nicht gefunden!"
Exit Sub
End If
...
Nun möchte ich importieren aus einer geschlossenen Arbeits-
mappe die eine Ebene höher liegt im "Überordner".
Wie lautet dann der Pfad?
Hat jemand eine Idee oder Beispiel?
Vielen Dank im Voraus.
Grüße

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten importieren aus eimem Überordner
13.11.2007 16:44:00
Rudi
Hallo,

Sub tt()
Dim sPATH As String
sPATH = ThisWorkbook.Path
sPATH = Left(sPATH, InStrRev(sPATH, "\"))
MsgBox sPATH
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Daten importieren aus eimem Überordner
13.11.2007 17:07:44
Peter
Hallo Rudi
Darf ich da noch eine Anschlussfrage stellen:
Wie müsste der Code erweitert werden, wenn der Pfad zwei Ebenen höher zurückgegeben werden soll?
Danke für eine Rückmeldung.
Peter

AW: Daten importieren aus eimem Überordner
13.11.2007 17:22:00
Rudi
Hallo,
schau in die Hilfe zu Textfunktionen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Daten importieren aus eimem Überordner
13.11.2007 17:56:00
Peter
Hallo Rudi
In diesem Fall verstehe ich davon nur Bahnhof.
Peter

AW: Daten importieren aus eimem Überordner
13.11.2007 18:30:32
edie
Hallo Rudi,
vielen Dank der Pfad funktioniert,
leider bekomme ich #BEZUG! in allen Zellen.
Hier der Code, vielleicht eine Idee zur Optimierung?

Sub Daten_Import()
Dim x As Integer
Dim sPATH As String, sFile As String, sWks As String
Dim sRange1 As String
Dim sRange2 As String
sWks = "Tabelle1"
x = ActiveSheet.UsedRange.Rows.Count
sRange1 = ("A2:A" & x)
sRange2 = ("B2:B" & x)
sPATH = ThisWorkbook.Path
sPATH = Left(sPATH, InStrRev(sPATH, "\"))
' MsgBox sPATH
'sPATH = ThisWorkbook.Path
sFile = "Test.xls"
If Dir(sPATH & "\" & sFile) = "" Then
Beep
MsgBox "Datei " & sFile & " nicht gefunden!"
Exit Sub
End If
Application.ScreenUpdating = False
On Error Resume Next
Range("A2:A").Formula = "='" & sPATH & _
"\[" & sFile & "]" & sWks & "'!" & sRange1
'  Range("A2:A100").Formula = "='" & sPATH & _
'"\[" & sFile & "]" & sWks & "'!" & sRange1
Range("B2:B").Formula = "='" & sPATH & _
"\[" & sFile & "]" & sWks & "'!" & sRange2
' Range("B2:B100").Formula = "='" & sPATH & _
'"\[" & sFile & "]" & sWks & "'!" & sRange2
Application.ScreenUpdating = True
End Sub


Vielen Dank im Voraus.
Grüße

Anzeige
AW: Daten importieren aus eimem Überordner
13.11.2007 19:07:00
edie
Hallo Rudi,
ich hab's so funktioniert 's z.B.:
Range("A2:A100").Formula = "='" & sPATH & _
"[" & sFile & "]" & sWks & "'!" & sRange1
Vielen vielen Dank.
Grüße

301 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 12:45:47
Thread-ID: 1013354
2 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
daten aus einem ordner öffnen
Swen

Hi @ all,
ich möchte gerne in einem Ordner "C:\Testdaten\"
alle wk1 files öffnen und verarbeiten!
wie kann ich den machen das alle in dem ordner liegenden files
göffnet werden und ich dann eine verarbeitung starten, und wenn das file fertig
bearbeitet ist das nächste geöff...
17.10.2008 19:49:00
Thread-ID: 1017267
3 Beiträge
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
alle Dateien aus Ordner drucken
Bruno

Guten Morgen zusammen
Aus einer Excelmappe möchte ich per VBA diverse PDFs, die zuvor mit Acrobat erstellt worden sind, zusammen drucken. Hier im Forum habe ich einen Code dazu gefunden, der sich jedoch nur auf eine einzelne Datei und nicht auf alle Dateien des Ordners bezieht. Nachstehend...
26.10.2008 10:40:00
Thread-ID: 1019322
5 Beiträge
alle Dateien und Verknüpfungen aus Ordner löschen
marcl

Guten Morgen Forumsgemeinde,
ich habe zwar ein Makro von Ramses, welches alle Dateien eines Ordners auflistet und löscht. Aber die Verknüpfungen findet es leider nicht. Hatte naiv mal mit "*.lnk" als Dateiname versucht. Aber das funzt net.
Wer kann mir weiter helfen?
Danke und Gruß...
26.11.2008 06:40:00
Thread-ID: 1027911
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
5
1
8
4
2
3
4
2
2
20
3
5
4
6
7
2
1
3
2
5
3
8
1