Opgelost Inladen van een .csv bestand dmv macro aanpassen - vervolg 2

[anton44]

Recentelijk heeft Solar Edge alweer het formaat van de data in het download .csv bestand aangepast.
Hierdoor werkt het script in mijn bestand niet meer - geeft foutmelding

was: 01 jul. 2026 11:00","3.22","0"
gewijzigd in : Jul 1, 2026 11:00 AM","3.22","0"
Zowel datum- als tijdformaat zijn gewijzigd.

Zelf kom ik er niet uit.
Graag hulp.

Meer details

 

[huijb]

Als het een vervolg is op een eerdere vraag, prima maar zet dan in ieder geval de link er even bij https://www.helpmij.nl/forum/thread...tand-dmv-macro-aanpassen.977297/#post-6435801

 

[anton44]

De link staat er al in onder "meer details"

= https://www.helpmij.nl/forum/thread...tand-dmv-macro-aanpassen.977297/#post-6435802

 

[huijb]

Goed zo, excuses, niet gezien.

 

[anton44]

Goed zo, excuses, niet gezien.

 

[edmoor]

De datum/tijd conversie vanuit de csv is simpel.
Niet in je code aangepast, maar zo, als test:

Sub GetDateTime()
    Open "E:\Helpmij\Anton44\Energie monitor\power-chart-data 07_01_2026 02_09 PM.csv" For Input As #1
    Line Input #1, str1
    Close #1
    rgl = Split(str1, vbLf)
    For i = 1 To UBound(rgl)
        x = Split(rgl(i), Chr(34))
        dt = Replace(DateValue(x(1)), "#", "")
        tm = Replace(TimeValue(x(1)), "#", "")
        Debug.Print "Op " & dt & " om "; tm
    Next i
End Sub

Dat kan je vast wel in je eigen code verwerken.

 

[anton44]

@edmoor, bedankt.
Mijn pogingen om het in de bestaande code te verwerken mislukken.

zie opmerking in code "' aanvulling zou hier moeten komen ??"

Sub Combi()
    Dim i, sn, sp, sp1, aOut, x(1 To 2), t, t1, csvPath, s, rij, sPath
  
    With Range("path")                      'in welke directory ?  zie namen in kopblad !
        If .Value = "" Then                'niet opgegeven
            sPath = ThisWorkbook.Path     'directory waar dit excelbestand staat.  zie namen in kopblad !
        Else
            sPath = .Value2
        End If
    End With
      
    sPath = sPath & IIf(Right(sPath, 1) <> "\", "\", "")     'desnoods er nog een "\" achter zetten
    s = sPath & Range("CSVbestand").Value2  'te zoeken csv in die subdirectory

    csvPath = Dir(sPath & "*.csv")

    If csvPath = "" Then                    'niets gevonden
        MsgBox "Geen importfile gevonden.", vbCritical, "Foutmelding"
    Else
        csvPath = sPath & csvPath

' aanvulling zou hier moeten komen ??

        x(2) = -1                          'voor te starten zet max op -1
        sn = Split(CreateObject("scripting.filesystemobject").opentextfile(csvPath).readall, vbLf)     'open aHulpje's file en splitten op vblf
        ReDim aOut(1 To UBound(sn), 1 To 2)     'aanmaak matrix
        For i = 1 To UBound(sn)
            If Len(sn(i)) Then
                sp = Split(Replace(sn(i), Chr(34), ""), ",", 2)
                sp1 = Split(Replace(Replace(sp(0), "-", " "), Chr(34), ""))
                If UBound(sp1) = 3 Then aOut(i, 1) = CDbl(DateSerial(sp1(2), maandnummer(sp1(1)), sp1(0)) + TimeValue(sp1(3)))
                aOut(i, 2) = Val(Replace("0" & sp(1), ",", "."))
                If aOut(i, 2) > x(2) Then x(2) = aOut(i, 2): x(1) = aOut(i, 1)
            End If
        Next
      
        With Sheets("Energie")         'op dit blad
            rij = Application.IfError(Application.Match(Int(x(1)), .Columns(7), 0), 0)     'bepaal rij, datums staan in kolom 7
            If rij = 0 Then               'datum niet gevonden
                MsgBox "Datum " & Int(x(1)) & " niet gevonden!", vbCritical, "Waarschuwing"
            Else
               ' .Cells(rij, 15) = Round(x(2), 0)   'max waarde afgerond op 0 cijfers
                .Cells(rij, 15) = Round(x(2) * 1000, 0) 'max waarde afgerond op 0 cijfers
                .Cells(rij, 16) = x(1) - Int(x(1))     'datum (zonder tijd)
      
                Application.Goto .Cells(rij, 7), 1
      
        '        Kill Left(s, Len(s) - 4) & "*.csv"
      
            End If
        End With
    End If
  
    Cursor_naar_PV
 
End Sub

 

[AHulpje]

Probeer het hier eens mee.

 

[anton44]

@AHulpje.
Getest en werkt perfect !
Met heel veel waardering en dank.