UWSC Excelで最終行を取得
uwsc
VBAでの取得方法
MaxRow = Range("A65536").End(xlUp).Row
MaxCol = Range("IV1").End(xlToLeft).Column ' IV1=256列UWSCでの取得方法
基本的にはVBAと同様となります。
Excelのオブジェクトに対して実施します。
Excelでは「xlup」という定数が利用できましたが、
UWSCでは実際の値である「-4162」を利用します。
// ファイルパス指定
filePath = GET_CUR_DIR + "\test.xlsx"
// Excelオブジェクト生成
EXCEL = CREATEOLEOBJ("Excel.Application")
// 非表示
EXCEL.visible = false
// Excelを開く
book = EXCEL.Workbooks.open(filePath)
// 最終行取得(列と行は任意で指定)
maxrow = book.sheets(1).range("A65536").End(-4162).Row
// 取得した値をメッセージ出力
msgbox(maxrow)
// Excel閉じる(閉じるダイアログを出さないで閉じる)
EXCEL.DisplayAlerts = False
book.Close
EXCEL.DisplayAlerts = True
