我有83个Excel表格,我需要对这些表格进行查表操作,需要在VBA中实现相关操作,而且需要把Excel的数据导入到VBA的脚本程序中的二维数组当中。问题是如何把Excel的数据导入到VBA的脚本程序中的二维数组当中?
谢谢。
或者说如何将excel中的这些没有什么规律的值赋给一个二维数组?
对于以上回答表示感谢。
还有问题,我有83个形式相同的表,也就是有83个文件。我需要把这83个文件的数据一次性读到教本的二纬数组当中。
第1个回答 2008-04-10
Dim s()
s = Range("A1:Z100") '将26*100的格元格的值赋给数组s
Range("AA1:AZ100") =s '将数组s赋值给26*100的格元格
s = Range("A1:Z100") '将26*100的格元格的值赋给数组s
Range("AA1:AZ100") =s '将数组s赋值给26*100的格元格
参考资料:
第2个回答 2008-04-09
Sub 按钮1_单击()
'
Dim str1(1000, 1000) As String
For i = 1 To 3
For j = 1 To 3
str1(i, j) = Cells(i, j)
MsgBox str1(i, j)
Next j
Next i
End Sub
1.如果各个表名字没有规律,建立表名字的目录
2.以上是二维数组的简单操作。。若果有这些你还不会的话你自己就做不了了。。本回答被提问者和网友采纳
'
Dim str1(1000, 1000) As String
For i = 1 To 3
For j = 1 To 3
str1(i, j) = Cells(i, j)
MsgBox str1(i, j)
Next j
Next i
End Sub
1.如果各个表名字没有规律,建立表名字的目录
2.以上是二维数组的简单操作。。若果有这些你还不会的话你自己就做不了了。。本回答被提问者和网友采纳
第3个回答 2008-04-19
让程序一个一个打开后读入就可以了,我编过的,但你要给出目录名或者程序中一个一个给出文件名称
第4个回答 2008-04-08
??????发个例子