怎样判断此薄有哪些表?
Dim extend_str As String
Dim execl_cnn As New ADODB.Connection 'conn
Dim execl_rst As New ADODB.Recordset 'rs
Dim execl_count_rst As New ADODB.Recordset '纪录数量
Dim execl_field_rst As New ADODB.Recordset
Dim execl_strconn As String
Dim execl_strcmd As String
Dim execl_count_str As String
Dim insertStr As String
Dim MyVar
MyVar = 1
execl_cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & OpenCdc1.FileName & _
";Extended Properties=Excel 8.0;"
'下面这段不知道要怎样改?
For Each Worksheet In execl_cnn'这句要怎么改?
debug.print worksheet.name '这句要怎么改?
Next
[最优解释]
你这是将EXCEL表当作数据库来操作,因此应该使用SQL语句查询来得到.
试试以下语句:
select * from sysobjects where xtype='u'
Dim oXLSAPP As Object 'New Excel.Application '后期绑定,无需引用对象
Dim oWSheets As Object 'Worksheets
Dim oWSheet As Object 'Worksheet
Set oXLSAPP = CreateObject("Excel.Application") '创建EXCEL对象
oXLSAPP.Workbooks.Open "kkk.xls" '打开EXCEL文件
oXLSAPP.Workbooks(1).Activate
Set oWSheets = oXLSAPP.Workbooks(1).Worksheets
For Each oWSheet In oWSheets '遍历工作表
Debug.Print oWSheet.Name
Next
Set oWSheet = Nothing
Set oWSheets = Nothing
oXLSAPP.Workbooks.Close
oXLSAPP.Quit
Set oXLSAPP = Nothing
