关于vb程序读取excel文件的问题

Question

Set ex = CreateObject("Excel.Application")
Set exw = ex.Workbooks.Open(filename)
Set exs = exw.Worksheets("sheet1")怎么取得sheet1的总行数和总列数？

Answer 1

Public InfoExcel As Excel.Application
Public InfoBook As Excel.Workbook
Public InfoSheet As Excel.Worksheet
Set InfoExcel = Excel.Application
Set InfoBook = GetObject("F:\ff.xls")
Set InfoSheet = InfoBook.Worksheets("Sheet1")
按照 BaseInfoSheet.Cells(i, j) 读即可

Answer 2

读 infosheet.Cells(i,j)即可
对了,还要加引用Microsoft EXCEl9.0 object library

Answer 3

Dim exl As New Excel.Application
Dim Book As New Excel.Workbook
Dim Sheet As New Excel.Worksheet
'打开excel文件
Set Book = exl.Workbooks.Open("文件的路径")'打开某一工作去,sheet1为第一个工作区
Set Sheet = Book.Worksheets(1)With Sheet
    Dim i As Integer
    Dim r As Integer
    '得到某行某列的数据
    s = .Columns '总列数
    r = .Rows '总行数
    
End With