Question

我们用VB和数据库编了一个系统，现在遇到一个难题：怎么用VB语言将excel表导入到数据库中？谢谢！

我们用VB和数据库编了一个系统，现在遇到一个难题：怎么用VB语言将excel表导入到数据库中？谢谢！

Answer 1

具体操作可以按以下步骤进行：

1、启动MicrosoftAccess2000；

2、建立一个空数据库student；

3、在对象栏中选择“表”选项，执行“文件→获取外部数据→导入”命令，打开“导入”对话框；

4、选择文件类型“为MicrosoftExecl”，单击“查找范围”右边的向下黑三角，选择.xls文件所在的目录，再选择要导入数据的工作薄文件；

5、单击“导入”按钮，进入“导入数据表向导”对话框．

6、按“下一步”，选中“第一行包含列标题”前面的复选框；

7、按“下一步”，进入“请选择数据的保存位置”页，假如你不想保存在现有的表中，那么选择“新表中”，否则保持默认值“现有的表中”再选择表名；（我这里以选择新表）

8、按“下一步”，进入“字段选择”页，保持默认值。

9、按“下一步”，进入图3所示页面，选择“自行选择主键”。

10、按“下一步”，进入图4所示的界面，在“导入到表”输入框中输入表名，我这里输入“一班”。

11、“完成”按钮，此时系统会弹出一个导入完成的对话框，按“确定”按钮。

完成以上步骤，我们就成功的把数据就从Excel中导入到Access中了。

Answer 2

我最近正好在做VB跟excel结合的程序，下面是截取的部分代码
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(fname) '打开已经存在的工件簿文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(1) '里面的1也可以换成工作簿名字如Worksheets("sheet1")

For i = za(0) To za(1)
For j = za(2) To za(3)
fsl(i - 2, j - 2) = xlSheet.Cells(i, j) '读取excel中i行j列的数据
Next
Next
MsgBox ("数据读取完成！")

xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象

Answer 3

一个adodc打开excel表,一个adodc打开数据库，然后循环读入、写库。

追问

那在VB界面设置一个按钮，有VB语言怎么弄？谢谢！

追答

我只提供方法，不写程序