1,216
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
outer2000 2002-02-12
- 打赏
- 举报
搜索一下看看，很多的
jett 2002-02-12
- 打赏
- 举报
http://www.csdn.net/expert/topic/352/352686.xml
jett 2002-02-12
- 打赏
- 举报
Dim conTemp As New ADODB.Connection
Dim strSql As String
strSql = "SELECT * INTO [Excel 8.0;DATABASE=D:\test.XLS].[Customers] FROM [Customers]"
conTemp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
conTemp.Open
conTemp.Execute strSql
conTemp.Close
Set conTemp = Nothing
Dim strSql As String
strSql = "SELECT * INTO [Excel 8.0;DATABASE=D:\test.XLS].[Customers] FROM [Customers]"
conTemp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
conTemp.Open
conTemp.Execute strSql
conTemp.Close
Set conTemp = Nothing
bluesky35 2002-02-12
- 打赏
- 举报
http://www.applevb.com里好象有
