Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Text-Datei Import/Export
Autor: Prian0815
Datum: 17.08.05 10:20
Hi Werner, probiers mal hiermit: ANMERKUNG. Ubound(sData) gibt den letzten Index zurück LBound den ersten Private Sub cmdRead_CSVData_DblClick(Cancel As Integer) On Error GoTo Err_cmdRead_CsvData_DblClick Dim Rueckwert As String 'CSV - Datei öffnen Rueckwert = AP_DateiOeffnen("", "") Set db = CurrentDb Set rs = db.OpenRecordset("Artikel") F = FreeFile: Open Rueckwert For Input As #F ' Datei zeilenweise einlesen While Not EOF(F) Line Input #F, sLine sData = Split(sLine, ";") rs.AddNew rs!Art_Nr = sData(0) rs!Art_Bez = sData(1) rs!Art_Gebin = sData(4) rs.Update Wend ' CSV - Datei und Recordset schließen rs.Close Set rs = Nothing Close Exit_cmdRead_CsvData_DblClick: Exit Sub Err_cmdRead_CsvData_DblClick: MsgBox Err.Description Resume Exit_cmdRead_CsvData_DblClick End Sub Gruß Armin P.S.: always look on the bright side of Life!

Text-Datei Import/Export	1.001	WMFink	17.08.05 06:28
Re: Text-Datei Import/Export	595	Prian0815	17.08.05 10:20
Re: Text-Datei Import/Export	493	WMFink	29.08.05 13:15
Re: Text-Datei Import/Export	527	Sloothword	03.09.05 12:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen