Office: (Office 2016) Exceltabelle nach Auslesen Schließen

Guten Tag, ich bin am verzweifeln, ich Importiere Daten aus einer Excel - Tabelle wie folgt:

PHP:

         Public Sub  import()

Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Dim wbook1 As New Excel.Application


wbook1.Workbooks.Open ("d:Daten.xlsx")
End If

Set rs = CurrentDb.OpenRecordset("Kunden")
With rs
.AddNew

.Fields("vorname") = wbook1.ActiveWorkbook.ActiveSheet.Cells(2, 2)
.Fields("Nachname") = wbook1.ActiveWorkbook.ActiveSheet.Cells(3, 2)

.Fields("Strasse") = wbook1.ActiveWorkbook.ActiveSheet.Cells(4, 2)
.Fields("PLZ") = wbook1.ActiveWorkbook.ActiveSheet.Cells(5, 2)
.Fields("Ort") = wbook1.ActiveWorkbook.ActiveSheet.Cells(6, 2)
.Fields("Mail") = wbook1.ActiveWorkbook.ActiveSheet.Cells(7, 2)


.Update
.Close
End With


Set rs = Nothing
Set DB = Nothing

End Sub


:)

 

Moin,
Code:

Nebenbei: Du hast 1 End If zuviel im Code.

 

Oh danke, die (1) war das Problem. Ansonsten hatte ich das schon mit dem Code versucht.

MArtin

 

Vielleicht als Gedächtnisstütze: bei WorksheetS muss man schon sagen, um welches es geht ;-)

 

warum nicht ... Code:

Es wird doch nur eines geöffnet. Ist nicht 0 der erste Index?

 

\@Frank200:
In Excel beginnen Auflistungen meist mit dem Index 1, nicht 0 wie üblich in der Programmierung. Im Zweifelsfall testen, Option Base einstellen oder so.

 

Danke Eberhard. Es war mir nur aufgefallen - benutze Excel kaum. Erstaunlich, daß es solche Unterschiede innerhalb des Office-Pakets gibt, bei gleicher VBA-Basis. Evtl. wird ja bei Excel Option Base 1 irgendwie intern gesetzt.