Datei importieren - Bezug variabel

12/08/2010 - 13:04 von Peter | Report spam
Hallo,
ich habe folgendes Problem. Ich habe ein Makro aufgezeichnet, um csv-
Dateien zu importieren (Excel 2003, VB 6.0). U.a. gibt es diese
Zeile:

With ActiveSheet.QueryTables.Add(Connection:= "TEXT;C:\Dateien
\7_309_075_1_2010_201007_1.CSV", Destination:= Range("B1"))

Wie kann ich es hinkriegen, dass ich mir aussuchen kann, welche Datei
importiert wird?
Habe es so versucht (Dateiname in A1):

Dim Filename As Variant
Filename = Range("A1")
With ActiveSheet.QueryTables.Add(Connection:= "TEXT;Filename)",
Destination:= Range("B1"))

Klappt aber nicht :-(

Bin für jeden Tipp dankbar!

Gruß,
Peter
 

Lesen sie die antworten

#1 Stefan Kunze
12/08/2010 - 13:15 | Warnen spam
Hallo Peter,

"Peter" schrieb:

ich habe folgendes Problem. Ich habe ein Makro aufgezeichnet, um csv-
Dateien zu importieren (Excel 2003, VB 6.0). U.a. gibt es diese
Zeile:

With ActiveSheet.QueryTables.Add(Connection:= "TEXT;C:\Dateien
\7_309_075_1_2010_201007_1.CSV", Destination:= Range("B1"))

Wie kann ich es hinkriegen, dass ich mir aussuchen kann, welche Datei
importiert wird?
Habe es so versucht (Dateiname in A1):

Dim Filename As Variant
Filename = Range("A1")
With ActiveSheet.QueryTables.Add(Connection:= "TEXT;Filename)",
Destination:= Range("B1"))

Klappt aber nicht :-(



Dim sFileName AS String
sFileName = Application.GetOpenFilename()
'falls abgebrochen wird
If CStr(False) = sFileName Then Exit Sub
With ActiveSheet.QueryTables.Add( _
Connection:= "TEXT;" & sFileName _
, Destination:= Range("B1"))

Viele Grüße
Stefan

Ähnliche fragen