Office: variabler dateiname in "workbooks"

Kev4020 · 14. März 2005

hallo und liebe grüße ins forum...

ich habe mal wieder ein kleines problem, was meine ganze mission zum scheitern bringen könnte.
ich habe ein macro gestrickt, welches mir eine template-datei aufmacht, diese erstmal nach einem dateinamen umbenennt, die schon vorhanden ist und die werte aus dieser alten datei in die neu erstellte reinbläst. nun muss ich diese neue datei ja wieder zumachen, damit ich dieses ganze migrationsgebrabbel mit weiteren dateien automatisch weitermachen kann. nun ist aber das problem, dass sich dieser dateiname schließlich immer ändert. wie kann ich dieses workbook immer wieder mit anderem namen schließen?
Code:

Sub datenübernehmen()
Dim path As String
Dim dateiname As String
Dim i As Integer ' aktuelle Zeile
Dim j As Integer ' aktuelle Spalte
Dim k As Integer
Dim l As Integer
Dim ws As Worksheet
Dim strPathName As String
Dim strFileName As String
Dim Dateien As Integer
Dim dateiname2 As String
Dim z As Integer

j = 1 'Spaltennummer in Sheet1
k = 2 'startzeile
l = 1

i = 1

path = CurDir
dateiname2 = path & "QA_TestCases1.3beta.xls"
Workbooks.Open Filename:=dateiname2
Set ws = ActiveWorkbook.Sheets("General")
Workbooks("Data-Migration-Tool160305templateextra.xls").Activate
Sheet1.Activate
Do Until IsEmpty(Cells(i, 1)) ' 1 x pro Zeile, bis leere Zelle in 1. Spalte
strPathName = Cells(i, 1).Value
j = 2
Do While Not IsEmpty(Cells(i, j))
strFileName = Cells(i, j).Value
dateiname = strPathName & strFileName
z = z + 1
'Workbooks.Open Filename:=dateiname
Workbooks("QA_TestCases1.3beta.xls").Activate
ActiveWorkbook.SaveAs Filename:=dateiname & "_migratedfile.xls", Password:="", writerespassword:="", CreateBackup:=False, addtomru:=False
Application.DisplayAlerts = False
With Sheet6
.Activate
ws.Cells(7, 5) = .Cells(k, l) '

:)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

henning123 · 16. März 2005

hi kev
deine variable dateiname beinhaltet ja den gesamten pfad, aber bei workbooks( ).close musst du nur den dateinamen ohne den pfad angeben, also in deinem fall strFileName

befehl sieht dann so aus: Code:

windows("" & strFileName).close
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lumpensammler · 16. März 2005

Hallo, Kevin,

arbeite mit Objektvariablen für die beiden Mappen statt mit den Dateinamen {Set wkbThis = Thisworkbook bzw. Set wkbThat = Workbooks.Open(dateiname2)}.

Frage an Henning:
Warum sollen die Anführungszeichen angegeben werden, die nicht erscheinen?

Gruß
LS

henning123 · 16. März 2005

hast recht, geht auch ohne *wink.gif*

Kev4020 · 16. März 2005

hallo henning,

leider funktioniert dein code so bei mir nicht. weder mit noch ohne "
ich hab mal die sache mit den objecten ausprobiert:

Code:

Set wbkdatamigration = ThisWorkbook
Set wbkneuedatei = Workbooks.Open("" & dateiname2)
.
.
.
wbkneuedatei.Close
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aber das funktioniert nicht.
was mache ich falsch?

danke euch beiden erstmal
bin für jeden hinweis dankbar!

grüße kevin

Lumpensammler · 16. März 2005

Hallo, Kevin,

es wäre schön, wenn Du uns die von Excel ausgegebene Fehlermeldung oder aber die Stelle mitteilen könntest, an der der Fehler auftritt.

Gruß
LS

Kev4020 · 16. März 2005

also die fehlermeldung lautet:

Run-time error '-2147221080(800401a8)':
Automation error
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

tritt auf an:

Code:

'-----------------daten reinblasen--general-------------
With Sheet6
.Activate
ws.Cells(7, 5) = .Cells(k, l) '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

