请教 excel控件 sheet的用法，up 有分！！！
app.DefaultFilePath = "E:\表格\"
app.Workbooks.Open "Tj1.2.xls", , 1
app.CommandBars("Worksheet Menu Bar").Controls(1).Delete
定义了一个sheet，可是就不知道怎么关联起来
谢谢
问题点数：100、回复次数：8Top
1 楼guofu007（蝈蝈）回复于 2002-12-03 14:28:13 得分 5
upTop
2 楼of123（）回复于 2002-12-03 14:33:49 得分 55
' Definitions for Excel
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
' --------------------------------------------------
' Start Excel and get Application object
Set oXL = CreateObject("Excel.Application")
' --------------------------------------------------
' Open an existing Workbook ...
'Set oWB = oXL.Workbooks.Open("c:\temp\test.xls")
' ... or add a new Workbook
Set oWB = oXL.Workbooks.Add
' --------------------------------------------------
'Add a new Worksheet ...
'Set oSheet = oWB.Sheets.Add
' ... or delete an existing Worksheet
'oWB.Sheets(2).Delete
' ... also works with Sheetname
'oWB.Sheets("Tabelle2").DeleteTop
3 楼henrryzhang（North Wolf）回复于 2002-12-03 14:36:47 得分 5
upTop
4 楼ydfok（发芽的石头）回复于 2002-12-03 14:38:01 得分 0
Private Sub Command1_Click()
Dim ExcelApp As Object
Dim sheet As Object
Set ExcelApp = CreateObject("excel.application")
'ExcelApp.Visible = True
ExcelApp.Workbooks.Open ("c:\1.xls")
For Each sheet In ExcelApp.Workbooks("1.xls").Worksheets
MsgBox sheet.Name
Next
ExcelApp.Quit
Set ExcelApp = Nothing
Set sheet = Nothing
End
End Sub
有这么一个例子，
可是我还是不知道怎么对一个控件sheet赋初值？Top
5 楼henrryzhang（North Wolf）回复于 2002-12-03 14:43:08 得分 20
Private Sub CommandButton1_Click()
'Worksheets.Add
Worksheets("sheet3").Activate
Worksheets("sheet3").Cells(1, 4).Value = "gg"
End Sub
Top
6 楼henrryzhang（North Wolf）回复于 2002-12-03 14:47:48 得分 10
控件sheet
是什么意思？Top
7 楼ydfok（发芽的石头）回复于 2002-12-03 18:51:34 得分 0
就是在vb里面一个form里面
加上了一个sheet的控件
我现在想把excel绑在一个form上面Top
8 楼wjhtz（阿华）回复于 2002-12-03 21:59:59 得分 5
upTop
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
