Hej, skall utforma ett Excel-dokument genom att ha en mall som jag sedan utgår ifrån när jag hämtar data från en Access-databas. Jag använder följande skript för att hämta den data jag behöver, vilken läggs i ett ”recordset”.
Sub DAOCopyFromRecordSet(DBFullName As String, TableName As String, _
FieldName As String, TargetRange As Range)
Dim db As Database
Dim rs As Recordset
Dim intColIndex As Integer
Set TargetRange = TargetRange.Cells(1, 1)
Set db = OpenDatabase(DBFullName)
Set rs = db.OpenRecordset("SELECT * FROM " & TableName, dbReadOnly) ' Hämta Data
' write field names
For intColIndex = 0 To rs.Fields.Count - 1
TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name
Next
' write recordset
TargetRange.Offset(1, 0).CopyFromRecordset rs
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
Att kopiera in hela recordsettet, som består av flera kolumner och många rader, är inga problem men jag vill ha ökad kontroll. Som det ser ut nu är det raden ”TargetRange.Offset(1, 0).CopyFromRecordset rs” som gör det jobbet. Jag vill kunna dels,
1) Lägga in rad för rad. Dvs infoga raderna för att information i min mall skall ”skjutas ned” vid varje ny rad som infogas”.
2) Kunna välja i vilken kolumn informationen klistras in, som det ser ut nu blir det per automatik A,B,C,D etc. Jag vill kunna hoppa över kolumner för att detta skall passa in i min mall.
Ev. lösningar som jag ser är att t.ex. hämta ut respektive kolumn (med en passande SELECT) från databasen och lägga i en separat recordset, men tycker att detta är en fruktansvärt ful lösning! Vidare så löser det ju inte mitt ”infoga”-problem heller. Visst, kanske skulle kunna kolla hur många rader mitt recordset har och infoga si eller så många rader, men återigen är det en rätt ful lösning.
Hoppas att ni kan hjälpa mig med dessa bekymmer! Om inte annat kanske peka mig i rätt riktning All hjälp uppskattas. Programmerar inte så ofta VBA kanske det bör tilläggas, men nu visade det sig väldigt nödvändigt!
