vb 编程:遍历 Excel 中所有单元格,读取出所有单元格内容
首先添加引用:Microsoft Excel 11.0Object Library
Private Sub Command1_Click()
'1 定义 Excel 操作变量
Dim objExcelFile As Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objImportSheet As Excel.Worksheet
'2 打开 Excel 进程,并打开目标 Excel 文件
Set objExcelFile = New Excel.Application
objExcelFile.DisplayAlerts = False
Set objWorkBook = objExcelFile.Workbooks.Open("c:1.xls")
Set objImportSheet = objWorkBook.Sheets(3)
MsgBox objImportSheet.UsedRange.Columns.Count & " " &
objImportSheet.UsedRange.Rows.Count
'3 获取 Excel 有效区域的行和列数以及数据
Dim intLastRowNum, intLastColNum, intSheetCount As Integer
Dim I, J, K As Integer
intSheetCount = objWorkBook.Sheets.Count
For K = 1 To intSheetCount
Set objImportSheet = objWorkBook.Sheets(K)
intLastColNum = objImportSheet.UsedRange.Columns.Count
intLastRowNum = objImportSheet.UsedRange.Rows.Count