各位高手:
小弟在做一个数据导入系统。主要是把Excel,acess中的大量数据导入到sql数据库中。希望各位能帮小弟一把。
最好是实例。
小弟在做一个数据导入系统。主要是把Excel,acess中的大量数据导入到sql数据库中。希望各位能帮小弟一把。
最好是实例。
解决方案 »
- 求教 VBMHWB 控件 问题,参数不可选
- 集思广益 关于用winsock操作数据库 做C/S架构系统 协议?
- 怎么判断当前记录是记录集中的第几条记录
- 关于webbrowser的问题,请各位大哥帮忙!!
- 那里能找到关于activeX控件的用法或实例啊~!
- 请问用recordset.Update后,怎么样才能得到这个recordset的主键值啊?
- ■■■你是不是希望CSDN的FAQ也能提供查询功能?你是不是经常在找注册码?你是不是经常想查出对方所在地?呵呵:)我的个人网站闪亮登场
- 怎样在程序中获得excell.exe的全路径?
- 很多的网友提问:如何取得汉字之拼音等等,有了这个控件,不用愁啦!
- 请教高手
- 关于WINDOWS下邮件程序编写问题
- combol控件的下拉菜单里可以可以实时调用数据库中的信息吗?如果可以,如何实现
我写了个excel导入sql的程序,如果你需要的话,可以留个e-mail联系!
谢谢高手指点!
1、sSheetName:要导出资料的文件名称 (Sheet name),例如 Sheet1
2、sExcelPath:要导出资料的 Excel 档案路径名称 (Workbook path),例如 C:\book1.xls
3、sAccessTable:要导入的 Access Table 名称,例如 TestTable
4、sAccessDBPath:要导入的 Access 档案路径名称,例如 C:\Test.mdb在声明中加入以下:Private Sub ExportExcelSheetToAccess(sSheetName As String, _
sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
使用范例如下:將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTableExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"
[email protected]
你给的地址无效!
那是2002年的贴子http://www.csdn.net/develop/read_article.asp?id=18623