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
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)