Natuurlijk! Hieronder vind je een overzicht en voorbeeldcode om CSV-bestanden te importeren, cellen bij te werken en documenten te automatiseren met Visual Basic for Applications (VBA) in Excel. ### Doelstellingen - CSV-bestanden importeren in Excel. - Specifieke cellen bijwerken met berekende waarden. - Documenten openen, bewerken en opslaan via VBA. - Cellen en tabellen manipuleren. - Data koppelen tussen Office toepassingen (bijvoorbeeld Excel en Word). --- ### Voorbeeld 1: CSV-bestand importeren in Excel ```vba Sub ImporteerCSV() Dim bestandPad As String bestandPad = "C:\PadNaarBestand\gegevens.csv" ' Importeren van CSV in het actieve werkblad With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & bestandPad, Destination:=ActiveSheet.Range("A1")) .TextFileParseType = xlDelimited .TextFileCommaDelimiter = True .Refresh BackgroundQuery:=False .Delete End With End Sub ``` **Uitleg:** Deze macro importeert een CSV-bestand en plaatst de data vanaf cel A1. Je kunt het pad aanpassen naar jouw bestand. --- ### Voorbeeld 2: Cellen bijwerken met berekende waarden ```vba Sub UpdateCellen() Dim waarde1 As Double, waarde2 As Double, resultaat As Double ' Lees waarden uit cellen waarde1 = Range("B2").Value waarde2 = Range("C2").Value ' Bereken en zet resultaat in D2 resultaat = waarde1 + waarde2 Range("D2").Value = resultaat End Sub ``` **Uitleg:** Deze macro leest waarden uit cellen B2 en C2, berekent hun som, en schrijft het resultaat naar D2. --- ### Voorbeeld 3: Document openen, bewerken en opslaan ```vba Sub OpenEnBewerkDocument() Dim WordApp As Object Dim WordDoc As Object Dim pad As String pad = "C:\PadNaarDocument\voorbeeld.docx" ' Word openen Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Open(pad) ' Tekst toevoegen WordDoc.Content.InsertAfter "Automatisch toegevoegd door VBA." & vbCrLf ' Opslaan en sluiten WordDoc.Save WordDoc.Close WordApp.Quit End Sub ``` **Uitleg:** Deze macro opent een Word-document, voegt tekst toe, en slaat het document op. --- ### Voorbeeld 4: Data koppelen tussen Excel en Word ```vba Sub ExportDataNaarWord() Dim WordApp As Object Dim WordDoc As Object Dim data As String Dim rng As Range Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B10") data = "" ' Data verzamelen Dim cel As Range For Each cel In rng data = data & cel.Value & vbTab If cel.Column = rng.Columns.Count Then data = data & vbCrLf End If Next cel ' Word openen en data invoegen Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Add WordDoc.Content.Text = "Gekoppelde data:" & vbCrLf & data ' Document opslaan WordDoc.SaveAs "C:\PadNaarDocument\GekoppeldeData.docx" WordDoc.Close WordApp.Quit End Sub ``` **Uitleg:** Deze macro pakt data uit Excel, zet het in Word, en slaat het document op. --- ### Samenvatting Met VBA kun je veel taken in Office automatiseren: - Bestanden importeren en exporteren - Cellen en tabellen manipuleren - Documenten openen, bewerken en opslaan - Data koppelen tussen Excel, Word, en andere Office apps Wil je specifieke hulp bij een van deze taken of meer geavanceerde voorbeelden?

