Office中国论坛/Access中国论坛

标题: 求数据导出功能 [打印本页]
作者: sinotrust    时间: 2011-1-8 16:43
标题: 求数据导出功能
本帖最后由 sinotrust 于 2011-1-8 16:44 编辑

我想执行数据导出功能，设一个命令按钮，点击后首先打开文件另存为对话框，然后选择可以到的文件，请问功能怎么实现？
作者: roych    时间: 2011-1-8 18:48
本帖最后由 roych 于 2011-1-8 18:53 编辑

用outputto宏命令就可以了。。。嗯，水印给盖住了~~如果选择“否”的话，则不会弹出选择文件对话框。
[attach]44607[/attach]
作者: sinotrust    时间: 2011-1-8 19:43
别人发给我一个通用通存的类模块，
作者: sinotrust    时间: 2011-1-8 19:44
想在执行TRNSFERSHEET 命令之前首先打对话框，这样可以选择可以导出的文件，用宏操作的话导出来文件是命令按钮所在的一页界面，而不是我想要导出的文件。
作者: roych    时间: 2011-1-8 21:12
本帖最后由 roych 于 2011-1-8 21:14 编辑

那样的话要引用office库，如果您的是2003版本之前的access可能会丢失dll库。需要在VBE窗口取消“丢失库”，再重新引用。
[attach]44608[/attach]
附件说明：
1、实例是自定义导入excel数据，如果您需要导出的话，请做相应的更改。
2、临时表电子表格作为测试数据，用来进行导入操作。
3、如果您无法下载附件，请参考代码：
  1. Private Sub 导入文件_Click()
  2. DoCmd.SetWarnings False '清空警告框
  3. Me.临时表.SourceObject = "" ’初始化子窗体（名称：临时表）
  4. DoCmd.RunSQL ("delete 临时表.* from 临时表") ‘删除临时表数据（表）
  5. Set fd = Application.FileDialog(msoFileDialogFilePicker)'设置文件拾取器
  6. With fd
  7. .Filters.Clear'清空过滤器，并增加xls格式过滤器，以便用户只能导入电子表格
  8. .Filters.Add "Excel电子表格(*.xls)", "*.xls"
  9. .Title = "请浏览文件" ‘设置打开文件夹的标题和按钮文字
  10. .ButtonName = "打开"
  11. .InitialView = msoFileDialogViewDetails
  12. If .Show = -1 Then
  13. Me.路径.Value = CStr(fd.SelectedItems.Item(1)) ‘在文本框里显示文件拾取器获取的路径
  14. DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "临时表", Me.路径.Value, True
  15. Me.临时表.SourceObject = "临时表" ’导入后将子窗体（名称：临时表）的数据源设置为临时表（表）
  16. Else
  17. Debug.Print "用户取消"
  18. End If
  19. End With
  20. End Sub
复制代码
作者: sinotrust    时间: 2011-1-8 21:30
我用的是WIN7系统，ACCESS版本是2007的，能运行吗？
作者: roych    时间: 2011-1-8 21:35
sinotrust 发表于 2011-1-8 21:30
我用的是WIN7系统，ACCESS版本是2007的，能运行吗？

软件都是向下兼容的，2007版本自然能打开2003版本的了~~先试试再说吧。但2003版本就不一定能打开2007版本（accdb文件）
(⊙_⊙)，如果上传是的2007版本的文件，俺就帮不上忙了，俺不会为此新版本改变个人使用习惯，更重要的是公司用的都是xp版本……
作者: sinotrust    时间: 2011-1-8 21:48
我下了你的案例，点开你的例子能运行，可是拷到我的数据库就运行不了了。不知道为什么？
显示的错误是“找不到工程或库”
作者: roych    时间: 2011-1-8 23:04
前面的帖子说过了，找不到库是因为版本问题。你打开按下Alt+F11，进入VBE模式，点击“工具\运行”，看看是否有丢失库：[attach]44612[/attach]
我这里引用的是office 11.0库，如果你的显示为“丢失”，则去掉勾选后，再滚动库，重新引用office库试试看？
作者: miracle-y    时间: 2011-1-9 20:23
学习了
作者: lsq16220    时间: 2011-1-12 23:48
学习了:D
作者: li-lin3000    时间: 2011-1-14 08:05
学习了。谢谢
作者: bpchan    时间: 2012-1-11 18:51
学习
作者: xoxoxxx    时间: 2012-5-22 20:34
2007是 office 12.0 object library
引用了 还是说未定义。。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3