求助excel根据条件读取和写入数据库

songzi2000 · 发表于 2014-12-19 19:06

本帖最后由 songzi2000 于 2014-12-22 11:02 编辑

各位高手、老师、大侠小女子当前遇到了一个数据库问题，因为以前从没有做过数据库相关的，所以现在不知所措了，事情的原因是这样的，由于excel表格存放太多的数据电脑就会卡，而且速度很慢，我只能想到将数据存放到数据库中，当需要看哪儿的时候只需要选择即可读取数据的内容，还请各位帮帮我，感激不尽，我也算是论坛的忠实粉丝和学习者了

实现结果为
读取功能：当N1单元格数据为12nei的时候，点击【获取数据】，sheet（nei）表格的内容将会读取数据库12nei的内容，并在sheet（nei）表中显示出来

写入功能：当想把sheet（nei）表的12月份（nei表中有12月）内容保存时候，首先会判断数据库有没有12nei，如果有，就提示是否覆盖，如果没有则新建12nei表格，并将sheet（nei）表格的内容保存到数据库中去

小女子在这里谢谢辛苦的各位老师了

具体看附件

求助excel根据条件读取和写入数据库.zip (990.7 KB, 下载次数: 40)

该贴已经同步到 songzi2000的微博

songzi2000 · 发表于 2014-12-19 19:37

没有人帮忙吗，在线等，一直等到23点，希望有老师帮帮忙，谢谢！

songzi2000 · 发表于 2014-12-19 19:56

能否有高手帮忙解决下，非常期盼

songzi2000 · 发表于 2014-12-19 20:49

我在网上找了一个样例，希望老师帮我改造改造，改造成我需要的，非常感激
Private Sub CommandButton1_Click()
Cells.ClearContents
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=MS Access Database;DBQ=" & ThisWorkbook.Path & "\db1.mdb;;;UID=admin;PWD=123", Destination:=Range("A1"))
.CommandText = "SELECT * FROM yo"
.Refresh BackgroundQuery:=False
End With
End Sub

Private Sub CommandButton2_Click()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(ThisWorkbook.Path + "\db1.mdb ", False, False, ";Pwd=123")

db.Execute ("delete * from yo")

For i = 3 To [a2].End(xlDown).Row
Sql = "INSERT INTO yo(name,sex) values ('" & Cells(i, 1) & "','" & Cells(i, 2) & "')"
db.Execute (Sql)

Next
MsgBox "D′èëêy¾Y" & [a2].End(xlDown).Row - 1 & "DD"
End Sub

songzi2000 · 发表于 2014-12-20 09:12

没有老师帮助我吗，难道这个问题很难吗

songzi2000 · 发表于 2014-12-20 10:24

为什么我的帖子一个人都不帮忙，这是怎么了

liu-aguang · 发表于 2014-12-20 10:41

songzi2000 发表于 2014-12-20 09:12
没有老师帮助我吗，难道这个问题很难吗

首先你应该将工作表中除有用的数据区域外的所有空行或空列的各种格式或其它删除,保证电子表格清爽.
你的要求可以不用代码轻松解决:
1.可以根据要求直接在Access中建立数据库,然后可以在Excel表格中用"数据"导入数据库数据.
2.如果要将电子表格数据导入Access数据库,也很简单.打开Access,可新建库或直接在原库中追加电子表格数据.
不要把数据库想得太复杂,就像使用excel一样去使用Access数据库吧.

songzi2000 · 发表于 2014-12-20 11:03

liu-aguang 发表于 2014-12-20 10:41
首先你应该将工作表中除有用的数据区域外的所有空行或空列的各种格式或其它删除,保证电子表格清爽.
你的 ...

谢谢老师指导，我之前做的都是函数和简单的VBA，从没有接触这么复杂的，数据库这些更别说了
1.可以根据要求直接在Access中建立数据库,然后可以在Excel表格中用"数据"导入数据库数据.
因为有很多分表，我想一下子全部写入到表格中去，我这个表格我想专门用来作分析的，这样的话我想看哪张表格，我就直接的读取
2.如果要将电子表格数据导入Access数据库,也很简单.打开Access,可新建库或直接在原库中追加电子表格数据.
不要把数据库想得太复杂,就像使用excel一样去使用Access数据库吧
access这个软件我一次都没有使用过，这次也是实在没办法，所以我到论坛求助了，另外我也想提升下自己，主要是没有开这个头，谢谢！

liu-aguang · 发表于 2014-12-20 19:03

songzi2000 发表于 2014-12-20 11:03
谢谢老师指导，我之前做的都是函数和简单的VBA，从没有接触这么复杂的，数据库这些更别说了
1.可以根据要 ...

1.自动建立的是.accdb数据库.需要安装Access 2007以上版本.
2.数据工作表名必须与N1单元格输入的工作表名一致.
3.注意在ABE中引用access xx.0 项和Ado2.8.

abcd.rar (33.26 KB, 下载次数: 80)

songzi2000 · 发表于 2014-12-22 10:06

liu-aguang 发表于 2014-12-20 19:03
1.自动建立的是.accdb数据库.需要安装Access 2007以上版本.
2.数据工作表名必须与N1单元格输入的工作表名 ...

老师，你真的是太牛了，太崇拜你了，你是怎么做到的，能否指点我从哪儿入门呀，有没有相关教程或者资料，我数据库一点也不会，我得自己学学
另外在此非常感谢你，做这个辛苦你了，应该耽搁了很多时间，以后来上海我请你吃饭，真是太感谢了

		自动登录	找回密码
密码			免费注册

[已解决] 求助excel根据条件读取和写入数据库

点评