7,785
社区成员
发帖
与我相关
我的任务
分享VB打开Excel的问题!
请问我想用VB打开做好的EXCEL时,我想打开的是sheet2用VB怎么做!
还有就是用SQL语句怎么写返回一个数据库的所有表名!
谢谢大家了!!!
还有就是用SQL语句怎么写返回一个数据库的所有表名!
谢谢大家了!!!
...全文
请发表友善的回复…
发表回复
ynhgk 2003-01-14
- 打赏
- 举报
谢谢上面两位朋友！
OFFICE之门 2003-01-14
- 打赏
- 举报
先在工程中选中 Ms 9.0 excel object ，即对EXCEL的引用
Dim xlApp As Excel.Application
Dim wbzhishu As Excel.Workbook
Dim shtzhishu As Excel.Worksheet
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set xlApp = CreateObject("Excel.Application")
End If
Err.Clear
Set wbzhishu = xlApp.Workbooks.Open(filename1)
Set shtzhishu = wbzhishu.Sheets("sheet2")
Dim xlApp As Excel.Application
Dim wbzhishu As Excel.Workbook
Dim shtzhishu As Excel.Worksheet
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set xlApp = CreateObject("Excel.Application")
End If
Err.Clear
Set wbzhishu = xlApp.Workbooks.Open(filename1)
Set shtzhishu = wbzhishu.Sheets("sheet2")
lxcc 2003-01-14
- 打赏
- 举报
1、
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\My Documents\Book2.xls"
Sheets("Sheet2").Select
2、
SELECT *
FROM sysobjects
WHERE (xtype = 'u')
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\My Documents\Book2.xls"
Sheets("Sheet2").Select
2、
SELECT *
FROM sysobjects
WHERE (xtype = 'u')
