marclegrand schreef op donderdag 18 mei 2023 @ 15:30:
Is er een mogelijkheid (website, Excel sheet) met mijn eigen P1 data (.CSV file) te berekenen wat het had gekost (incl met terug leveren van de zonnepanelen) met een Dynamisch tarief (van de verschillende providers) voor die periode (dag, week, maand, jaar) om zo te zien wat het echte verschil is?
Ja, blader even terug of klik
https://gathering.tweaker...message/75306496#75306496
Misschien helpt deze VBA-code om het vanuit Excel in een juist formaat csv te proppen:
Function maakcsv()
Dim dt As Object
Dim FSO As New FileSystemObject
Set dt = CreateObject("WbemScripting.SWbemDateTime")
Set FSO = CreateObject("Scripting.FileSystemObject")
regel = 2
Set FileToCreate = FSO.CreateTextFile("C:\Users\xxx\Documents\spotswitch.csv")
Do
Set curCell = Worksheets("blad1").Cells(regel, 1)
dt.SetVarDate DateAdd("h", 1, curCell.Value)
Set curCell = Worksheets("blad1").Cells(regel, 3)
meters = ";" & Int(curCell.Value * 1000)
Set curCell = Worksheets("blad1").Cells(regel, 5)
meters = meters & ";" & Int(curCell.Value * 1000) & ";0;0;0"
FileToCreate.Write "power&gas;excel;" & Format(dt.GetVarDate(False), "yyyy-mm-ddThh:nn:00Z") & meters & vbCrLf
DoEvents
regel = regel + 1
Loop Until curCell.Value = ""
FileToCreate.Close
End Function
[Voor 46% gewijzigd door EmHaKa op 18-05-2023 17:59]