VFP 愛用者社區

[cgsusually67]

請問大大:
如果別人寄一個excel檔案給我,我如何透過vba能知道這個excel檔案的最後一行在那裡,謝謝

[LiuRambo]

能否用OLE功能跳到最後一筆我不知道
但是可以用迴圈取回資料檢查是否為空白

[jys]

Excel_sheet= CreateObject('Excel.Application')
Excel_sheet.Visible =.T.
Excel_sheet.WorkBooks.Add()

Excel_sheet.ActiveSheet.Cells(12,10).value="ABTMC"
nRowVal =0
For I=1 To Excel_sheet.Columns.Count
nRowVal = Max(Excel_sheet.Cells(Excel_sheet.Rows.Count,I).End(-4162).Row, nRowVal )
Next I
? nRowVal

12

[garfield]

Excel_sheet.Selection.SpecialCells(11).Select &&--(xlCellTypeLastCell).Select 檔案之右下角( 最底),最大值,max
? Excel_sheet.selection.row &&--所在位置
? Excel_sheet.selection.column &&--欄位位置

[ckp6250]

Excel_sheet.ActiveSheet.usedrange.address

[richshih]

activesheet.usedrange.rows.count