Absoluut! Hier is een uitgebreide handleiding voor het automatiseren van CSV-import en gegevensbewerking in Excel met VBA (Visual Basic for Applications). --- ### **Basisconcepten VBA Automatisering** **Belangrijke zaken om te weten:** - VBA wordt geopend met `Alt + F11` in Excel - Modules voeg je toe via `Invoegen > Module` - Macros voer je uit met `Alt + F8` --- ### **1. CSV-bestand importeren en bewerken** **Voorbeeldcode: CSV importeren en cellen updaten** ```vba Sub ImporteerCSVEnBewerk() Dim ws As Worksheet Dim bestandPad As String Dim laatsteRij As Long ' Stap 1: Nieuw werkblad toevoegen Set ws = ThisWorkbook.Worksheets.Add ws.Name = "GeïmporteerdeData" ' Stap 2: CSV-bestand selecteren bestandPad = Application.GetOpenFilename("CSV-bestanden (*.csv), *.csv") If bestandPad = "False" Then Exit Sub ' Stap 3: CSV importeren With ws.QueryTables.Add(Connection:="TEXT;" & bestandPad, _ Destination:=ws.Range("A1")) .TextFileParseType = xlDelimited .TextFileCommaDelimiter = True .Refresh End With ' Stap 4: Laatste rij vinden laatsteRij = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Stap 5: Berekeningen toevoegen (voorbeeld: BTW berekenen) ws.Range("D1").Value = "BTW Bedrag" ws.Range("D2:D" & laatsteRij).Formula = "=C2*0.21" ' 21% BTW kolom C ' Stap 6: Opmaak toepassen ws.Range("A1:D" & laatsteRij).Columns.AutoFit ws.Range("A1:D1").Font.Bold = True ' Stap 7: Opslaan (optioneel) ThisWorkbook.Save MsgBox "Import voltooid! " & laatsteRij - 1 & " rijen verwerkt." End Sub ``` --- ### **2. Geavanceerde Celmanipulatie** **Voorbeeld: Dynamische gegevensverwerking** ```vba Sub BewerkGeïmporteerdeData() Dim ws As Worksheet Dim laatsteRij As Long Dim i As Long Set ws = ThisWorkbook.Worksheets("GeïmporteerdeData") laatsteRij = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Loop door alle rijen For i = 2 To laatsteRij ' Start bij rij 2 (headers in rij 1) ' Voorwaardelijke bewerkingen If ws.Cells(i, 3).Value > 1000 Then ws.Cells(i, 5).Value = "Hoog bedrag" ws.Cells(i, 5).Interior.Color = RGB(255, 200, 200) ' Licht rood Else ws.Cells(i, 5).Value = "Normaal bedrag" End If ' Complexe berekening ws.Cells(i, 6).Formula = "=C" & i & "*D" & i & "/100" Next i ' Autofilter toepassen ws.Range("A1:E" & laatsteRij).AutoFilter End Sub ``` --- ### **3. Data Koppelen tussen Office Applicaties** **Excel → Word Rapport genereren** ```vba Sub MaakWordRapport() Dim wdApp As Object Dim wdDoc As Object Dim excelData As Range Dim laatsteRij As Long ' Excel data selecteren With ThisWorkbook.Worksheets("GeïmporteerdeData") laatsteRij = .Cells(.Rows.Count, "A").End(xlUp).Row Set excelData = .Range("A1:E" & laatsteRij) End With ' Word applicatie starten On Error Resume Next Set wdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set wdApp = CreateObject("Word.Application") End If On Error GoTo 0 ' Nieuw document maken Set wdDoc = wdApp.Documents.Add wdApp.Visible = True ' Data kopiëren naar Word excelData.Copy wdDoc.Range.PasteExcelTable False, False, False Application.CutCopyMode = False ' Opmaak toepassen With wdDoc .Tables(1).Style = "Professioneel" .Range.InsertBefore "Rapport gegenereerd op: " & Date .Range.InsertParagraphAfter End With ' Opslaan wdDoc.SaveAs2 Environ("USERPROFILE") & "\Documents\Rapport.docx" End Sub ``` --- ### **4. Automatische Opslag en Bestandsbeheer** ```vba Sub BewaarMetTijdstempel() Dim bestandsnaam As String Dim pad As String ' Map selecteren With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Selecteer opslagmap" If .Show <> -1 Then Exit Sub pad = .SelectedItems(1) & "\" End With ' Bestandsnaam genereren bestandsnaam = "Rapport_" & Format(Now(), "yyyy-mm-dd_hh-mm-ss") & ".xlsx" ' Opslaan ThisWorkbook.SaveAs pad & bestandsnaam, FileFormat:=xlOpenXMLWorkbook MsgBox "Bestand opgeslagen als: " & bestandsnaam End Sub ``` --- ### **5. Foutafhandeling en Robustheid** ```vba Sub VeiligeImport() On Error GoTo FoutAfhandeling Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ' Je code hier ImporteerCSVEnBewerk Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Exit Sub FoutAfhandeling: MsgBox "Fout opgetreden: " & Err.Description Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub ``` --- ### **Essentiële Tips:** 1. **Always test** met kopieën van je bestanden 2. **Use comments** (`'`) om code secties te beschrijven 3. **Implement error handling** met `On Error GoTo` 4. **Disable screen updating** tijdens execution voor snelheid 5. **Use variables** voor herbruikbare waarden ### **Handige Objecten en Methodes:** - `Workbooks.Open("bestand.xlsx")` - Bestand openen - `Range("A1:B10").Value` - Waarden lezen/schrijven - `Worksheets.Add` - Nieuw werkblad - `ActiveSheet.UsedRange` - Gebruikte cellen - `SaveAs` - Opslaan als nieuw bestand Wil je dat ik specifieke onderwerpen verder uitdiep of heb je een concrete use-case waar je mee bezig bent?