作者:乔山办公网日期:
返回目录:excel表格制作
你就是要写个存储过程 把执行结果保存在xls里吧 你要传入什么东西啊
可以给个需求 还是随便
第一、@a varchar(40) 长度不够(知C:\Documents and Settings\Administrator\桌面\基本信息.xls)道
第二、动态SQL语法错误
第三、你上版面的语句是正确的,权下面应该如此
DECLARE @sql NVARCHAR(4000)
SET @sql='insert into abc select * from OPENDATASOURCE
(''Microsoft.Jet.OLEDB.4.0'',
''Data Source='+@a+';
Extended properties=Excel 8.0;HDR=YES;IMEX=1'')...['+@b+']'
Sub Test()
'工具->引用e799bee5baa6e79fa5e98193e59b9ee7ad94365->Microsoft ActiveX DataObjects 2.0
'定义连接对象
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'连接字符串
strcn = "Driver=sql server;Server=服务器;database=数据库;uid=sa;pwd=密码"
cnn.Open strcn
Dim D1 As Date '开始日期
Dim D2 As Date '结束日期
D1 = Range("B2").Text
D2 = Range("B3").Text
If IsDate(D1) And IsDate(D2) Then
rs.Open "sp_djcount '" & D1 & "','" & D2 & "'", strcn, 3, 1 '存储过程
rs.Open "Select * From 表 ", strcn, 3, 1 'sql语句
Range("A5").CopyFromRecordset rs
MsgBox "成功!!!", vbInformation + vbOKOnly, "温馨提示"
Else
MsgBox "请输入开始日期和截止日期", vbQuestion + vbOKOnly, "温馨提示"
End If
'关闭连接
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub