怎样在excel中的某一单元格内插入access中的特定字段特定纪录的数据 ... 20

抱歉!可能着急没有表达清楚。我想要的东西是在EXCEL一个单元格中输入一个ACCESS库中记录的一个字段。然后符合这个条件的记录其他字段也自动显示在其他的EXCEL的单元... 抱歉!可能着急没有表达清楚。我想要的东西是在EXCEL一个单元格中输入一个ACCESS库中记录的一个字段。然后符合这个条件的记录其他字段也自动显示在其他的EXCEL的单元格内。
不过这里还是谢谢chizs,你的方法确实能解决我开始提的问题。
展开
 我来答
庆桖松0im
2008-12-01 · TA获得超过1064个赞
知道小有建树答主
回答量:894
采纳率:0%
帮助的人:677万
展开全部
要用vba的,你具体把东西给我,我可以给你做
打开excel文件,按下Alt+F11,插入模块,将下面代码输入,F5运行,F8逐行测试。

Sub RUN()
Dim I As Integer
Dim CONNSTR As String
Dim SQL As String
Dim CONN As New ADODB.Connection
Dim RST As Recordset '记录集
Dim Owork As Workbook
Const StartPosition As String = "A1"
Dim Flag As Integer

Application.DisplayAlerts = False '取消警告提示
Flag = 1

CONNSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Password=密码;User ID=用户名;Data Source=数据库名;Persist Security Info=True" '中文部分请替换

SQL = "select 字段1 from test where 条件 " '条件根据你的需求设定,如要找日期为2008年1月1日的,条件为left(date,4)='2008'

Set Owork = Workbooks.Add '创建新的excel文件

CONN.Open CONNSTR
Set RST = CONN.Execute(SQL)
Do While Not RST.EOF '假设表的字段数为4个

For I = 0 To 3
Range(StartPosition).Cells(Flag, I + 1).Value = RST.Fields(I)
Next

Flag = Flag + 1
RST.MoveNext

Loop

Owork.SaveAs "D:\test.xls" '另存为文件

RST.Close
Set RST = Nothing
Application.DisplayAlerts = True '恢复警告提示
End Sub
chizs
2008-11-28 · TA获得超过726个赞
知道小有建树答主
回答量:1056
采纳率:0%
帮助的人:507万
展开全部
不知道你的office的版本,是office2000还是office2007?
先说一下office2000吧,office2003没有使用过,应该和这个一样。
在excel2000中,点击工具栏的数据->获得外部数据->新建数据库查询,
下一步在出来的对话框中选择数据库->Ms Access Database,
下一步在出来的对话框中选择access数据库的路径及名称,
下一步在查询向导中选择access的表明及字段名,
下一步筛选,
下一步关键字及排序,
完成。
这样可以把符合条件的access数据显示到excel中,还可以刷新纪录。

office2007的方法是在数据(->获得外部数据)->自其他来源->来自Microsoft Query,其他的和office2000一样
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式