Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO importieren
Autor: Michael_HU
Datum: 09.03.13 05:18
Guten Morgen Blackbox, bin etwas weitergekommen: Das herüberholen der Excel-Daten in den 10 TextBoxen habe ich folgendermaßen gelöst:   it Private Sub Command1_Click() Dim dbtmp As DAO.Database Dim tblObj As DAO.TableDef Dim rs As DAO.Recordset Dim x As Integer Dim dstr As String Dim anz As Long dstr = "G:\Testprogramme_allgemein\Visual Studio 6.0\Abfragen und Aktualisieren von Excel-Daten mit ADO von ASP\testen.xls" Set dbtmp = OpenDatabase(dstr, False, True, "Excel 8.0;") DoEvents ' Recordset-Objekt vom Typ Tabelle öffnen ' Im Bereich "myRange2" leigen die Daten i.d. Excel-Tabelle Set rs = dbtmp.OpenRecordset("select * from `myRange2`") rs.MoveFirst 'rs.MoveLast anz = rs.Fields.Count 'Anzeige Feldanzahl nur für Kontrollzwecke Me.txtBoxFieldAnzahl = anz While Not rs.EOF 'BOF? For x = 0 To rs.Fields.Count - 1 ' Auslesen der Daten, wenn diese in einer Zeile sind Text1 = CStr(rs.Fields(0).Value) Text2 = CStr(rs.Fields(1).Value) Text3 = CStr(rs.Fields(2).Value) Text4 = CStr(rs.Fields(3).Value) Text5 = CStr(rs.Fields(4).Value) Text6 = CStr(rs.Fields(5).Value) Text7 = CStr(rs.Fields(6).Value) Text8 = CStr(rs.Fields(7).Value) Text9 = CStr(rs.Fields(8).Value) Text10 = CStr(rs.Fields(9).Value) Next x rs.MoveNext Wend rs.Close Set rs = Nothing Set dbtmp = Nothing Set tblObj = Nothing dstr = "" End Sub Allerdings kann ich diesen Weg nur gehen, wenn die Daten in einer Zeile sind. Da ich die Feldlänge kenne und diese nicht all zu lang ist, ist das kein Problem. Sicherlich gibt es andere Lösung für den Datenimport. Meine zusammengehörenden Daten liegen in der Excel-Tabelle jedoch in einer Spalte. Wie löse ich diesen Schritt?

Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO importier...	4.397	Michael_HU	08.03.13 19:52
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.514	Michael_HU	08.03.13 19:59
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.548	Blackbox	08.03.13 21:16
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.465	Michael_HU	08.03.13 21:25
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.467	Blackbox	08.03.13 21:54
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.508	Michael_HU	09.03.13 05:18
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.549	Blackbox	09.03.13 10:19
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.553	Michael_HU	09.03.13 10:56
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.443	Michael_HU	10.03.13 18:42
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.466	Michael_HU	11.03.13 16:52
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.524	Blackbox	11.03.13 20:01
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.514	Michael_HU	12.03.13 07:29
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.411	Blackbox	12.03.13 18:01
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.373	Michael_HU	12.03.13 18:12
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.502	Michael_HU	13.03.13 08:44
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.372	Michael_HU	27.03.13 06:55

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