emilio20
Level-1
- Beiträge
- 835
- Reaktionspunkte
- 20
-> Hier kostenlos registrieren
Hallo
ich schreibe mit Wicc Flexible Energiewerte in verschiednen CSV Dateien.
Dies Importiere ich beim Start einer Exel Tabelle in einselne Tabellen.
Der Pfad von dem ich die CSV Daten erhalte habe ich in einem Macro hinterlegt. Ich möchte aber den Pfad in einer Excel "Einstellungen" Tabelle ablegen und diesen ggf zu ändern.
Leider bin ich in VB Anfänger und komme hier nicht weiter. Ich Poste mal mein Macro.
ich schreibe mit Wicc Flexible Energiewerte in verschiednen CSV Dateien.
Dies Importiere ich beim Start einer Exel Tabelle in einselne Tabellen.
Der Pfad von dem ich die CSV Daten erhalte habe ich in einem Macro hinterlegt. Ich möchte aber den Pfad in einer Excel "Einstellungen" Tabelle ablegen und diesen ggf zu ändern.
Leider bin ich in VB Anfänger und komme hier nicht weiter. Ich Poste mal mein Macro.
Code:
Private Sub Workbook_Open()
Dim Dummy() As String
'zuerst die Datei "Stromo.csv" einlesen.
Datei = FreeFile
Open "C:\Energieverbrauch_Haus\Strom0.csv" For Input As #Datei
zeile = 2
Do
Line Input #Datei, ReadLine
If ReadLine <> "" Then
Dummy() = Split(ReadLine, ";")
' Cells(zeile, 1) = Dummy(0)
Tabelle1.Cells(zeile, 2) = Dummy(1)
Tabelle1.Cells(zeile, 3) = Dummy(2)
' Cells(zeile, 4) = Dummy(3)
' Cells(zeile, 5) = Dummy(4)
zeile = zeile + 1
End If
Loop Until EOF(Datei)
Close
'dann die Datei "Heizung0.csv" einlesen.
Datei = FreeFile
Open "C:\Energieverbrauch_Haus\Heizung0.csv" For Input As #Datei
zeile = 2
Do
Line Input #Datei, ReadLine
If ReadLine <> "" Then
Dummy() = Split(ReadLine, ";")
' Cells(zeile, 1) = Dummy(0)
Tabelle2.Cells(zeile, 2) = Dummy(1)
Tabelle2.Cells(zeile, 3) = Dummy(2)
' Cells(zeile, 4) = Dummy(3)
' Cells(zeile, 5) = Dummy(4)
zeile = zeile + 1
End If
Loop Until EOF(Datei)
Close
'dann die Datei "Wasser.csv" einlesen.
Datei = FreeFile
Open "C:\Energieverbrauch_Haus\Wasser0.csv" For Input As #Datei
zeile = 2
Do
Line Input #Datei, ReadLine
If ReadLine <> "" Then
Dummy() = Split(ReadLine, ";")
' Cells(zeile, 1) = Dummy(0)
Tabelle3.Cells(zeile, 2) = Dummy(1)
Tabelle3.Cells(zeile, 3) = Dummy(2)
' Cells(zeile, 4) = Dummy(3)
' Cells(zeile, 5) = Dummy(4)
zeile = zeile + 1
End If
Loop Until EOF(Datei)
Close
End Sub