代码：

        Set objApp = CreateObject("Excel.Application")
        Set objBook = objApp.Workbooks.Open("文件名")
        objBook.Sheets("表名").Select
    
        lngRow = objBook.Sheets("表名").[A65535].End(xlUp).Row
        lngColumn = objBook.Sheets("表名").[IV1].End(xlToLeft).Column