克洛伊了剧情:vb 读取excel内容

     VBA例子:  

                  Option Explicit

Dim xlExcel As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet     Dim er As Excel.Range Dim AppExcel As Object

  Private Sub Command1_Click()

On Error GoTo Errhandler CommonDialog1.Filter = "Excel(*.xls) |*.xls |AllFile(*.*) |*.*" CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen Set xlExcel = CreateObject("Excel.Application") xlExcel.Workbooks.Open CommonDialog1.FileName Set xlBook = xlExcel.Workbooks(CommonDialog1.FileTitle) For Each xlSheet In xlBook.Worksheets List1.AddItem xlSheet.Name Next Text2.Text = xlBook.Worksheets.Count Errhandler:

     Exit Sub End Sub  Private Sub List1_Click()

xlBook.Sheets(List1.List(List1.ListIndex)).Select ' xlBook.Worksheets(List1.ListIndex ) Text1.Text = xlBook.Worksheets(List1.List(List1.ListIndex)).Cells(1, 1)    'xlBook.xlSheet.Cells(1, 1).Value xlBook.Save xlBook.Close xlExcel.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlExcel = Nothing

End Sub   ----------------------------------------------------------------  VB参考：
Private Sub Command1_Click()
Set xlsApp = Excel.Application
With xlsApp
    .Visible = True
    .Workbooks.Open ("c:\temp.xls")
    x = .Workbooks("temp").Sheets("Sheet1").Range("A1").Value
    MsgBox x
End With
xlsApp.Workbooks("temp").Close
xlsApp.Quit
Set xlsApp = Nothing
End Sub----------------------------------------------------------------- Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook
Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Open("d:\aa.xls") '临时创建Excel时使用：Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = False
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")
Dim uu(2 To 9) As Integer
For i = 3 To 10
     uu(i - 1) = Worksheets("sheet1").Cells(i, 1).Value
Next i
'objWorkBook.Save
objWorkBook.Close
objExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
End Sub