如何更快的读取和复制excel里边单元格的数据
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlApp = New Excel.Application
xlApp.Visible = False '设为false，不可见
Set xlbook = xlApp.Workbooks.Open("c:\dd.xls")
Set xlsheet = xlbook.Worksheets(1)
For i = 0 To 200
a(i)= xlsheet.Cells(1, i)
next
xlbook.Save
xlbook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlApp = New Excel.Application
xlApp.Visible = False '设为false，不可见
Set xlbook = xlApp.Workbooks.Open("c:\dd.xls")
Set xlsheet = xlbook.Worksheets(2)
For i = 0 To 200
xlsheet.Cells(1, i)=a(i)
next
xlbook.Save
xlbook.Close
xlApp.Quit
Set xlApp = Nothing
想把 工作表1 中数据 拷贝 到 工作表2中去 以上写法时间比较慢 请问还有其它方法吗。 不懂
vbs 好像是不是可以有个语句直接拷贝过去的？
第二个问题
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlApp = New Excel.Application
xlApp.Visible = False '设为false，不可见
Set xlbook = xlApp.Workbooks.Open("c:\dd.xls")
Set xlsheet = xlbook.Worksheets(1)
xlbook.Save
xlbook.Close
xlApp.Quit
Set xlApp = Nothing
这段引用不变 只是想改变a(i)= xlsheet.Cells(1, i) 这句
把单元格的的数据弄进数组 除了这句 a(i)= xlsheet.Cells(1, i)
还有把把数值填入 单元格 除了 xlsheet.Cells(1, i)=a(i) 还有更快的方法吗？
还有其它更好的方法吗
好像有一句 Range 语句 但是不懂 好像是vbs的
[解决办法]
http://download.csdn.net/detail/veron_04/2341786
