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

相关索引：上一节  下一节