刚开始学Vb，怎么把Excel中的数据导入到VB中的数组变量里面呢？
这个看了一些书，一直没看到解决的办法。

xlsheet是EXCEL页面物件变量

xlsheet.Cells(StartNum, StartNum1)=X '写入EXCEL
X=xlsheet.Cells(StartNum, StartNum1) '读出EXCEL

倒着写就行

数组变量和变量其实一样~差个index而已~

能不能稍微详细一点，我比较菜，谢谢了~~~

抱歉我更菜～没想到读出来的方法这么不一样～现在下班了才慢慢试出来～

写入简单～一般我都只写入～没读出过～

Option Base 1

Private Sub Command1_Click()
Dim a As Excel.Application
Dim b As Excel.Workbook
Dim c As Excel.Worksheet

    Set a = CreateObject("Excel.Application")
    Set b = a.Workbooks.Add
    Set c = b.Sheets(1)
    
    c.Activate
    
    For i = 1 To 10
        For j = 1 To 10
            c.Cells(i, j) = "ABC"
        Next j
    Next i

    a.ActiveWorkbook.SaveAs ("C:\TMB\123.xls")
    a.Workbooks.Close

End Sub

读出比较特别一点～

Private Sub Command2_Click()
Dim a As Excel.Application
Dim d() As String, E As String

    ReDim d(10, 10)
    
    Set a = CreateObject("Excel.Application")
    
    With a
        .Workbooks.Open "C:\TMB\123.xls"             '要打開的 xls 檔案
        
        For i = 1 To 10
            For j = 1 To 10
                E = a.Worksheets("Sheet1").Cells(i, j).Value
                d(i, j) = E
            Next j
        Next i
        .Quit
    End With

End Sub

不知道为何还得先拿个E缓冲～再写到数组中～直接写说不行～

[ 本帖最后由 wube 于 2011-5-11 01:27 编辑 ]

还想请教一下，刚一运行他就说“用户定义类型未定义”，在使用Excel.Application时，是不是要先调整一些参数呢？

用户定义类型未定义 => 一般是打错指令
如果照我的打出現這錯誤~也許是你沒先引用EXCEL Object


[ 本帖最后由 wube 于 2011-5-13 02:36 编辑 ]