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
Du musst angemeldet sein, um einen Kommentar abzugeben.
Können Sie arbeiten zurück weisen:
In meiner Erfahrung ist die "Select" - Funktion können unzuverlässig sein. Sie können dies vermeiden, indem mithilfe der folgenden:
vorausgesetzt ich verstehe richtig, dass 's' ist die Nummer der Zeile.