EXCEL(VBA)~SQL 经典写法范本汇集(四)

时 间:2012-04-10 09:14:50
作 者:欢乐小爪   ID：20149  城市：杭州
摘 要:EXCEL(VBA)~SQL 经典写法范本汇集(四)
正 文:

Sub WAIKUAN()
Dim sql As String
Dim adoConn As New ADODB.Connection
Dim CSMaxrow&, ChuangXing$, GongZB$
ChuangXing = Sheets('参数').Range('E1')
GongZB = Sheets('参数').Range('A1')
' On Error Resume Next
CSMaxrow = Sheets('参数').Range('B65536').End(xlUp).Row
Set adoConn = New ADODB.Connection
Set adoConn = CreateObject('ADODB.Connection')
' Conn.Open 'dsn=excel files;dbq=' & ThisWorkbook.Path & '\001.xls'
' adoConn.Open 'provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data Source = ' & ThisWorkbook.Path & '\' & ChuangXing & '\' & GongZB & '.xls'
adoConn.Open 'provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data Source = ' & ActiveWorkbook.FullName
sql = 'select 构件名称,构件代号,横长度,横数量,竖长度,竖数量,比重,相应工艺 from [参数$B2:K' & CSMaxrow & '] where (大样代码='' & DYDH & '') and (内外框='WKXC')'

' -------------------------------------------
'下面2句是从C盘读取 不用调用参数就是加载宏内
' adoConn.Open 'provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data Source = ' & ThisWorkbook.Path & '\' & ChuangXing & '\' & GongZB & '.xls'
' sql = 'select 构件名称,构件代号,横长度,横数量,竖长度,竖数量,比重,相应工艺 from [工艺表$B2:K' & CSMaxrow & '] where (大样代码='' & DYDH & '') and (内外框='WKXC')'

' -------------------------------------------

         Workbooks('111.xls').Sheets('下料').Range('J' & JJ).CopyFromRecordset adoConn.Execute(sql)
adoConn.Close: Set adoConn = Nothing
End Sub