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都可以,在部件里添加。