title image


Smiley Re: Datenimport (xls) per VBA
Hab mal an einem tool rumgebastelt - hat auch ansatzweise funktioniert. Vielleicht reicht es Dir ja zum Einstieg.

Hier der Code:



Sub LeseAusExcelTabelle()

Dim ExApp As New Excel.Application 'excel wird gestartet

Dim ExAm As Excel.Workbook

Dim ExTab As Excel.Worksheet

Dim ExBereich As Excel.Range

Dim rs As DAO.Recordset

Dim Zeile As Long

Dim dummy



'Tabelle öffnen

Set rs = Application.CurrentDb.OpenRecordset("Table1")

dummy = rs.BOF



'Arbeitsmappe öffnen

Set ExAm = ExApp.Workbooks.Open("c:\daten\test4.xls")

Set ExTab = ExAm.Worksheets("Tabelle1")



With ExTab

.Activate



MsgBox .Cells(1, 1).Value & " - " & Cells(1,2).Value

Zeile = 2



Do While .Cells(Zeile, 1).Value ""

rs.AddNew

rs![Text] = .Cells(Zeile, 1).Value

rs![Zahl] = .Cells(Zeile, 2).Value

rs.Update

Zeile = Zeile + 1

Loop

Set ExBereich = .Cells.CurrentRegion

ExBereich.Name = "Accdaten"

End With



rs.Close



ExAm.Close (False)

ExApp.Quit



End Sub





Viel Spaß damit! Vielleicht gibst du mir mal ein feedback, wie du weiter gekommen bist, denn ich möchte den Datenimport von EXCEL auch noch programmieren.





Ulf

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: