Zeile einfügen in excel

Ich bin füllen Sie die Daten aus ms access nach excel über VBA. Meine db enthält eine Reihe von Gruppe detail, das ich mich trennen möchte den Mitgliedern der Gruppe in der Bevölkerung das problem ist, dass am Ende von jeder Gruppe will ich fügen 2 Zeilen im excel-Blatt bin ich mit dem unten genannten code, aber ich nicht funktioniert ist jedem möglich?

Dim varConnection
Dim varSQL
Dim cal, cal1, x


   varConnection = "ODBC; DSN=MS Access Database;DBQ=table.accdb; Driver={Driver do Microsoft Access (*.accdb)}"


   varSQL = "SELECT leftman.Productname,leftman.Description,leftman.SULM,leftman.MTR,leftman.meter1 FROM leftman INNER JOIN Product ON leftman.gid = Product.Productname ORDER BY Product.ID, leftman.ID"
   With ActiveSheet.QueryTables.Add(Connection:=varConnection, Destination:=ActiveSheet.Range("B4"))
           .CommandText = varSQL
           .Name = "Query-39008"
           .Refresh BackgroundQuery:=False

   End With
   x = Range("J5", Range("J5").End(xlDown)).Rows.Count

    k1 = 5
    k2 = 6
    For i = 0 To x
    s = k1 + i
    s1 = k2 + i

   If Range("J" & s & "").Value = Range("J" & s1 & "").Value Then
   msgbox "same group"

   Else

   Range("J" & s & "").Select
   ActiveCell.Offset(1).EntireRow.Insert
   ActiveCell.Offset(1).EntireRow.Insert
   k1 = 5 + 2
   k2 = 6 + 2

   End If
   Next i

zuerst rufe ich die Daten aus access von groupwise
X ist meine Zeilenanzahl
K1 ist Zelle 1 und K2 ist cell2 ich bin den Vergleich der Zelle 1 mit Zelle 2 durch die Schleife, wenn die Daten nicht

übereinstimmt, dann ist es überlegen, eine weitere Gruppe so nach, dass die Zell-ich will zum einfügen der 2 Zeilen

InformationsquelleAutor raam | 2010-06-02
Schreibe einen Kommentar