Anzeige

Am Puls von Microsoft

Anzeige

[gelöst] Excel VBA Datei einlesen und LF durch CRLF ersetzen

PeteM92

gehört zum Inventar
Eine Frage / Bitte an die Excel-Spezialisten:

Ich möchte in Excel VBA die angehängte Datei (SBFspot.csv) einlesen und den Dateiinhalt in einer Stringvariablen MyString ablegen. Aber meine VBA-Kenntnisse reichen da wohl nicht aus.

Meine Versuche mit folgenden Codes lesen mir nur 256 Bytes aus der Datei ein

Open MyFile For Binary As #1
MyString = Input(LOF(1), #1)
CLOSE #1

MyFile = "SBFspot.csv"
Open Myfile For Binary As #1
strAll = Space(LOF(1))
Get #1, , Mystring
Close #1


Ziel ist folgender Ablauf:
. Datei einlesen
. abprüfen ob schon CR/LF enthalten ist
. wenn nein alle LF durch CR/LF ersetzen
. Datei schreiben

Es wäre toll, wenn mir jemand auf die Sprünge helfen könnte.


Hintergrund:
Ich habe ein Excel-Programm, das Dateien einer Photovoltaik-Anlage schön grafisch darstellen kann.
Die Dateien kann ich vor Ort über Bluetooth auslesen (mit einem Programm SMAExplorer). Leider bin ich nicht immer vor Ort. Deshalb habe ich mit einem Raspberry Pi und dem Programm SBFspot einen Umsetzer Bluetooth auf LAN zusammengestellt. Das Auslesen über das Internet funktioniert, aber die Dateien, die ich damit erhalte, enthalten nur LF statt CR/LF am Zeilenende. Damit kann mein Excel-Programm diese Dateien nicht verarbeiten.
 

Anhänge

  • SBFspot.zip
    1,8 KB · Aufrufe: 128
Anzeige
Warum denn so umständlich? Lade dir die CSV-Datei in den Editor Notepad++, dann im Menü "Bearbeiten" das "Format Zeilenende" anklicken, "Windows (CR+LF)" auswählen und die Datei wieder speichern.
 
Ja, das ist eine Möglichkeit, die für eine einzelne Datei zweckmäßig ist.
Da aber täglich Dateien anfallen, möchte ich das gerne automatisch machen und in die Excel-Auswertedatei einbinden.
 
Ach so, ja dann ist die die manuelle Konvertierung natürlich blöd.
Leider habe ich schon lange nichts mehr mit Excel und VBA gemacht und müsste mich da wieder einarbeiten, um dir helfen zu können.
 
Update:
Problem gelöst. Ich habe jemanden im erweiterten Bekanntenkreis gefunden, der sich gut mit Excel VBA auskennt und der mir die notwendigen Modifikationen eingebaut hat.
 
Anzeige
Oben