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: 11.03.13 16:52
Hallo an Alle! Die erste Programmvariante, Daten mit DAO 3.6 aus 2003 Excel-Tabelle aus einem def. Zeilenbereich "myRange2" auszulesen und diese evtl geänderten Daten wieder dorthin abzuspeichern geht ohne weiteres. Eine zweite Möglichkeit interessiert mich mehr; Daten, die in einer Spalte aber in mehreren (z.b: 10) Zeilen stehen auszulesen und diese nach Änderung wieder dorthin mit DAO 3.6 abzulegen. Das herauslesen der Spalte in Array und in die TextBoxen, die alle versch. Namen haben, zu platzieren geht. Siehe Code: Private Sub cmdLaden_Click() Dim dbtmp As DAO.Database Dim rs As DAO.Recordset Dim vRow() As Variant 'Angabe bei unbekannter Grösse der Tabelle Dim src_File As String Dim dstr As String Dim rsAnzahl As Long 'Variable für Anzahl DS im Recordset src_File = "testen.xls" dstr = App.Path & "\" & src_File On Error GoTo trans_Err Set dbtmp = OpenDatabase(dstr, False, False, "Excel 8.0;") If IsObject(dbtmp) Then DoEvents ' Recordsetobjekt anlegen und Daten holen ' Recordset-Objekt vom Typ Tabelle öffnen ' Im Bereich "myRange2" leigen die Daten i.d. Excel-Tabelle Set rs = dbtmp.OpenRecordset("select * from `myRange2`") rsAnzahl = rs.RecordCount If Not rs.BOF Or rs.EOF Then vRow = rs.GetRows(10) 'wir haben 10 Textboxen End If Me.Text1 = vRow(0, 0) Me.Text2 = vRow(0, 1) Me.Text3 = vRow(0, 2) Me.Text4 = vRow(0, 3) Me.Text5 = vRow(0, 4) Me.Text6 = vRow(0, 5) Me.Text7 = vRow(0, 6) Me.Text8 = vRow(0, 7) Me.Text9 = vRow(0, 8) Me.Text10 = vRow(0, 9) End If trans_Exit: rs.Close Set rs = Nothing dbtmp.Close Set dbtmp = Nothing dstr = "" Exit Sub trans_Err: Resume trans_Exit ' alles freigeben und schließen End Sub Leider komme ich nicht darauf, wie ich die in den einzelnen TextBoxen abgeänderten Daten wieder in dem "myRange2"-Bereich abspeichern könnte. Wieder mit Array, aber wie? Hat jemand Idee bzw. Lösungsweg wie ich bewerkstelligen kann?

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.515	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.468	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.554	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.467	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.373	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