如何将excel里的数据批量导入ACCESS,要用vb代码?
下面是对EXECL的基础操作说明:
Set xlApp = CreateObject("Excel.Application")
‘激活EXCEL应用程序
xlApp.Visible = False ‘隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(strDestination)
‘打开工作簿,strDestination为一个EXCEL报表文件
Set xlSheet = xlBook.Worksheets(1)
‘设定工作表
1、定义EXCEL对象变量
dim x as excel.application
2、VB中,启动EXCEL
set x=createobject("excel.application")
3、新建一个EXCEL工作簿
x.workbooks.add
4、选定工作表1
set xsheet=xbook.worksheets(1)
5、指定单元格,并赋值
xsheet.cell(1,1)=ret.fields(0)
6、指定EXCEL列宽
xsheet.column(1).columnwidth=10
7、RANGE()函数,选定单元格区域
range(cells(1,1),cells(10,20))
8、设置EXCEL字体
xsheet.range(cells(1,1),cells(10,20)).font.name="黑体"
9、设置EXCEL为粗体
xsheet.range(cells(1,1),cells(10,20)).fontbold=true
10、设置EXCEL表格边框
xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous
11、运行时,显示EXCEL或隐藏EXCEL
x.visible=true
12、保存工作簿
xbook save
13、退出EXCEL
x.quit
14、交还控制权给EXCEL
set x=nothing
15、打印EXCEL表
x.active.window.selectedsheets.printout copies=numcopies
16、退出EXCEL时,不出现保存提示。
x.displayalerts=false
17、怎样运用EXCEL公式?
x.range("A3").formula= "=max(A1,A2)"
18、EXCEL代码获取技巧
打开EXCEL中的工具----宏----录制新宏,然后进行手工操作,结束后把所录的宏代码贴进你的VB程序就行。
19、合并单元格代码
x.range("A2:A5").inergecells=true
20、自动调整列宽代码
x.column("A:I").autofit ' a到 I列自动调整列宽
21、文本自动换行代码
x.rows(3).wraptext=true
22、设置字体颜色
x.rows(1).font.colorindex=4
23、打印预览代码
x.worksheets.printpreview
24、打开EXCEL文件
x.workbooks.open filename:="c:\my documents\my vb \lgx \dy.xls"
下面是如何从EXECL文件中读写数据:
使用Excel Sheet对象的技术可以处理可变数量的数据,并将结果最后送到你的Visual Basic 应用程序中。例子如下:
新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。建设中的窗体如图2所示。
程序代码如下:
Option Explicit
Private Sub Command1_Click()
Dim xObject As Object
Set xObject = CreateObject("Excel.Sheet")
Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet
xObject.Range("A1").Value = Text1.Text '将数值送入Excel的A1单元格
xObject.Range("A2").Value = Text2.Text '将数值送入Excel的A2单元格
xObject.Range("A3").Formula = "=MAX(A1,A2)" '将最大值送入A3单元格
xObject.Range("A4").Formula = "=ATAN(A1/A2)*180/PI()" '将反正切值送入A4单元格
′显示计算的结果
Label1.Caption = xObject.Range("A3").Value '从EXECL读出数值
Label2.Caption = xObject.Range("A4").Value
Set xObject = Nothing
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = ""
Label2.Caption = ""
End Sub
该程序的作用是:首先在两个文本框(Text1和Text2)输入数值并分别将输入的数值送入Excel的"A1"和"A2"单元格中,然后用Excel中的"Max()"函数将计算的结果送入"A3" 单元格中;用反正切函数"ATAN()"进行计算并将结果送入"A4" 单元格中,最后输出。
有了以上说明,再加上你已经学会的ACCESS数据库操作技术,就可以实现EXECL里的数据批量导入ACCESS了。
用VB代码插入的时候,excel表中有一列前几行数据是空的,结果整个一列都导不进access,还有一列是日期格式,但有些却是常规格式,结果这一列中常规格式的也导不进去,代码如下,望高手能协助解决,谢谢。
Sub ImportToAccess()
On Error Resume Next
Dim db1 As Database, db2 As Database
'打开excel表
Set db1 = opendatabase("d:\111.xls", True, False, "Excel 5.0")
'删除acces表中数据
db1.execute "delete * from [;database='d:\222.mdb'].ssc"
'读取excel表中字段,共3个字段,其中第2个字段是日期格式,问题就在这里,有些非日期型的数据就算用了cdate函数也导不进去
fields1 = ""
For a = 0 To 2
If a = 1 Then
fields1=fields1 + "cdate(["_ _+db1.tabledefs("sheet1$").fields(a).name + "]), "
Else
fields1=fields1 + "trim(["_ _+db1.tabledefs("sheet1$").fields(a).name + "]), "
End If
Next
fields1 = Left$(fields1, Len(fields1) - 2)
'读取acces表中字段
Set db2 = opendatabase("d:\222.mdb")
table2 = db2.tabledefs("ssc")
fields2 = ""
For b = 0 To 2
fields2 = fields2 + "[" + table2(b).Name + "], "
Next
fields2 = Left$(fields2, Len(fields2) - 2)
db2.Close
'用SQL语言插入数据
sql = "insert into [;database='d:\222.mdb'].ssc ("
sql = sql + fields2 + ") select " + fields1
sql = sql + " from [sheet1$];"
db1.execute (sql)
End Sub
[网络整理]
如何将excel里的数据批量导入ACCESS,要用vb代码?相关推荐
- word录入表单数据 java 导入系统,java导入excel | 怎么把excel中的数据批量导入到word中的表格中...
用javascript怎么实现把excel中的数据批量导入到数据库表中 这个js不能直接实现吧 我们程序用到 先读取excel内容转换成数组 然后放到页面上 再提交表单 储存 MySql如何批量添加数 ...
- matlab如何在word中插入多个表格,怎么把excel中的数据批量导入到word中的表格中《不同表格间的数据导入》...
如何将excel表格中大量数据导入matlab中并作图 工具:MATLAB.office excel 将待导入的矩阵结构据录入Excel中,录入时注意行列原矩阵一一对应. 录入完以后保存数据,为了后续 ...
- .net excel导入mysql_.NET Core使用NPOI将Excel中的数据批量导入到MySQL - 追逐时光者 - 博客园...
前言: 在之前的几篇博客中写过.NET Core使用NPOI导出Word和Excel的文章,今天把同样我们日常开发中比较常用的使用Excel导入数据到MySQL数据库中的文章给安排上.与此同时还把NP ...
- django通过openpyxl操作excel文件,实现批量导入数据到数据库。
1.在一些场景中经常需要管理员批量导入数据,先将数据写到excel表格中,再上传到系统上,最后将excel中的数据批量导入到系统的数据库中. 1.1.test.xlsx文件数据格式 首行的名字:必须是 ...
- springboot 导入excel(数据批量导入)
springboot excel数据批量导入 1.pom.xml 引入poi依赖 <!--poi--><dependency><groupId>org.apache ...
- Excel导入多个HTML,网页表格批量导入到excel表格数据-如何将多个网页上的数据批量导入EXCEL...
怎么将网页中的表格数据导入Excel 看看这个程序 htt==ps://it365.gitlab.io/zh-cn/table-to-excel/?d59568 上面的链点问题,你先复制了,粘浏览器地 ...
- 如何将excel里的数据导入到mysql中
1.首先将excel里的数据另存为csv格式的,以逗号分隔 2.用记事本打开csv文件,再将文件另存为,修改一下编码,改成utf-8(不然中文会乱码) 3.打开数据库,以navicat为例,新建表格, ...
- XX健康:预约管理-预约设置日历插件文件简单下载Excel文件解析Excel表数据批量导入
1. 需求分析 前面我们已经完成了检查项管理.检查组管理.套餐管理等.接下来我们需要进行预约设置,其实就是设置每一天的体检预约最大数量.客户可以通过微信端在线预约,在线预约时需要选择体检的时间,如果客 ...
- [Excel知识技能] Txt文件数据批量导入Excel
记录(日期: 2022/5/20) 在实际工作中,遇到过将Txt格式的数据导入到Excel中,为此特意记录以下操作过程,便于日后的回顾和学习 需要导入的文本文件如下图所示: Txt文本数据源 Site ...
最新文章
- 关于光耦隔离通讯中限流电阻的选取问题
- java使用Maven加载JDBC:mysql-connector连接MySQL/MariaDB
- 手机实名制的一个应用,电信行业的一个可改进之处
- DrawerLayout侧滑详解
- [国家集训队]墨墨的等式
- SpringBoot 全局异常处理
- 刘挺 | 从知识图谱到事理图谱
- 机器学习:监督学习、无监督学习、强化学习
- axure 鼠标样式_Axure教程:简单开关按钮的实现
- bi 工具 市场排行榜_国产移动BI工具排名
- Java面向对象编程练习题(28题集)
- 【机器学习笔记】【随机森林】【回归器】【填充缺失值】
- sucess==happiness
- 用WinDbg探索CLR世界 [4] 方法的调用机制
- 福建2021高考成绩查询是什么时间,2021年福建高考成绩排名及成绩公布时间什么时候出来...
- 总结Android系统启动完整流程(六)
- 波士顿房价预测(终版讲解)
- P2P技术详解(一):NAT详解——详细原理、P2P简介
- soul源码阅读 soul数据同步之nacos
- Unity Shader-后处理:景深
热门文章
- 程序员如何高性能排序多个文件?
- 12306 辟谣用户信息被卖;比特大陆两 CEO 均卸任?苹果又被起诉 | 极客头条
- 国货当自强!华为未来 10 年 15% 收入将投入研发
- 和阿里同年创办,为何当当却走向了“卖身”的结局?
- 距离一个优秀程序员,你还差多少?
- 当微信遇上 10 万战绩的「跳一跳」外挂,程序员还能“逍遥”多久?
- 老也有错?科技行业对大龄程序员的歧视
- 经验分享:正则表达式生成器java
- JAVA day02 流程控制语句
- matlab算sma,MA-EMA-SMA-DMA 函数用法、算法、图例、区别