怎样－－返回EXCEL表中单元格的内容？？

Question

怎样－－返回EXCEL表中单元格的内容？？
包括单元格的值，行值，及内容！！

Answer 1

Private Sub Form_Load()
Dim xlApp As Object   '定义存放引用对象的变量。
Set xlApp = CreateObject("excel.application")
   '如果要让该应用程序可见，则需将 Visible 属性设为 True。
Set vBook = xlApp.Workbooks.Add
xlApp.Visible = True
 For i = 1 To 10 '循环写入数据
  For j = 1 To 5
  xlApp.Cells(i, j) = "E" & i & j
 Next
  Next
  i = 3: j = 5
  MsgBox "第" & i & "行" & "第" & j & "列" & "单元格的值为:" & xlApp.Cells(i, j)
'返回EXCEL表中单元格的内容
   '可以使用 xlApp 访问 Microsoft Excel 的
   '其它对象。
xlApp.Quit   '完成时，调用 Quit 方法关闭
Set xlApp = Nothing
End Sub

Answer 2

'先引用excel *.0 object library
Private Sub Command3_Click()
    Dim ex As Excel.Application
    Dim wb As Excel.Workbook
  
    Set ex = CreateObject("Excel.Application")
    Set wb = ex.Workbooks.Open("c:\1.xls")  ' 改成你的文件路径  在文件里写几个数试试
    Set sh = wb.Sheets(1)
    wb.Worksheets(1).Select
    
    A = ex.ActiveSheet.UsedRange.Rows.Count '计算总行数    For i = 1 To A
     For j = 1 To A
      If sh.Cells(i, j) <> "" Then
       MsgBox "第" & i & "行" & "第" & j & "列的数据是" & sh.Cells(i, j)
       End If
      Next j
     Next i
    MsgBox "表格中最后一行数据在" & ex.ActiveSheet.UsedRange.Rows.Count & "行" '行
    MsgBox "表格中最后一列数据在" & ex.ActiveSheet.UsedRange.Columns.Count & "列" '列
    MsgBox "表格中第I列里一共有" & ex.Application.WorksheetFunction.CountA(Columns("I:I")) & "个单元里面有数据"
    wb.Close
    ex.Quit
End Sub