Office: (Office 2007) über VBA Access erste leere Zeile im Excel finden

Hallo Leute,

brauche dringend eure Hilfe. Ich möchte über VBA Access im Excel File die erste leere Zeile finden.

In Excel VBA funktioniert das so:

For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value = "" Then
leerezeile = Cells(i, 1).Select
Exit For
End If
Next i

In Access hab ich das so probiert:

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(File)
Set xlSheet = xlBook.Worksheets("Tabelle1")

With xlApp
For i = xlSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If .Cells(i, 1).Value = "" Then
leerezeile = .Cells(i, 1).Select
Exit For
End If
Next i
End With

leider erkennt das VBA Access das End(xlUp) nicht. Wie kann man das anders machen?

Bitte um eure Hilfe. Danke im voraus!

Grüße, Paul

:)

 

Hallo und herzlich Willkommen!

Da fehlt dann wohl der Verweis auf die Excel-Objektbibliothek. Ersatzweise kannst du die Excel-Konstante in Access deklarieren.

BTW: Code:

Und da fehlt noch der Objektbezug, das dürfte früher oder später zu Problemen führen.

 

Vielen dank für die schnelle Antwort.

wie funktioniert die Excel Konstanten deklaration in Access für End(xlUp)?

const... ?

Den Objektbezug kann ich einfach mit xlSheet.Rows machen oder?

For i = xlSheet.Cells(xlSheet.Rows.Count, 1).End(xlUp).Row To 1 Step -1

 

Hi.

Dazu öffnest du Excel, gehst über Extras in den VBA-Editor, wechselst dort in den Objektkatalog und suchst nach xlUp.
Da findest du die Deklaration, die du nach Access kopieren kannst.

Ja. Aber du kannst auch gleich alles mittels With xlSheet in einen Block fassen, xlApp brauchst du in dem Zusammenhang nicht.

 

coole sache *Smilie

hast mir sehr weiter geholfen. vielen dank *Smilie

 

Hallo zusammen

ich habe dasselbe Problem wie pbors.

Allerdings komme ich mit den Hinweisen von Anne leider nicht weiter.

Kann mir jemand die genaue Vorgehensweise noch mal erklären? Bzw. zeigen, wie der Code im VBA-Editor von Access aussehen würde?

 

Hallo,

was genau hast du daran nicht verstanden:

Eine genauere mehr "Schritt für Schritt"-Anleitung kann es doch kaum geben.

Aussehen täte die Deklaration bspw. so: Code:

 

Hallo Anne,

das Problem liegt darin, dass ich immer den Laufzeitfehler 424 bekomme:

"Objekt erforderlich"

Folgende Codezeile wird beim Debuggen markiert:

Code:

Hier mal der vollständige Code:

Code:

Siehst du meinen Fehler?

 

push *Smilie

 

Hallo, Code:

da fehlt der Bezug zum zugehörigen Excel-Objekt.

So sollte es klappen: Code:

 

Danke, jetzt funktioniert alles!

 

Den von mir geposteten Code führe ich letztendlich über einem Button in einem Formular aus.

Damit der Code funktioniert, muss man einen Ordnerpfad hinterlegen.

Jetzt kann sich der Ordnerpfad je Anwender unterscheiden.

Gibt es eine Möglichkeit, im Formular den jeweiligen Pfad anzugeben und diesen Pfad dann als Variable an die SQL-Abfragen und den VBA-Code zu übergeben?

Falls ja, wie kann ich das umsetzen?

Ich denke da an ein Textfeld im Formular oder an sowas wie diesen Ordnerdialog, der gestartet wird, wenn man einen Datei auf seinem PC speichern möchte....

 

Hi,

wo in deinem Code kommt ein "Ordnerpfad" in einer SQL-Abfrage zum Einsatz?

Datei-Öffnen-Dialog könnte hierzu ein geeignetes Suchwort sein, bzw. Speichern-Unter.

 

Danke! Konnte mit deinen Stichwörtern den Filedialog umsetzen.

Jetzt wüsste ich nur noch gern, wie ich den Verzeichnis-Pfad und den Dateinamen von VBA an SQL übergeben kann?

Anbei mal der entsprechende SQL-Code:

Code:

Die Variablen in VBA lauten:

verzeichnis = "D:\Beispiel"

dateiname = "test"

Ich stelle mir das wie folgt vor, allerdings bekomme ich das nicht umgesetzt.

Code:

 

Hallo,

der SQL-Code muss vor der Ausführung dynamisch erstellt werden, im SQL-Code kannst du keine Variablen verwenden. Code: