Erste Zeile ohne Inhalt ermitteln

17/06/2009 - 17:15 von Andreas Vogt | Report spam
Hallo,
aus Access heraus mach ich eine Excel automation und möchte eine
bestehende Excel Datei öffnen und in der nàchsten freien Zeile
weiterschreiben.

Hier mein Code:
Dim objXL As Object
Dim boolXL As Boolean
Dim objActiveWkb As Object
If fIsAppRunning("Excel") Then
Set objXL = GetObject(, "Excel.Application")
boolXL = False
Else
Set objXL = CreateObject("Excel.Application")
boolXL = True
End If
objXL.Application.Workbooks.Open FileName:=CurrentProject.Path &
"Importprotokoll.xls"

Set objActiveWkb = objXL.Application.ActiveWorkBook
With objActiveWkb
.Worksheets(1).Cells(X, 1) = "irgendwas"
End With

objActiveWkb.Close savechanges:=True
Set objActiveWkb = Nothing
If boolXL Then objXL.Application.Quit
Set objXL = Nothing

Gruß Andreas
 

Lesen sie die antworten

#1 Andreas Killer
17/06/2009 - 19:33 | Warnen spam
Andreas Vogt schrieb:

aus Access heraus mach ich eine Excel automation und möchte eine
bestehende Excel Datei öffnen und in der nàchsten freien Zeile
weiterschreiben.


Das sollte gehen:

Const xlUp = -4162

With objActiveWkb.Worksheets(1)
'Letzte Zeile ermitteln
Y = .Cells(.Rows.Count, 1).End(xlUp).Row
'Wenn Y=1, dann könnte die Zelle leer sein
If Not IsEmpty(.Cells(Y, 1)) Then Y = Y + 1
.Cells(Y, 1) = "irgendwas"
End With

Andreas.

Ähnliche fragen