Excelvorlage und ActiveWorkbook.Path problematisch ...

02/10/2007 - 10:50 von Frank Boehland | Report spam
Ein freundliches Hallo,

ich habe eine Excelvorlage, die beim Öffnen wie üblich eine Kopie
bereitstellt. Zum Zeitpunkt des Öffnens soll eine Textdatei importiert
werden. Ich habe mit dem Makrorecorder den notwendigen Codeteil
mitgeschnitten und in Workbook_Activate eingefügt. Der Parameter Connection
möchte den vollstàndigen Dateipfad. Da Textdatei und Vorlage in einem
Verzeichnis liegen, dachte ich, dies mit ActiveWorkbook.Path und dem Namen
der Datei bereitstellen zu können. Dem ist aber nicht so. Ich erhalte zu
diesem Zeitpunkt keine Pfadangabe.

Private Sub Workbook_Activate()
On Error GoTo FEHLER

pfad = ActiveWorkbook.Path & "\PruefungFeld.txt"
MsgBox pfad, , "Test 'pfad'"

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & pfad _
, Destination:=Range("A3"))
.Name = "Liste_Pruefungen"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
...

ThisWorkbook.Path zeigt dasselbe Ergebnis.

Wie kann ich sonst auf die Textfdatei in der Vorlage verweisen. Ich habe
nicht vor, mit einem Öffnen-Dialog zu arbeiten.

Vielen Dank für eine Antwort
Frank
 

Lesen sie die antworten

#1 Hajo_Zi
02/10/2007 - 10:55 | Warnen spam
Hallo Frank,

das ist ein wenig auch vom Betriebssystem abhàngig."C:\Dokumente und
Einstellungen\" & Environ("USERNAME") & "\Anwendungsdaten\Microsoft\Vorlagen\"

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate und Excel Version2007
http://Hajo-Excel.de/



"Frank Boehland" wrote:

Ein freundliches Hallo,

ich habe eine Excelvorlage, die beim Öffnen wie üblich eine Kopie
bereitstellt. Zum Zeitpunkt des Öffnens soll eine Textdatei importiert
werden. Ich habe mit dem Makrorecorder den notwendigen Codeteil
mitgeschnitten und in Workbook_Activate eingefügt. Der Parameter Connection
möchte den vollstàndigen Dateipfad. Da Textdatei und Vorlage in einem
Verzeichnis liegen, dachte ich, dies mit ActiveWorkbook.Path und dem Namen
der Datei bereitstellen zu können. Dem ist aber nicht so. Ich erhalte zu
diesem Zeitpunkt keine Pfadangabe.

Private Sub Workbook_Activate()
On Error GoTo FEHLER

pfad = ActiveWorkbook.Path & "\PruefungFeld.txt"
MsgBox pfad, , "Test 'pfad'"

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & pfad _
, Destination:=Range("A3"))
.Name = "Liste_Pruefungen"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
...

ThisWorkbook.Path zeigt dasselbe Ergebnis.

Wie kann ich sonst auf die Textfdatei in der Vorlage verweisen. Ich habe
nicht vor, mit einem Öffnen-Dialog zu arbeiten.

Vielen Dank für eine Antwort
Frank

Ähnliche fragen