Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Tabellenvergleich
Autor: TR
Datum: 08.08.02 13:22
Hallo, ich will 2 Sheets eines Workbooks miteinander vergleichen, bekomme aber immer die Fehlermeldung " Objekte anlegen" in Zeile "Set Db = ..." Warum? Vielen Dank! TR Sub Vergleich() Dim DBName As String Dim SQL As String Dim qry As QueryTable DBName = ActiveWorkbook.Name Set Db = DBEngine.OpenDatabase("DBName", False, False, "Excel 9.0;") SQL = "SELECT * FROM 'alt' INNER JOIN 'neu' ON " & "'alt'.Kundennr = 'neu'.Kundennr" & "'alt$'.Name1 = 'neu$'.Name1" & "'alt$'.Name2 = 'neu$'.Name2" Set Rs = Db.OpenRecordSet(SQL) ActiveWorkbook.Sheets("").Select Set qry = ActiveSheet.QueryTables.Add(Rs, Range("A1")) qry.Refresh End Sub

Tabellenvergleich	54	TR	08.08.02 13:22
Re: Tabellenvergleich	233	unbekannt	08.08.02 14:31

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