Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datenimport csv
zurück: Excel WENNDANN verschachtelt... weiter: Diagramm mit 2 Y-Achsen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ISILAN
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Feb 2009, 18:15
Rufname:

Datenimport csv - Datenimport csv

Nach oben
       Version: Office XP (2002)

Hallo,

ich habe ein Problem beim Datenimport in Excel:

Die ersten Zeilen sehen so aus (keine Angst, die EEG-Daten sind öffentlich):
Zitat:
#generiert am: 16.02.2009 17:23
#E.ON Netz GmbH Regelzone-Anlagenregister_aktuell
#===================
Firma;Anlagenschlüssel;PLZ;Inbetriebnahme;Energieträger;Installierte Leistung [kW];Biomasse KWK-Bonus;Biomasse Technologie-Bonus;Spannungsebene
Elektrizitätswerk Rohmund GmbH ;"E20050199003001050260000002000001";"37276";2008;§11 Solar;7,200;Nein;Nein;Spannungsebene 07 (NS)
Elektrizitätswerk Rohmund GmbH ;"E20050199003001050340000002000001";"37276";2008;§11 Solar;8,000;Nein;Nein;Spannungsebene 07 (NS)


Code:
'Hier öffne ich die CSV-Datei:
Workbooks.OpenText Filename:=sPfad & sDatei, DataType:=xlDelimited, _
    Semicolon:=True, Comma:=False, Other:=True, OtherChar:=";"

'Ich versuche es sogar mit Zwischenspeichern als xls:
Set objWbImport = ActiveWorkbook
objWbImport.SaveAs Filename:=sPfad & intCounterAnzImportDateien & ".xls"

'Wenn ich später auf die Spalte wie hier B zugreifen will um sie zu kopieren:

objWbImport.Worksheets(1).Range("B:B").Copy
'        MsgBox "Jetzt wird EON geadded"
        objWbAuswert.Worksheets.Add(After:=objWbAuswert.Worksheets(objWbAuswert.Worksheets.Count)).Name = _
                "_E.ON" & IIf(intCounterEON > 1, " " & intCounterEON, "")
        objWbAuswert.Worksheets(objWbAuswert.Worksheets.Count).Paste

'bekomme ich leider immer noch den durch Semikolon getrennten String für jede Zeile, anstatt nur den zweiten Wert, also sieht eine Zelle von mir dann so aus:

Zitat:
200;Nein;Nein;Spannungsebene 07 (NS)


'was ja soviel heisst wie: er trennt durch das komma obwohl ich ihm oben bei opentext auf verschiedenste arten gesagt hab, dass das SEMIKOLON der Trenner sein soll.

'Wer hat ne Idee?

'Isch krich die Kriiehse.... Rolling Eyes
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
20. Feb 2009, 19:09
Rufname:
Wohnort: Im schönen Weserbergland

AW: Datenimport csv - AW: Datenimport csv

Nach oben
       Version: Office XP (2002)

HAllo

csv's mag ich auch nicht besonders, muss mich aber trotzdem hin und wireder damit beschäftigen.

Ich nutze dann meistens so eine Importroutine:
Option Explicit


Public Sub import()
Dim Arr
Dim Datei
Dim FSO
Dim L As Long
Dim Tmp As Variant
Dim vnt_Ausgabe As Variant
Dim I As Integer
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile("C:\Temp\Test.csv")
Arr = Split(Datei.readall, vbCrLf) 'Nach Datensätzen splitten
Datei.Close
Redim vnt_Ausgabe(UBound(Arr), 200) '200 Spalten haben bis jetzt immer gereicht...
For L = 0 To UBound(Arr)
    Tmp = Split(Arr(L), ";") 'Jeden Datensatz nach Werten splitten
    For I = 0 To UBound(Tmp)
        vnt_Ausgabe(L, I) = Tmp(I) 'Ajeden Wert in das Array vnt_Ausgabe umschaufeln
    Next
Next
Range("A1").Resize(UBound(vnt_Ausgabe) + 1, UBound(vnt_Ausgabe, 2)) = vnt_Ausgabe
End Sub


Die zickt nicht so rum und hat bis jetzt noch alles gefressen was ihr angeboten habe...

ransi
ISILAN
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Apr 2009, 10:19
Rufname:


AW: Datenimport csv - AW: Datenimport csv

Nach oben
       Version: Office XP (2002)

Ransi,

die Antwort kommt spät, aber jetzt habe ich das Projekt erst fertig.

Vielen lieben Dank. Auf Basis Deines Codes bin ich weiter gekommen.

Gruß Ilan

_________________
Cheers
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formeln nach "Datenimport" neu rechnen 4 willi100 91 05. Feb 2013, 18:26
willi100 Formeln nach "Datenimport" neu rechnen
Keine neuen Beiträge Excel Formeln: .csv -> .xlsx = Verknüpfung/Bezug unmöglich!? 3 XOXO-Datei 814 08. Feb 2012, 21:52
XOXO-Datei .csv -> .xlsx = Verknüpfung/Bezug unmöglich!?
Keine neuen Beiträge Excel Formate: Excel 2010 ändert beim Speichern einer CSV Texttrenner 4 quickhand 1741 12. Jan 2012, 13:45
Gast Excel 2010 ändert beim Speichern einer CSV Texttrenner
Keine neuen Beiträge Excel Formate: Speichern als CSV: 110MB File!! Vorlage hat nur 1MB! 7 Desecrator 296 13. Dez 2011, 12:23
Desecrator Speichern als CSV: 110MB File!! Vorlage hat nur 1MB!
Keine neuen Beiträge Excel Formeln: Verweise auf CSV datei 3 Gast 501 21. März 2011, 17:16
Gast Verweise auf CSV datei
Keine neuen Beiträge Excel Formate: Csv import 5 Mawi1 1096 10. Feb 2011, 19:14
henriL Csv import
Keine neuen Beiträge Excel Formeln: Datenimport, Einzelne Zeilen mit 1 versehen 0 mark 3 186 06. Jan 2011, 11:10
mark 3 Datenimport, Einzelne Zeilen mit 1 versehen
Keine neuen Beiträge Excel Formeln: Problem: Gefilterte Zeilen (NV) in CSV sichtbar 0 tvtotal2010 593 07. Aug 2010, 12:53
tvtotal2010 Problem: Gefilterte Zeilen (NV) in CSV sichtbar
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formate: Excel: Zahlen bei *.csv falsch formatiert 1 El_Manu 892 08. Jul 2010, 23:09
shift-del Excel: Zahlen bei *.csv falsch formatiert
Keine neuen Beiträge Excel Formate: Excel: Zahlen bei *.csv falsch formatiert 2 El_Manu 2010 07. Jul 2010, 10:13
El_Manu Excel: Zahlen bei *.csv falsch formatiert
Keine neuen Beiträge Excel Formeln: SVERWEIS Fehler "#WERT" bei Datenimport 6 Boromeus 2778 17. März 2010, 12:38
Gast SVERWEIS Fehler "#WERT" bei Datenimport
Keine neuen Beiträge Excel Formate: Excel 2003 --> *.csv - Dateien öffnen? 16 Petersen 30341 02. Okt 2009, 11:46
Thomas Ramel Excel 2003 --> *.csv - Dateien öffnen?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen