Pfad suchen/ Datei öffnen/ importieren
01.03.2005 09:08:06
Uwe
ich habe ein Problem mit einem Datenimport.
Aus einem Excel-Tool werden vor einem Versionswechsel bestimmte Excel-Tabellenblätter ausgelagert. Diese Daten werden anschließend, nachdem man die ältere Version aus dem Verzeichnis gelöscht hat und die neue Version in das Verzeichnis gespeichert hat, wieder eingelesen.
Das Verzeichnis heißt: i:\Karlsruhe\Controlling\Pipeline. Die zu importierende Datei heißt "Versionswechsel.xls". Das Excel-Tool befindet sich ebenfalls in diesem Verzeichnis.
Der Datenimport funktioniert jedoch nur, wenn ich aus dem Excel-Tool die Datei "Versionswechsel.xls" öffne und dann erst den Datenimport durchführe oder,
wenn ich die Datei auf der obersten ebene abspeichere (i:\Versionswechsel.xls).
Woran liegt es, dass das Tool die Datei ohne öffnen nur in i:\ und nicht in i:\Karlsruhe\Controlling\Pipeline findet?
Anbei mein Makro für den Datenimport
Dim Pfad As String
Sub Dataimport()
ActiveWorkbook.Save
Application.ScreenUpdating = False
' Blatt aktuell wird zum Versand vorbereitet
' Dateiname aufgreifen
Pfad = Range("B42") '(i:\Karlsruhe\Controlling\Pipeline\Versionswechsel.xls)
On Error GoTo Ende
Workbooks.Open ("Versionswechsel CP.xls")
Windows("Pipeline.xls").Activate
Sheets("Aktuell").Visible = True
Sheets("Aktuell").Unprotect
Windows("Versionswechsel CP.xls").Activate
Sheets("Aktuell").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Pipeline.xls").Activate
Sheets("Aktuell").Select
Cells.Select
ActiveSheet.Paste
Windows("Versionswechsel CP.xls").Activate
'Datei schließen
ActiveWorkbook.Save
ActiveWorkbook.Close
Ende:
End Sub
Gruß
Uwe