vb6.0怎么把excel的数据导入到access中?

vb6.0怎么把excel的数据导入到access中?
手动导入我会,想用程序来实现。从网上找了好多资料,可能没有实现得了。
希望能给我一段能用的代码,多谢!
mdb数据库和里面的表已经设计好了,并有了几条记录,想把一张EXCEL表里的记录也加进来。就是追加记录。

如果你是标准的行列表的话,请试试:

Option Explicit

Sub change()

Dim fileToOpen
Dim Filename

fileToOpen = Application _
.GetOpenFilename("excel Files (*.xls), *.xls")
If fileToOpen <> False Then
Workbooks.Open (fileToOpen)
Else
End
End If
With ActiveSheet

ActiveWorkbook.SaveAs Filename:=1, FileFormat:=xlDBF4

Application.DisplayAlerts = False

Application.Quit

End With
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-07-03
怎么解决的啊!告诉下,我也在找。。。谢谢了!

vb6.0中如何把EXCEL表格中的数据导入到access库中
'实例3-1中语句rs.open sql,cnn,adopenkeyset,adlockoptimistic和实例3-3中语句rs.open mytable,cnn,adopenkeyset,adlockoptimistic,adcmdtabledirect的区别:前者使用了sql语句来实现对数据表的查询,因此可以实现各种条件下的查询;而后者则使用数据表名来实现对数据表的查询,得到的数据是整个数据表,且无法对记录排序,除...

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中,在线等!~~~
If Val(excel_app.Application.Version) >= 8 Then 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))<>"" '当记录为空时退出 ...

各位大侠,VB6.0能引进Exl中的数据进行编程不
方法如下:打开Access,文件—>获取外部数据—>导入,然后按部就班做就行。注意,导入Excel的数据表的字段最后与Access的字段相同,免去了许多麻烦。导入数据后,你想怎么处理数据都行!

用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不能任意路径
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\\data.mdb"你这里限制了,只有当前目录的data.mdb,所以上面也是提示找不到.mdb啊。

怎样用VB6.0把Listview中查询到的数据导入到EXCEL
1,打开access,点击工具栏的外部数据,点击excel。2,点击浏览,选择要导入的excel表格,选好后点击确定,在获取外部数据中点击确定。3,点击确定后会弹出导入数据包向导框,点击下一步,然后到另一个步骤。4,点击下一步后,再点击下一步,然后在框里输入要导入的数据表的名称,最后点击完成就可以了...

...文件当作数据库文件吗…?vb程序存在读写数据库,每天都把excel...
access里可以建链接表到关联到excel表格的,如果是本来的表结构没法变化的话,就添加一个新的链接表,然后再建一个插入的查询,这样每次进去点一下运行查询就行了。在 access和excel里也都可以用VBA编程,相互导数据。

如何用VB打印表格
在使用VB打印表格时,可以采用一种相对简便的方法。首先,你需要在Excel中创建报表。Excel因其强大的数据处理能力,是制作报表的首选工具。在完成报表制作后,接下来的步骤就是将报表导入到Access数据库中。为了确保数据安全,建议在导入Access之前,为数据库设置密码。这样可以有效防止未经授权的访问。在导入...

VB6.0如何将EXCEL表格设置路径导入到窗体中
dim app as object set app = createobject("Excel.Application")dim s as String s = app.Path '这里的s变量现在表示的就是Excel运用软件的设置路径!

相似回答