现有一个excel文件，内有一4×100的数据，我想在VB中建立一个四维数组a(4,100)，请问应该如何实现？谢谢！

[此贴子已经被作者于2006-10-12 8:13:06编辑过]

Private Sub Form_Click()
Me.AutoRedraw = True
Dim xlsApp As Excel.Application
Dim xlsworkbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet

Set xlsApp = CreateObject("Excel.Application")
Set xlsworkbook = xlsApp.Workbooks.Open("D:\mdb\Book1.xls")
xlsApp.Visible = True

Set xlssheet = xlsworkbook.Worksheets.Item(1)

Dim Mat(1 To 10, 1 To 4) As String
Dim i As Integer, j As Integer

For i = 1 To 10
For j = 1 To 4
Mat(i, j) = xlssheet.Cells(i, j)
Next
Next

For i = 1 To 10
For j = 1 To 4
Print Mat(i, j);
Next
Print
Next

Set xlssheet = Nothing
Set xlsworkbook = Nothing
Set xlsApp = Nothing
End Sub

谢谢版主！突然又想到一个问题：如果在一个excel文件里面有多个表，比如在文件a.xls中有sheet1（4×100）,sheet2（2×50）两个表，我想把sheet（4×100）的数据写入vb中的数组a1（4×100）中，把sheet（2×50）的数据写入vb中的数组a2（2×50）中，请问应该添加哪些语句？

[此贴子已经被作者于2006-10-12 8:25:33编辑过]

也是差不多的,你只要设置是哪个Sheet就可以了..
Set xlssheet = xlsworkbook.Worksheets.Item(1)

噢，是不是把(1)改成(2)就可以了？

自己测试一下吧..

斑主啊，用了你的代码，在运行程序时，ＶＢ会自动打开所引用的那个excel文件，能不能修改一下代码，让程序运行时不打开所引用的excel文件呢？谢谢！

你没看到有一个xlsApp.Visible = True吗?..
你改为=False不就行了...

噢，谢谢了！斑主要是有时间的话能不能逐句解释一下啊？
还有一个问题：在引用excel文件时，斑主用的是绝对路径，要是用相对路径（excel文件和程序在同一目录下）应该怎么写呢？我用Set xlsworkbook = xlsApp.Workbooks.Open("\mat.xls")好像不行。

[此贴子已经被作者于2006-10-12 14:33:48编辑过]

Set xlsworkbook = xlsApp.Workbooks.Open(App.Path & "\Book1.xls")
我觉得.你还是买本入门的书看看比较好..