henning123 · 16. März 2005

hi kev,
den fehler kenn ich noch nicht, sorry!
also bei mir klappt das mit diesem code:
Code:

MsgBox ("Nun die SAP Datei anklicken.")
datwo = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
pos = 0
Do While InStr(pos + 1, datwo, "\", vbTextCompare) > pos
pos = InStr(pos + 1, datwo, "\", vbTextCompare)
Loop
dat = Mid(datwo, pos + 1)
Workbooks.Open Filename:="" & datwo
...
windows(dat).close
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

also die variable "datwo" hat den gesamten pfad gespeichert, die variable "dat" nur den dateinamen, die befehle funktionieren bei mir.
aber weiss nicht genau ob dir das weiterhilft

Kev4020 · 16. März 2005

hallo henning.

vielen dank, dein ansatz hat mir sehr geholfen.
ich hatte einen denkfehler drin. ich hab den dateinamen der originaldatei reingeschrieben. aber der speichert meine datei ja so: originalname.xls_migratedfile.xls da er die andere datei ja aber gar nicht aufmacht, kann er sie ja auch nicht schließen. diesen zusatz musste ich nur noch anhängen, damit er den richtigen dateinamen hat...

manchmal sieht man eben den wald vor lauter bäumen nicht *Smilie

vielen dank, nun macht er (fast) das, was ich will.
hab jetzt nur noch ein kleines anderes problem in dem code, dann funzts!

grüße kev

Kev4020 · 17. März 2005

hallo nochmal...

also über ein problem wunder ich mich noch...
hier erstmal mein aktueller code:
Code:

Sub datenübernehmen()
Dim path As String
Dim dateiname As String
Dim i As Integer ' aktuelle Zeile
Dim j As Integer ' aktuelle Spalte
Dim k As Integer
Dim l As Integer
Dim ws As Worksheet
Dim dateinamemigr As String
Dim a As Integer
Dim strPathName As String
Dim strFileName As String
Dim Dateien As Integer
Dim dateiname2 As String
Dim z As Integer

j = 1 'Spaltennummer in Sheet1
k = 2 'startzeile
l = 1
i = 1

path = CurDir
dateiname2 = path & "\QA_TestCases1.3beta.xls"
Workbooks("Data-Migration-Tool170305.xls").Activate
Sheet1.Activate
Do Until IsEmpty(Cells(i, 1)) ' 1 x pro Zeile, bis leere Zelle in 1. Spalte
strPathName = Cells(i, 1).Value
j = 2

Do While Not IsEmpty(Cells(i, j))
strFileName = Cells(i, j).Value
dateiname = strPathName & strFileName
dateinamemigr = strFileName & "_migratedfile.xls"
Sheet9.Activate
For a = 1 To TotFiles
Cells(a, 1).Formula = dateiname
Cells(a, 5).Formula = "-->"
Cells(a, 6).Formula = dateinamemigr
Rows("a:a").Select
Selection.Insert Shift:=xlDown
Selection.ClearFormats
Next a
z = z + 1
Workbooks.Open Filename:=dateiname2
Set ws = ActiveWorkbook.Sheets("General")
ActiveWorkbook.SaveAs Filename:=dateiname & "_migratedfile.xls", Password:="", writerespassword:="", CreateBackup:=False, addtomru:=False
Application.DisplayAlerts = False

'-----------------daten reinblasen--general-------------
With Sheet5
.Activate
ws.Cells(7, 5) = .Cells(l, 1) '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: variabler dateiname in "workbooks"

variabler dateiname in "workbooks"

variabler dateiname in "workbooks"

variabler dateiname in "workbooks"

variabler dateiname in "workbooks"

variabler dateiname in "workbooks" - Similar Threads - variabler dateiname workbooks

Dateinamen mit Platzhalter abfragen und in Variable speichern

Variablen Dateinamen abfragen ob vorhanden und welche Nummer

Prüfung "ist Datei geöffnet?" mit teils variablem Dateinamen

Dateiname als Variable in Formel

Datei speichern mit variablem Dateinamen

Per Makro eine PDF erstellen mit variablem Dateinamen

aktueller dateiname nach öffnen einer variable zuweisen