CSV Importieren Fehler - BackgroundQuery
26.03.2013 09:43:39
Lutz
ich brauche leider mal wieder Euer geballtes Wissen.
Ich habe ein Makro geschrieben das eine CSV-Datei importiert:
Sub Csv_Importieren()
Dim wksN As Excel.Worksheet
Dim qtbN As Excel.QueryTable
Dim vntPathAndFileName As Variant
Dim lngLetzteZeileSpalteA As Long
ThisWorkbook.Sheets("SalesHistory").Activate 'Mappenname ggf.anpassen
ActiveSheet.Cells.ClearContents
Range("A1").Activate
vntPathAndFileName = "C:\Ebay_csv_Datei.csv"
If VarType(vntPathAndFileName) = vbBoolean Then
MsgBox "Abgebrochen!"
Exit Sub
End If
Set wksN = ThisWorkbook.Worksheets("SalesHistory") 'Anpassen!!
lngLetzteZeileSpalteA = wksN.Cells(wksN.Rows.Count, 1).End(xlUp).Row
If lngLetzteZeileSpalteA qtbN.Refresh BackgroundQuery:=False
aus.
Ich habe schon im Netzt gesucht und ober das & gegen + getauscht und ein paar andere Sachen ('qtbN.ListObject.QueryTable.Refresh BackgroundQuery:=False
) aber ich komme einfach nicht weiter.
Kann mir da jemand helfen?
Vielen Dank und viele Grüße Lutz