access文件转换成EXL文件 我的VB6的ACCESS文件里的2个表想导成EXL文件,请高手帮忙。非常感谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 经实际测试,以下代码数据库和Excel之间互相导入导出,完全成功!Private Sub Command1_Click() 'access导出到excel Dim db As New ADODB.Connection Dim sPath As String db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb Persist Security Info=False" sPath = App.Path + "\backup.xls" If Dir(sPath) <> "" Then Kill sPath Else Call db.Execute("select * into Sheet1 In '" & sPath & "' 'excel 8.0;' from 表1") MsgBox "导出成功", vbOKOnly, "提示" End If db.Close Set db = NothingEnd SubPrivate Sub Command2_Click() '从excel导出到 access Dim db As New ADODB.Connection Dim sPath As String db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb;Persist Security Info=False" sPath = App.Path + "\backup.xls" Call db.Execute("select * into Table4 From [Sheet1$] In '" & sPath & "' 'excel 8.0;'") db.Close Set db = NothingEnd Sub Postmessage VB与SQL数据库的连接问题 coolbar在哪里弄出来? 求一个类似于1860的语音系统的vb代码???谢谢 !急用! 小问题,在线等待,马上给分! 我用水晶报表连数据库怎么总说无效的用户名和口令啊? VB6运行库自动安装版的问题 !!!得到了一个打印预览控件printit.dll,怎么样用它???? 版主,你给我进来!! 注册表中怎样读取二进制的键值?怎样写入? 如何判断Word文档是否改变过? 如何更改文件夹面里的文件名?
Private Sub Command1_Click()
'access导出到excel
Dim db As New ADODB.Connection
Dim sPath As String
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb Persist Security Info=False"
sPath = App.Path + "\backup.xls"
If Dir(sPath) <> "" Then
Kill sPath
Else
Call db.Execute("select * into Sheet1 In '" & sPath & "' 'excel 8.0;' from 表1")
MsgBox "导出成功", vbOKOnly, "提示"
End If
db.Close
Set db = Nothing
End SubPrivate Sub Command2_Click()
'从excel导出到 access
Dim db As New ADODB.Connection
Dim sPath As String
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb;Persist Security Info=False"
sPath = App.Path + "\backup.xls"
Call db.Execute("select * into Table4 From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
db.Close
Set db = Nothing
End Sub