Dim extend_str As String
Dim execl_cnn As New ADODB.Connection 'connDim execl_rst As New ADODB.Recordset 'rs
Dim execl_count_rst As New ADODB.Recordset '纪录数量
Dim execl_field_rst As New ADODB.RecordsetDim 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
Dim execl_cnn As New ADODB.Connection 'connDim execl_rst As New ADODB.Recordset 'rs
Dim execl_count_rst As New ADODB.Recordset '纪录数量
Dim execl_field_rst As New ADODB.RecordsetDim 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
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