vendredi 27 février 2015
Import CSV toevoegen aan 1e vrije regel op TAB blad
Posted on 12:49 by Unknown
Ik importeer een csv bestand op een werkblad "Data" met behulp van dit stukje VBA
With ThisWorkbook.Sheets("Data").QueryTables.Add(Connec tion:= _
"TEXT;" & fStr, Destination:=ThisWorkbook.Sheets("Data").Range("$A $1"))
Nu wil ik deze code wijzigen zodat er eerst gezocht wordt naar de eerste vrije regel ik heb hiervoor de volgende code gebruikt, maar helaas krijg ik dit niet aan de praat. Iemand een idee waar ik de fout in ga?
With ThisWorkbook.Sheets("Data").QueryTables.Add(Connec tion:= _
"TEXT;" & fStr, Destination:=ThisWorkbook.Sheets("Data").Range("$A 65000")).End(xlUp)
With ThisWorkbook.Sheets("Data").QueryTables.Add(Connec tion:= _
"TEXT;" & fStr, Destination:=ThisWorkbook.Sheets("Data").Range("$A $1"))
Nu wil ik deze code wijzigen zodat er eerst gezocht wordt naar de eerste vrije regel ik heb hiervoor de volgende code gebruikt, maar helaas krijg ik dit niet aan de praat. Iemand een idee waar ik de fout in ga?
With ThisWorkbook.Sheets("Data").QueryTables.Add(Connec tion:= _
"TEXT;" & fStr, Destination:=ThisWorkbook.Sheets("Data").Range("$A 65000")).End(xlUp)
Import CSV toevoegen aan 1e vrije regel op TAB blad
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire