excel中vb怎么保存到数据库中(vb导入excel到数据库)

1. vb导入excel到数据库

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，

然后打开Excel文件读数据

Dim scxls As Excel.Application

Dim scbook As Excel.Workbook

Dim scsheet As Excel.Worksheet

‘Set scxls = CreateObject("excel.application")

‘Set scbook = scxls.Workbooks.Add

Set scbook = scxls.Workbooks.open("c:\1.xls")

Set scsheet = scbook.Worksheets(1)

‘scsheet.Cells(1, 2) = "1111" ’写入数据

a=scsheet.Cells(1, 2) '读取数据

Set scbook = Nothing

Set scxls = Nothing

‘scxls.Visible = True ’显示Excle

数据较多，且有规律可循时，请使用循环语句

2. 数据库导入Excel

1.首先启动access，执行新建-空数据库命令，输入名称保存在一个合适的位置上

2.在数据库对话框中点击新建命令，调出新建表对话框，选择导入表选项，点击确定按钮。

3.在导入对话框中找到需要导入的数据表格，选中后点击导入按钮，出现导入数据表向导对话框。

4.接着根据向导提示点击下一步，在“请选择数据的保存位置”中勾选新表中。

3. vb如何导入数据库

vb把数据写入vf数据库要采用了远程访问技术，确定接口和远程数据对象，是一种新建立的数据访问模式，具有数据模型简单的特点，对数据的访问更加灵活，能访问的数据类型也会更加丰富，利用ADO对象访问vf，数据库，添加控件属性，并访问数据库，用DIm函数导入数据，到vf数据库，获得数据源并打开数据连接，你数据QQ可以直接选择将数据写入数据库，也可以通过cyTXT文件进行中转。

4. vb添加数据到数据库

1、建立一个ACCESS数据库。然后创建新表，比如你想把图片放在名为 “图片”字段中，那么设置 字段 数据类型 为“OLE 对象”。2.VB代码内容Set Cn = New ADODB.ConnectionCn.ConnectionString = ";DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\aaa.MDB"Cn.OpenSet Rs = New ADODB.RecordsetRs.Open "select * from stock", Cn, adOpenStatic, 3Set mst = New ADODB.Streammst.Type = adTypeBinarymst.Openmst.LoadFromFile mystrRs.AddNewRs.Fields("图片").Value = mst.ReadRs.UpdateRs.CloseCn.Close

5. vb数据库导出excel

测试成功，原码：DimxlappAsExcel.Application'Excel对象DimxlbookAsExcel.Workbook'工作簿DimxlsheetAsExcel.Worksheet'工作表DimxlrangeAsExcel.rangePrivateSubCommand1_Click()Setxlapp=CreateObject("excel.application")'第一层Setxlbook=xlapp.Workbooks.Addxlapp.Visible=Truexlbook.sheets(1).range("a1")="新建成功"xlbook.SaveAsApp.Path&"/测试.xls"xlbook.CloseEndSub

6. vb导出到excel

你是指利用Excel内置的VBA进行编程还是指用VB编的程序来处理Excel文档或控制Excel？如果是前者，那么你按Alt+F11打开VB界面输入代码即可开始编程。后者则可以把Excel文档或Excel应用程序作为对象进行相应操作。至于具体如何做，那就不是这里一两句话能说清的，甚至一两本书的容量也不一定说得完。

你可以自己查看Excel和VB的相关帮助文档或者到微软的MSDN网站寻求帮助。

顶一下

(0)

0%

踩一下

(0)

0%