VBScript - para encontrar la última fila en Excel

Este registros en papel, utilizar VBScript, Excel cómo encontrar la página, la última línea.

La solución de referencia VBA:

Muchas soluciones de VBScript y VBA son comunes, especialmente para el tiempo de Excel,
por lo que vamos a ver VBA, de uso común en el Método 3 a continuación:

'从页面最后一行，按 Ctrl + Up 箭头
  LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

'使用 UsedRange 属性
  LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row

'使用 SpecialCells 函数
  LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row

VBScript en la solución:

Entonces miramos, VBScript, la forma de lograr el efecto anterior,
si, si el código anterior se ejecuta directamente en VBScript, donde se produce el error,
el medio es cierto que hay un truco, es que no vi antes a,
es decir, VBScript se debe configurar manualmente, constante (constante),
y, VBA, estos valores son constantes, es el valor por defecto, no se establece,
a continuación, el código VBScript para ver:

'先设定要使用到的 Objects（对象）
    Set oExcel = GetObject(,"Excel.Application")
    Set wb = oExcel.Workbooks("Book10 - Copy.xlsm")
    Set sht = wb.worksheets("Data")
    wb.Activate

'从页面最后一行，按 Ctrl + Up 箭头
    Const xlUp = -4162
    LastRow = sht.Cells(sht.Rows.Count, 1).End(xlUp).Row
    MsgBox LastRow 

'或者，使用 Range，和 Ctrl + Up 箭头
    Const xlUp = -4162
    LastRow = sht.Range("G" & sht.Rows.Count).End(xlUp).Row
    MsgBox LastRow 

'或者，使用 UsedRange 属性
    LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
    MsgBox LastRow 

'或者，使用 SpecialCells 函数
    Const xlCellTypeLastCell = 11
    LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row
    MsgBox LastRow 

Lo anterior es una realización en VBScript,
constante numérica puede ir a la documentación oficial de Microsoft para encontrar,
constantes utilizadas comúnmente, existen los cuatro siguientes, que se enumeran para su referencia:

    Constant	    Value
    xlDownward	    -4170
    xlHorizontal    -4128
    xlUpward	    -4171
    xlVertical	    -4166

lectura de referencia:

1. 5 Diferentes maneras de encontrar la última fila o columna usando Última VBA - La hoja de cálculo Guru
2. Encuentra parte inferior de una columna en Excel usando VBScript - desbordamiento de pila
3. Microsoft Excel Constantes [Excel 2003 VBA Referencia del lenguaje] | microsoft Docs