Probleme bei der Suche nach der letzten Zeile in excel

Ich versuche diesen code zu finden, aus der letzten Reihe-

msgbox objExcel.ActiveWorkbook.Sheets(1).Range("A" & Rows.Count).EndXL(up).Row

Aber ich bin immer dieser Fehler-

Object required: Rows

Mattboy hat Ihnen die wichtigsten Fehler. Außer, dass Sie vollständig zu qualifizieren müssen die Rows Siehe diesen link stackoverflow.com/questions/11169445/... EDIT: machst du das in Excel? Ich habe das Gefühl, dass Sie mit vbscript?

InformationsquelleAutor Praveenks | 2013-02-18

  1. 0

    Ist es das, was Sie versuchen?

    Dim oXLApp, wb, ws

'~~> Define xlUp
Const xlUp = -4162

Set oXLApp = CreateObject("Excel.Application")

oXLApp.Visible = True

'~~> Open file. Chnage path as applicable
Set wb = oXLApp.Workbooks.Open("C:\Sample.xlsx")
Set ws = wb.Worksheets(1)

With ws
      MsgBox .Range("A" & .Rows.Count).End(xlUp).Row
End With

    Beachten Sie auch die Verwendung von Worksheets eher als Sheets Sehen diese link für die Erklärung.

    endlich...ich muss nur definieren xlup meinen code laufen..danke sid!!

    InformationsquelleAutor Siddharth Rout

  2. 1

    Versuchen 

    objExcel.ActiveWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

    Es ist einfach nur deine End(xlUp) Teil, dass ist falsch

    + 1 🙂 Guter Fang
    Ich habe versucht, diesen code..aber jetzt es gibt einen Fehler subscript out of range...was bedeutet es?Ich bin mit vbscript..
    Hmm... versuchen Sie es zu Sheets(1).Rows.Count. Das ist, was ich glaube, was Sid bedeutet mit voll qualifizierenden Zeilen.
    Ich habe versucht, diese -objExcel.ActiveWorkbook.Sheets(1).Range("A" & Sheets(1)Zeilen.Zählung).End(xlUp).Zeile..aber es ist immer ein Fehler "type mismatch" -Blätter
    Ihnen fehlt ein . zwischen den Platten(1) und Zeilen, ich glaube nicht, dass es das ist? Ansonsten bin ich ratlos hier. Es funktioniert von Excel, aber ich bin nicht so vertraut mit vbscript, sorry.

    InformationsquelleAutor mattboy

  3. 0

    Dies funktionieren könnte:

    dim last as integer
ActiveCell.SpecialCells(xlLastCell).Select
last = ActiveCell.SpecialCells(xlLastCell).Row

    InformationsquelleAutor TheJukiri

Schreibe einen Kommentar