用vb6.0写一个将Excel数据导入access中的程序
我想用vb6.0写一个将Excel数据导入access中的程序，大概的界面如图，可以选择要导入的数据，我找的的一段代码是：
ExportExcelSheetToAccess "authors", "e:\authors.XLS", "TestTable", App.Path & "\db.mdb"
Private Sub ExportExcelSheetToAccess(sSheet1 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 2003")
Call DB.Execute("select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheet1 & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
“authors”是excel的一个工作表的名称，
"testtable"是要生成的表的名称
可是还不太明白，现在假设想要导入的文件是E:\abc.XLS,表名是"bcd"，导入后生成F:\db.mdb里的"表1"，请帮我填一下数据，并实验一下，谢谢
还有，我如果想像图中那样用按钮来运行，应该把代码写在哪里，模块里吗？ 请运行成功再回答我，谢谢
'App.Path = Application Path
ExportExcelSheetToAccess "authors", "E:\abc.xls", "bcd", App.Path & "\db.mdb"
用vb6.0写一个将Excel数据导入access中的程序
App.Path & "\\db.mdb"--你的VB程序在哪运行，就在哪儿生成mdb 'App.Path = Application Path ExportExcelSheetToAccess "authors", "E:\\abc.xls", "bcd", App.Path & "\\db.mdb"
vb6.0中如何把EXCEL表格中的数据导入到access库中
'sqlect 字段列表 from 子句(表名)where 条件 group by 性别(分组) having avg(工资总额)>5000 (与group by 一起用) order by 姓名 asc(升序)\/desc(降序)End Sub ' 引用:microsoft activeX data objects 2.x library Public Sub 将数据库记录数据全部导入到excel工作表ADO之二() Dim myData As String,...
vb6.0怎么把excel的数据导入到access中?能给个源码么 谢谢
在一个表单中添加一个命令按钮command1，添加代码如下：Private Sub Command1_Click()Dim cn As Connection Dim rs As Recordset Dim sql As String Dim n As Long, m As Long Set cn = New Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" & App.Path & "\\...
VB6.0读取excel数据存储到access中,在线等!~~~
Set excel_sheet = excel_app.ActiveSheet Else Set excel_sheet = excel_app End If '将EXCEL记录头导入ACESS数据库 row = 6'从第6行开始读 list = 1 i = 0 do while trim$(excel_sheet.Cells(row, list))<>"" '当记录为空时退出 Do While list <= 10'excel表数据有10列 newfield(...
各位大侠,VB6.0能引进Exl中的数据进行编程不
然后就可以编程了吧！其实我就用Access导入Excel的表格，用的是Access的自带的功能。方法如下：打开Access，文件—>获取外部数据—>导入，然后按部就班做就行。注意，导入Excel的数据表的字段最后与Access的字段相同，免去了许多麻烦。导入数据后，你想怎么处理数据都行！
VB6.0 连接Access数据库后 如何编写代码使数据库导出到excel、word或htm...
Private Sub Command1_Click() Dim xlapp As Variant Dim xlBook As Variant Dim xlSheet As Variant Dim sum As Long Set xlapp = CreateObject("excel.application") Set xlBook = xlapp.Workbooks.Open(App.Path & "\\data\\报表.xlt") '打开EXCEL模板 'Set xlBook =...
vb6.0 Excel数据导入Access不能任意路径
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\\data.mdb"你这里限制了，只有当前目录的data.mdb，所以上面也是提示找不到.mdb啊。
vb6.0编写程序读取excel文件(在电脑没有装excel软件的情况下)
'打开Excel 的一个sheet rsXL.Open "[报表数据导入$]", cnXL, adOpenStatic, adLockOptimistic, adCmdTable If rsXL.EOF Then Exit Function '读取单元格C1 a=rsXL(2)'读取单元格D3 rsXL.MoveNext rsXL.MoveNext a=rsXL(3)用上述方式打开Excel对表的数据有一定要求。第一行将作为字段名称而被...
怎样用VB6.0把Listview中查询到的数据导入到EXCEL
1，打开access，点击工具栏的外部数据，点击excel。2，点击浏览，选择要导入的excel表格，选好后点击确定，在获取外部数据中点击确定。3，点击确定后会弹出导入数据包向导框，点击下一步，然后到另一个步骤。4，点击下一步后，再点击下一步，然后在框里输入要导入的数据表的名称，最后点击完成就可以了...
VB6.0如何将EXCEL表格设置路径导入到窗体中
dim app as object set app = createobject("Excel.Application")dim s as String s = app.Path '这里的s变量现在表示的就是Excel运用软件的设置路径！
