VB中spreadsheet控件如何中如何打开Excel文件？

[ycZhao123]

RT，我要在spreadsheet1的sheet1、sheet2、sheet3中分别放入三个不同的xls文件，已经建立了FileListBox控件，双击控件中的文件即可打开，其他部分都已写好，就是三个xls文件内数据相差太大，我自己写的代码就有些不合适了，请大神指教下如何将xls文件内的数据读出并写在表格里的好方法，万分感谢！有什么不合理请尽情指出，我是新手。我的代码是这样：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet



Set xlsApp = Nothing
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & File1.FileName)
xlApp.Visible = False 'true false
Set xlSheet = xlBook.Worksheets("Sheet1")
For a1 = 1 To 20
For b1 = 1 To 20
Spreadsheet1.Cells(a1, b1) = xlSheet.Cells(a1, b1)
Next b1
Next a1

ExitExcel:
On Error Resume Next
xlBook.Close (True) 'true false
xlApp.Quit
Set xlApp = Nothing

这样的话就固定了写入的20*20=400个单元格，但有xls文件只有几十个，有的有300多，有没有什么好的方法能不固定数目，全部写入？

[mokton]

给你介绍一个新控件套件 spreadsheetgear 自己找下，去试试看。

[ycZhao123]

引用 1 楼 mokton 的回复:

给你介绍一个新控件套件 spreadsheetgear 自己找下，去试试看。

谢谢，不过我已经解决了问题，用的是usedrange.rows.count语句