|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub test2()
- Dim cnn As New ADODB.Connection
- Dim rs As New ADODB.Recordset
- Dim sql As String
- Dim mybook As String
- mybook = ThisWorkbook.FullName
- With cnn
- If Application.Version = "11.0" Then
- .Provider = "microsoft.jet.oledb.4.0"
- .ConnectionString = "extended properties=""excel 8.0;imex=1;HDR=YES;"";data source=" & mybook
- Else
- .Provider = "microsoft.ACE.oledb.12.0"
- .ConnectionString = "extended properties=""excel 12.0;HDR=YES;"";data source=" & mybook
- End If
- .Open
- End With
- sql = "select SJ,DK,分期,是否F,TZ,DK1,BL1 FROM [SZ$]" _
- & "UNION ALL select SJ,DK,分期,是否F,TZ,DK2,BL2 FROM [SZ$] " _
- & "UNION ALL select SJ,DK,分期,是否F,TZ,DK3,BL3 FROM [SZ$] " _
- & "UNION ALL select SJ,DK,分期,是否F,TZ,DK4,BL4 FROM [SZ$] " _
- & "UNION ALL select SJ,DK,分期,是否F,TZ,DK5,BL5 FROM [SZ$]"
- Sheets("a").Range("a2").CopyFromRecordset cnn.Execute(sql)
- cnn.Close
- Set conn = Nothing
- End Sub
复制代码 |
|