Steeds een ander csv bestand inlezen in VBA

Status
Niet open voor verdere reacties.
M

melderksen

Gebruiker
Lid geworden
10 mei 2016
Berichten
12
Hi,
Ik heb een prachtig werkend excelbestand om het rabobank rekening bestand in te lezen.

De marco begint zo;
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;t:\download chrome\"transactions.txt" ", Destination:=Range("A1"))
enz.


Maar nu geeft de bank aan dat het mi September anders moet.
Met een CSV bestand. Opzich geen probleem, ware het niet dat nu de bestandsnaam steeds anders is

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;t:\download chrome\CSV_A_20180405_205117.csv", Destination:=Range("A1"))

Hoe krijg ik het nu werkend?
Ik zou moeten kunnen kiezen uit een bestandslijst en het goede bestand aanklikken welke bedoeld wordt voor de Querytable.
Ben niet heel erg goed met VBA en heb al een avondje zitten modderen zonder resultaat.
Er zijn vast knappe koppen die hier de oplossing voor hebben.

Ben benieuwd, alvast dank.
vr gr Mel
 
Probeer het eens zo:
Code: 
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "T:\download chrome"
    .AllowMultiSelect = False
    .Title = "Selecteer een bestand"
    .Filters.Add "Bank bestand", "*.csv"
    If .Show Then
        CSV = .SelectedItems(1)
        With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;" & CSV, Destination:=Range("A1"))
        End With
    End If
End With
 
Laatst bewerkt:
Hernoem het bestand van de Rabobank naar het bestand waaraan de querytabel is gekoppeld.
Dan hoef je alleen maar de querytabel te verversen.


Code: 
ActiveSheet.QueryTables.Add("TEXT;t:\download chrome\voorbeeld.csv", Range("A1")).refresh 0

Name "T:\download chrome\CSV_A_20180405_205117.csv" As "T:\download chrome\voorbeeld.csv"

Activesheet.querytables(1).refresh 0
 
Laatst bewerkt:
Edmoor
Dit ziet er veel belovend uit. Ga het zaterdag proberen. Bedankt !
 
Ja dat was idd ook mijn gedachte, maar dat is niet leuk als je het met VBA op kan lossen.
Toch bedankt voor de reactie hoor :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan