Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
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
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfad und datei definieren

Pfad und datei definieren
08.04.2016 16:06:01
soletto
Hallo,
wie kann ich in meinem Makro den Ordnerpfad und die
Datei definieren:
pfad = wkbDieses.Path & "\"
datei = "Werkstoffdatenbank.xlsm"
Set wkbData = Workbooks.Open(Filename:=pfad & datei, ReadOnly:=True)
Set wksData = wkbData.Sheets("Zentrale")
also ich will hier einen definierten Ort angeben können wo besagte datei zu finden ist. Für das Makro später.
Vielen Dank!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad und datei definieren
08.04.2016 16:35:24
Fennek
Hallo,
ungeprüft:

Dim wkbdata as workbook
Pfad = thisworkbook.path &"\"
datei = "werkstoffdatenbank.xlsm"
Set wkbdata = workbooks.open(Pfad & datei)
With wbbdata.sheets("zentrale")
End with
Mfg

AW: Pfad und datei definieren
10.04.2016 09:58:03
soletto
hmm danke , aber wie soll ich das eingeben:
will ja den pfad definieren. zum beispiel:
C:\Users\soletto\Desktop\Routine\Routine_HP_Rohr_v11\Werkstoffdatenbank.xlsm
sodass beide Dateien getrennt voneinander liegen können.

AW: Pfad und datei definieren
10.04.2016 10:05:31
soletto
Hier nocheinmal mein komplettes Makro:
103601_Werkstoffe_DB.xlsm Liegt nun irgendwo in einem ganz anderen Ordner.
Den will ich hier nun angeben können. Nur weis ich leide rnoch nicht wie ich das umschreiben soll,
das ich hier den Pfad angeben kann :-(
Sub Einlesen()
Dim pfad$, datei$
Dim wkbDieses As Workbook, wkbData As Workbook
Dim wksZiel As Worksheet, wksData As Worksheet
Dim Spalte&, SpalteMax&
Dim arrSuche As Variant
Set wkbDieses = ActiveWorkbook
Set wksZiel = wkbDieses.Sheets("Test")  'in deinem Beispiel "Test"
With wksZiel
SpalteMax = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
pfad = wkbDieses.Path & "\"
datei = "103601_Werkstoffe_DB.xlsm"
Set wkbData = Workbooks.Open(Filename:=pfad & datei, ReadOnly:=True)
Set wksData = wkbData.Sheets("Zentrale")
' Yield Strenth @ TRaum for
For Spalte = 3 To SpalteMax
'Werte in Rechenblatt eintragen
wksData.Range("F19") = wksZiel.Cells(2, Spalte).Value 'Werkstoff
wksData.Range("I3") = wksZiel.Cells(3, Spalte).Value 's-Wert
wksData.Range("I4") = wksZiel.Cells(4, Spalte).Value 'T-Wert
'Ergebnis zurückschreiben
Application.Run datei & "!WerkstoffLaden", wksZiel.Cells(5, Spalte)
If IsError(wksData.Range("I1")) Then
wksZiel.Cells(5, Spalte) = ""
Else
wksZiel.Cells(5, Spalte) = wksData.Range("I1")
End If
Next
wkbData.Close savechanges:=False
End Sub

Vielen Dank!

Anzeige
AW: Pfad und datei definieren
10.04.2016 10:24:19
soletto
Habe das Problem glaub ich gelöst. EInfach folgendes eingegeben:
pfad = "C:\Users\soletto\Desktop\Test\"
datei = "103601_Werkstoffe_DB.xlsm"
Funktioniert soweit. Ist das so korrekt?
Vielen Dank!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige