读书人

VB怎么定义spreadsheet

发布时间: 2012-02-16 21:30:36 作者: rapoo

VB如何定义spreadsheet
Private Sub Form_Load()
Dim mExcel As Excel.Application
Dim mSheet As Excel.Worksheet

Set mExcel = CreateObject("Excel.Application")

mExcel.Workbooks.Open ("c:\ABC.xls")
Set mSheet = mExcel.Sheets("sheet1")
mSheet.Activate

For i = 0 To (mSheet.userange.Row.Count)
For j = 0 To mSheet.userange.Column.Count
Spreadsheet1.ActiveSheet.Cells(i, j) = mSheet.Cells(i.j)
Next
Next

End Sub

我想用以上代码连接EXCEL但是提示要求对象,后来发现是没有定义spreadsheet请问应该怎么定义这个控件呢,达人们有代码或者例程吗??谢谢

[解决办法]
Spreadsheet一个第三方电子表格控件,你连接excel可以与它无关。
把它换成mshflexgrid或msflexgrid都可以,在部件里添加。

读书人网 >VB

热点推荐