怎样在excel中的某一单元格内插入access中的特定字段特定纪录的数据 ... 20
抱歉!可能着急没有表达清楚。我想要的东西是在EXCEL一个单元格中输入一个ACCESS库中记录的一个字段。然后符合这个条件的记录其他字段也自动显示在其他的EXCEL的单元...
抱歉!可能着急没有表达清楚。我想要的东西是在EXCEL一个单元格中输入一个ACCESS库中记录的一个字段。然后符合这个条件的记录其他字段也自动显示在其他的EXCEL的单元格内。
不过这里还是谢谢chizs,你的方法确实能解决我开始提的问题。 展开
不过这里还是谢谢chizs,你的方法确实能解决我开始提的问题。 展开
2个回答
展开全部
要用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
打开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
展开全部
不知道你的office的版本,是office2000还是office2007?
先说一下office2000吧,office2003没有使用过,应该和这个一样。
在excel2000中,点击工具栏的数据->获得外部数据->新建数据库查询,
下一步在出来的对话框中选择数据库->Ms Access Database,
下一步在出来的对话框中选择access数据库的路径及名称,
下一步在查询向导中选择access的表明及字段名,
下一步筛选,
下一步关键字及排序,
完成。
这样可以把符合条件的access数据显示到excel中,还可以刷新纪录。
office2007的方法是在数据(->获得外部数据)->自其他来源->来自Microsoft Query,其他的和office2000一样
先说一下office2000吧,office2003没有使用过,应该和这个一样。
在excel2000中,点击工具栏的数据->获得外部数据->新建数据库查询,
下一步在出来的对话框中选择数据库->Ms Access Database,
下一步在出来的对话框中选择access数据库的路径及名称,
下一步在查询向导中选择access的表明及字段名,
下一步筛选,
下一步关键字及排序,
完成。
这样可以把符合条件的access数据显示到excel中,还可以刷新纪录。
office2007的方法是在数据(->获得外部数据)->自其他来源->来自Microsoft Query,其他的和office2000一样
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询