Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon morpheus__85 vom 25.04.2019, 13:30 Options
excel daten in txt auslesen
Hallo Leute,
hätte da mal eine Frage.
und zwar...
ich hab eine excel datei.
In der 1 Reihe (z.B. A1. B1) stehen Abkürzungen z.b. KTNR
in der 2 Reihe (z.B. A2, B2) stehen die Erklärungen dazu z.B. Kundennummer
in der 3 Reihe (z.b. A3, B3) stehen die Werte dafür z.B. 1234
ich will es jetzt von excel in eine txt datei auslesen lassen das es folgendermaßen aussieht.
KTRN = 1234
//Kundennummer
Kundennummer muss auskommentiert sein, will es dann in unsere Datenbank einfügen.
Kann mir da jemand behilflich sein?
Gruß
morpheus
hätte da mal eine Frage.
und zwar...
ich hab eine excel datei.
In der 1 Reihe (z.B. A1. B1) stehen Abkürzungen z.b. KTNR
in der 2 Reihe (z.B. A2, B2) stehen die Erklärungen dazu z.B. Kundennummer
in der 3 Reihe (z.b. A3, B3) stehen die Werte dafür z.B. 1234
ich will es jetzt von excel in eine txt datei auslesen lassen das es folgendermaßen aussieht.
KTRN = 1234
//Kundennummer
Kundennummer muss auskommentiert sein, will es dann in unsere Datenbank einfügen.
Kann mir da jemand behilflich sein?
Gruß
morpheus
Antwort 1 von Kauz vom 30.04.2019, 03:49 Options
Hallo morpheus....
hab mal was zusammengebastelt:
Sub auslesen()
verz = CurDir() 'aktuell in excel unter Optionen eingetragenes Verzeichniss
Datei = "Probe" ' beliebiger Dateiname
' -------------
i = 1 ' Startpunkt 1. Spalte
Open verz & Datei & ".txt" For Output As #1 ' Datei öffnen
' wiederholen bis Spalte der 1.Zeile leer
Do While Sheets("Tabelle1").Cells(1, i) <> ""
Print #1, Sheets("Tabelle1").Cells(1, i); "="; ' Werte schreiben
Print #1, Sheets("Tabelle1").Cells(3, i)
Print #1, "//"; Sheets("Tabelle1").Cells(2, i)
i = i + 1 ' Zähler für Spalten um eins erhöhen
Loop
Close #1 ' Datei schliessen
End Sub
Falls Du nicht damit klar kommst (weiß ja nicht wie fit Du mit Makro's bist)
weiterfragen.
Gruß Andreas
hab mal was zusammengebastelt:
Sub auslesen()
verz = CurDir() 'aktuell in excel unter Optionen eingetragenes Verzeichniss
Datei = "Probe" ' beliebiger Dateiname
' -------------
i = 1 ' Startpunkt 1. Spalte
Open verz & Datei & ".txt" For Output As #1 ' Datei öffnen
' wiederholen bis Spalte der 1.Zeile leer
Do While Sheets("Tabelle1").Cells(1, i) <> ""
Print #1, Sheets("Tabelle1").Cells(1, i); "="; ' Werte schreiben
Print #1, Sheets("Tabelle1").Cells(3, i)
Print #1, "//"; Sheets("Tabelle1").Cells(2, i)
i = i + 1 ' Zähler für Spalten um eins erhöhen
Loop
Close #1 ' Datei schliessen
End Sub
Falls Du nicht damit klar kommst (weiß ja nicht wie fit Du mit Makro's bist)
weiterfragen.
Gruß Andreas
Ähnliche Themen
Ich möchte in Excel den Inhalte aller TXT-Dateien eines Verzeichnisses in ein Excel Blatt kopieren.
eexil44 07.02.2007 - 157 Hits - 6 Antworten
IPTC Daten auslesen und in Excel exportieren
amigooo 07.09.2007 - 89 Hits - 2 Antworten
Komma durch Punkt bei Export ersetzen
Tomschi 02.10.2007 - 67 Hits - 10 Antworten
jede 5 Zeile aus .txt Datei in Excel kopieren
MarcoP 02.11.2007 - 166 Hits - 1 Antwort
txt - Datei
Andrea26 16.01.2008 - 82 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
