Question

请教一个vb6.0快速读取excel某列数据的问题？

我想把一个excel第1列从的第1个至50000个数据读到一个数组里，当然我可用循环的方式，比如：
for i=1 to 50000
A(i)=xlSheet1.Cells(i, 1)
next
但这样我太慢了，有没有其它方法呢？

Answer 1

直接二维数组赋值，一句话。

Answer 2

工作簿dim xlbook为excext。工作表设置xlapp=创建对象（\"excel.应用程序\"）dim SS为字符串公用对话框1.显示打开=公用对话框1.文件名，如果ain=\"\"，则退出子程序=\"Da.xls“设置xlbook=xlapp.应用程序。打开(ain)设置xlbook=xlbook。工作表(1)最大=0 g=val(文本1.)重拨b(g,3)重拨，重拨，保存(2)