how从Excel中读数据到vb中?

Question

先在工程中选中 Ms  9.0 excel object ，即对EXCEL的引用
 
    Dim xlApp As Excel.Application
    Dim wbzhishu As Excel.Workbook
    Dim shtzhishu As Excel.Worksheet    On Error Resume Next
        Set xlApp = GetObject(, "Excel.Application")
        If Err.Number <> 0 Then
            Set xlApp = CreateObject("Excel.Application")
        End If
        Err.Clear
    
    Set wbzhishu = xlApp.Workbooks.Open(filename1)
    Set shtzhishu = wbzhishu.Sheets("sheet2")

Answer 1

我是VB初學者﹐有一問題相問﹐ 怎樣用VB代碼將記錄集的資料轉成Excel文件﹖ 如果有代碼﹐請發一個給我 . 盼在百忙之中抽丁點時間回復我﹐ 非常感謝﹗
[email protected]

Answer 2

UP同意： henrryzhang(North Wolf）