Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Excel-Datei in Access Datenbank importieren
Autor: HaSte
Datum: 09.08.05 12:57
Jawohl das geht. Voraussetzung: Es muß ein Verweis auf die "Microsoft Excel 9.0 Object Library" gesetzt werde. Hier ein Beispielcode von mir zum Befüllen eines Flexgrid mit Daten aus einer Exceltabelle. Weitere Informationen dazu findest Du in der MSDN. Gruß Steffen Public Sub XLS_Import() Dim a As String, z As Integer, I As Integer, y As Integer Dim DatName As String, sChar() As String Dim xlapp As Excel.Application Dim xlwb As Workbook Dim xlws As Worksheet DatName = App.Path & "\CD_Etikett.xls" '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'Excelinstanz erstellen If Len(Dir(DatName)) < 4 Then 'Keine Datei da ÜP1 = 0 Exit Sub Else Set xlapp = New Excel.Application Set xlwb = xlapp.Workbooks.Open(DatName) Set xlws = xlwb.Worksheets(1) End If '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'Daten einlesen z = 2 y = 1 With Form3.MSFlexGrid1 Do If Len(xlws.Cells(z, 1).Value) < 3 Then Exit Do z = z + 1 Loop z = z - 1 Do If z = 1 Then Exit Do .Rows = .Rows + 5 .Row = y y = y + 5 .Col = 0 .Text = xlws.Cells(z, 1).Value .Col = 1 .Text = xlws.Cells(z, 2).Value .Col = 2 .Text = xlws.Cells(z, 3).Value .Col = 3 .Text = xlws.Cells(z, 4).Value .Col = 4 .Text = xlws.Cells(z, 5).Value .Col = 5 .Text = xlws.Cells(z, 6).Value .Col = 6 .Text = xlws.Cells(z, 7).Value .Col = 8 .Text = xlws.Cells(z, 9).Value & "/" & xlws.Cells(z, 10).Value .Col = 2 .Row = .Row + 1 .Text = xlws.Cells(z, 4).Value .Row = .Row + 1 .Text = xlws.Cells(z, 5).Value .Row = .Row + 1 .Text = xlws.Cells(z, 6).Value .Row = .Row + 1 .Text = xlws.Cells(z, 7).Value z = z - 1 Loop .Rows = .Rows - 1 End With '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'aufräumen xlwb.Saved = True xlwb.Close xlapp.Quit Set xlws = Nothing Set xlwb = Nothing Set xlapp = Nothing ÜP1 = 0 End Sub

Excel-Datei in Access Datenbank importieren	786	AlexAVA	07.08.05 21:31
Re: Excel-Datei in Access Datenbank importieren	515	HaSte	09.08.05 12:57

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