Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Meterstanden in samenwerking met P1 meter  (gelezen 7509 keer)

0 leden en 1 gast bekijken dit topic.

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.364
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Meterstanden in samenwerking met P1 meter
« Reactie #15 Gepost op: 01 december 2023, 11:34:30 »
Hey Molly,
ik denk dat er een misverstand is gerezen : het bestand voor gas wordt altijd op dezelfde manier aangeleverd met een titel als 1ste rij , ik denk dat ik ergens zo'n bestand heb geüpload waarbij IKZELF die 1ste regel had verwijderd , en dat heeft bij U voor verwarring gezorgd , sry  :-[
ik heb idd enkel de m3 data nodig , in mijn bestand wordt deze dan omgezet (in kolom B) met de CBW waarde die als parameter staat ingesteld op het werkblad "Parameters"...
dus Uw laatste code voor "gas" werkt perfect en is reeds geïntegreerd in mijn bestand met alle aanwezige data...
nu nog de code voor elektriciteit en ik kan er tegen aan  ;).
grtjs,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
4GB  Samsung 2133MHz
4GB  Samsung 2133MHz
SanDisk SD7SN6S-256G-1006 - 238,47 GB
KINGSTON SA400S37480G - 447,13 GB
2 x Externe HD 4TB
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Meterstanden in samenwerking met P1 meter
« Reactie #16 Gepost op: 01 december 2023, 14:39:42 »
Hallo Arnold,

Nee hoor, geen verwarring aan deze kant, althans niet deze keer :D
Het ging echt over een al dan niet aanwezig zijn van een CRLF. Wat ik meer waarschijnlijk acht is dat teken(13) in het csv-bestand was terecht gekomen door het openen en opnieuw opslaan. En dat teken is exact wat 'Line Input' nodig heeft, dus dáárom ging het met het eerste bestand wel goed.
We hoeven er ook niet langer bij stil te staan, want die methode was in mijn laatste bijlage al afgeschaft.
En in de huidige is ook elektriciteit al uitgewerkt.

Het werkt nu dus op basis van teken(10) waardoor het niet meer in de soep kan draaien door het bestand te openen/opslaan/manipuleren. Al zou ik dat liefst afraden, gewoon downloaden en op zijn plaats zetten volstaat. En vooral de titelrij niet verwijderen, anders moeten we de code weer veranderen of uitbreiden met een extra controle.

Wat ik ook nog zag voor gas is dat de formules op 'Maandverbruik' gebruik maken van de KWh-kolom op 'Dagverbruik', dus daar heb ik meteen een formule in gezet (die uiteraard maar zal werken nadat je werkblad 'Parameters' hebt ingevuld. De tabellen daarop zijn nu ook anders dan in een vroegere versie, dus het zit er dik in dat we nog wel ergens gaan moeten ingrijpen, maar liever dan daar nu naar te zoeken wachten we beter even af tot je parameters (mogen fictieve zijn ;)) ingevuld zijn.

O ja, na je bestand met gegevens vanaf 24/11 te hebben gekregen is mijn uitgangspunt ook dat er geen regels met 0-standen in je csv's staan.

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.364
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Meterstanden in samenwerking met P1 meter
« Reactie #17 Gepost op: 01 december 2023, 15:11:43 »
Dag Molly,
wééral ne heel dikke merci voor Uw hulp ! en met die vele "rems" erbij is het toch een heel stuk duidelijker hoe/wat , ik kan er alleen maar weer uit leren en gebruiken in de toekomst.
wat die formule betreft om Gas om te zetten naar KWh , die had ik al geïntegreerd maar bij een "nieuw" bestand worden de kolommen op dat werkblad gewist maar ik had de code nog niet aangepast aan de ander layout van de kolommen , toen ik mijn bestand wilde uploaden had ik gekozen voor "nieuw" en de formules waren daarom weg.

nogmaals bedankt  :)
Grtjs,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
4GB  Samsung 2133MHz
4GB  Samsung 2133MHz
SanDisk SD7SN6S-256G-1006 - 238,47 GB
KINGSTON SA400S37480G - 447,13 GB
2 x Externe HD 4TB
AV: Windows Defender
FW: Windows Firewal

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 194
  • Geslacht: Man
  • Oplossing.be
Re: Meterstanden in samenwerking met P1 meter
« Reactie #18 Gepost op: 01 december 2023, 20:43:33 »
@Montagnard en mollyVH

wil niet al te brutaal zijn maar hoe lees je de csv in?
Excel 365 NL

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.364
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Meterstanden in samenwerking met P1 meter
« Reactie #19 Gepost op: 02 december 2023, 08:18:17 »
@Montagnard en mollyVH
wil niet al te brutaal zijn maar hoe lees je de csv in?
dat hangt af van wat de csv inhoud , en welke data daarvan je wilt importeren , er is dus geen eensluidende manier....
wat je wel eens kan proberen ( met dank aan SoftAid voor de tip , ben er ondertussen achter gekomen) :
in je Excel blad , ga naar het menu lint > "gegevens" > "uit tekstbestand/CSV" , dan zal je naar je bestand kunnen gaan en importeren.....de data wordt in een nieuw werkblad gezet waarmee je dan verder weg kan.
na gebruik kan je dat werkblad eventueel gewoon verwijderen...
Mvg,
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
4GB  Samsung 2133MHz
4GB  Samsung 2133MHz
SanDisk SD7SN6S-256G-1006 - 238,47 GB
KINGSTON SA400S37480G - 447,13 GB
2 x Externe HD 4TB
AV: Windows Defender
FW: Windows Firewal

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 194
  • Geslacht: Man
  • Oplossing.be
Re: Meterstanden in samenwerking met P1 meter
« Reactie #20 Gepost op: 02 december 2023, 10:40:36 »
@Montagnard

Super werkt perfect, nu een export maken incl zonnepanelen.

@MollyVH u ook weer bedankt en SoftAid bedankt voor de tip  :)
Excel 365 NL

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.364
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Meterstanden in samenwerking met P1 meter
« Reactie #21 Gepost op: 02 december 2023, 12:02:08 »
@Sunnybat : graag gedaan !
Mvg,

UPDATE : ik heb gemerkt dat zelfs als je het werkblad verwijdert , dit toch blijft bestaan binnen je werkboek , om het volledig te verwijderen :
ga in het menu lint naar "Gegevens" > "Query's en verbindingen" , dan zal je rechts een tab zien openen met je geïmporteerde CSV bestanden , klik rechts op een en dan kan je kiezen voor verwijderen....
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
4GB  Samsung 2133MHz
4GB  Samsung 2133MHz
SanDisk SD7SN6S-256G-1006 - 238,47 GB
KINGSTON SA400S37480G - 447,13 GB
2 x Externe HD 4TB
AV: Windows Defender
FW: Windows Firewal

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.364
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Meterstanden in samenwerking met P1 meter
« Reactie #22 Gepost op: 21 januari 2024, 08:53:58 »
Goedemorgen !
na veel wikken en wegen heb ik uiteindelijk besloten om mijn verbruiks data te importeren van de "Fluvius" website , deze zal altijd dezelfde blijven als netwerkbeheerder tenzij ik verhuis ...
ik kan dus voor zowel aardgas als electriciteit de verbruiken downloaden in CSV formaat en die worden dan in mijn bestand verwerkt ( met dank aan Molly die daarvoor gezorgd heeft  :) ).
als ik op de website van Fluvius kies om de verbruiken te downloaden is de begin datum standaard van 2/6/2023 dit omdat ik van dan een digitale meter heb.
ik moet dan manueel telkens die datum gaan aanpassen naar 1/1/2024  om de verbruiken te downloaden van dit jaar.
nu is mijn vraag hoe ik de code moet aanpassen zodat ENKEL de verbruiken van 2024 ingevuld worden op mijn werkblad "Dagverbruik" ?
ik geraak er zelf niet uit....

bestand = Dir(Download_map & "Verbruikshistoriek*.csv")
While bestand <> ""
  With Sheets("Dagverbruik")
    If InStr(1, bestand, "gas", vbTextCompare) Then
        spl_bestand = Split(WorksheetFunction.Substitute(bestand, "_", " ", 3), " ")
            Gasverbruik = bestand
            Open Download_map & bestand For Input As #1
            While Not EOF(1)
                Line Input #1, regel
                spl_regel = Split(regel, ";")
                If IsDate(spl_regel(0)) And spl_regel(9) <> "kWh" And spl_regel(8) <> "" Then
                    datum = --Format(spl_regel(0), 0)
                    rij = WorksheetFunction.Match(datum, .Columns(1), 0)
                    .Cells(rij, 2) = Replace(spl_regel(8), ",", ".")
                End If
            Wend
            Close #1
        End If
    If InStr(1, bestand, "elektr", vbTextCompare) Then
        spl_bestand = Split(WorksheetFunction.Substitute(bestand, "_", " ", 3), " ")
        Elecverbruik = bestand
           Open Download_map & bestand For Input As #1
            While Not EOF(1)
                Line Input #1, regel
                spl_regel = Split(regel, ";")
                If IsDate(spl_regel(0)) And Left(spl_regel(7), 6) = "Afname" And spl_regel(8) <> "" Then
                    datum = --Format(spl_regel(0), 0)
                    rij = WorksheetFunction.Match(datum, .Columns(1), 0)
                    If spl_regel(7) = "Afname Dag" Then Verbruik1 = CDbl(Replace(spl_regel(8), ".", ","))
                    If spl_regel(7) = "Afname Nacht" Then Verbruik2 = CDbl(Replace(spl_regel(8), ".", ","))
                    .Cells(rij, 4).Value = Verbruik1
        .Cells(rij, 6).Value = Verbruik2
                    End If
            Wend
            Close #1
        End If
    bestand = Dir
  End With
Wend

graag hulp  :)

Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
4GB  Samsung 2133MHz
4GB  Samsung 2133MHz
SanDisk SD7SN6S-256G-1006 - 238,47 GB
KINGSTON SA400S37480G - 447,13 GB
2 x Externe HD 4TB
AV: Windows Defender
FW: Windows Firewal

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.364
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Meterstanden in samenwerking met P1 meter
« Reactie #23 Gepost op: 21 januari 2024, 10:10:40 »
Update : zelf gevonden  :) (ik zocht het véél te ver)....

If IsDate(spl_regel(0)) And spl_regel(9) <> "kWh" And spl_regel"8" <> "" Then
                    datum = --Format(spl_regel(0), 0)
                    If Year(datum) = 2024 Then
                    rij = WorksheetFunction.Match(datum, .Columns(1), 0)
                    .Cells(rij, 2) = Replace(spl_regel"8", ",", ".")
                    End If
End If


HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
4GB  Samsung 2133MHz
4GB  Samsung 2133MHz
SanDisk SD7SN6S-256G-1006 - 238,47 GB
KINGSTON SA400S37480G - 447,13 GB
2 x Externe HD 4TB
AV: Windows Defender
FW: Windows Firewal

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 194
  • Geslacht: Man
  • Oplossing.be
Re: Meterstanden in samenwerking met P1 meter
« Reactie #24 Gepost op: 22 januari 2024, 00:22:21 »
@Montagnard

heb je een andere versie want

If IsDate(spl_regel(0)) And spl_regel(9) <> "kWh" And spl_regel"8" <> "" Then
                    datum = --Format(spl_regel(0), 0)

kan ik in de vba nergens vinden :-[
Excel 365 NL

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.364
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Meterstanden in samenwerking met P1 meter
« Reactie #25 Gepost op: 22 januari 2024, 11:58:23 »
@Sunnybat :
er zijn idd 2 versies
1) een versie om de gegevens in te laden die van mijn P1 meter komen (HomeWizard) , ik kan de verbruiken zien van gas en elctriciteit maar als ik voor de electriciteit het dag & nacht verbruik wil zien dan moet ik betalen om de data te kunnen downloaden , is maar 0.99€ per maand maar ik vertik het.
heb al contact met hun gehad om dit aan te kaarten maar ja , ik  ben maar een kleine garnaal he.
daarom heb ik ook besloten om verder te gaan met de gegevens van Fluvius , dat is de netbeheerder voor hier in West-Vlaanderen.

2) een versie om de gegevens van Fluvuis te importeren , in die code kan je kiezen voor ofwel de aardgas data te importeren als KWh of als m3...
de gegevens kan ik binnenhalen als een CSV bestand dat wordt in het bestand ingelezen en op de juiste plaats gezet.
misschien dat je daarom in verwarring bent gebracht ?
Mvg,
Arnold.

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
4GB  Samsung 2133MHz
4GB  Samsung 2133MHz
SanDisk SD7SN6S-256G-1006 - 238,47 GB
KINGSTON SA400S37480G - 447,13 GB
2 x Externe HD 4TB
AV: Windows Defender
FW: Windows Firewal

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 194
  • Geslacht: Man
  • Oplossing.be
Re: Meterstanden in samenwerking met P1 meter
« Reactie #26 Gepost op: 22 januari 2024, 12:52:44 »
@Montagnard

Ha ok, versie die ik al heb werkt prima :thumbsup:
Excel 365 NL

 


www.combell.com