vb的数据库怎么和excel连接

VB本身提自动化功能可以读写EXCEL表，其方法如下：

1、在工程中引用Microsoft Excel类型库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 90 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：

Dim xlApp As ExcelApplication

Dim xlBook As ExcelWorkBook

Dim xlSheet As ExcelWorksheet

3、在程序中 *** 作EXCEL表常用命令：

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL对象

Set xlBook = xlAppWorkbooksOpen("文件名") '打开已经存在的EXCEL工件簿文件

xlAppVisible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBookWorksheets("表名") '设置活动工作表

xlSheetCells(row, col) =值 '给单元格（row,col）赋值

xlSheetPrintOut '打印工作表

xlBookClose (True) '关闭工作簿

xlAppQuit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

xlBookRunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

xlBookRunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

最好详细点，兄弟笨笨的呢

解析:

Private Sub Form_Load()

Text1Text = AppPath & "\123xls"

Text2Text = AppPath & "\123mdb"

Text3Text = "sheet1"

Text4Text = "sheet1"

Data1DatabaseName = AppPath & "\123mdb"

End Sub

Private Sub Command1_Click()

Dim db As Database

Dim sheet As String, excelpath As String, AccessPath As String, AccessTable As String

AccessPath = Text2Text '数据库路径

excelpath = Text1Text '电子表格路经

AccessTable = Text4Text '数据库内表格

sheet = Text3Text '电子表格内工作表

Set db = OpenDatabase(excelpath, True, False, "Excel 50") '打开电子表格文件

SQL = ("Select into [;database=" & AccessPath & "]" & AccessTable & " FROM [" & sheet & "$]")

dbExecute (SQL) '将电子表格导入数据库

Data1RecordSource = "sheet1"

Data1Refresh

DBGrid1Refresh '显示电子表格导入到数据库的数据

End Sub

上面的是把EXCEL读取到数据库中,你做点修改就行了一个Data控件

如果是一次性的 *** 作，直接用ACCESS打学习表MDB，从EXCEL中直接把这两列数据复制、粘贴到表一中就行了，不用写代码这么麻烦。

如果是经常性的 *** 作，就需要写一个完整的程序。会比较复杂，需要 *** 作数据库，还要 *** 作EXCEL，这个建议你还是在网上找别人的源码，自己一点都没弄过的话会花不少时间。

我做过用java *** 作excel的。

流程是首先要有用户程序与excel的接口，在java中用的是jcom或poi。

vb是可以直接 *** 作excel的。

那么问题就简单了。

就是简单的 *** 作文件了。

你可以在excel里录制各种 *** 作的宏，看代码写vb程序。

材料/工具：电脑、VB 60软件

1、首先，我们需要点击文件菜单栏按钮。

2、然后，我们点击生成EXE按钮。

3、接下来，我们点击保存路径。

4、然后，我们输入我们想要保存的文件名。

5、最后，我们点击确定按钮。

6、然后，我们便可以看到，在桌面生成了Excel表格了。

以上就是关于vb的数据库怎么和excel连接全部的内容，包括:vb的数据库怎么和excel连接、如何用VB读写EXCEL中数据、求通过excel文件批量导入vb自带数据库文件的代码，我只需要导入一列或者两列，希望有知道的能给个代码！！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！