求数据导出功能

sinotrust

我想执行数据导出功能，设一个命令按钮，点击后首先打开文件另存为对话框，然后选择可以到的文件，请问功能怎么实现？

roych

用outputto宏命令就可以了。。。嗯，水印给盖住了~~如果选择“否”的话，则不会弹出选择文件对话框。

sinotrust

别人发给我一个通用通存的类模块，

sinotrust

想在执行TRNSFERSHEET 命令之前首先打对话框，这样可以选择可以导出的文件，用宏操作的话导出来文件是命令按钮所在的一页界面，而不是我想要导出的文件。

roych

那样的话要引用office库，如果您的是2003版本之前的access可能会丢失dll库。需要在VBE窗口取消“丢失库”，再重新引用。

附件说明：
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

我用的是WIN7系统，ACCESS版本是2007的，能运行吗？

roych

sinotrust 发表于 2011-1-8 21:30
我用的是WIN7系统，ACCESS版本是2007的，能运行吗？

软件都是向下兼容的，2007版本自然能打开2003版本的了~~先试试再说吧。但2003版本就不一定能打开2007版本（accdb文件）
(⊙_⊙)，如果上传是的2007版本的文件，俺就帮不上忙了，俺不会为此新版本改变个人使用习惯，更重要的是公司用的都是xp版本……

sinotrust

我下了你的案例，点开你的例子能运行，可是拷到我的数据库就运行不了了。不知道为什么？
显示的错误是“找不到工程或库”

roych

前面的帖子说过了，找不到库是因为版本问题。你打开按下Alt+F11，进入VBE模式，点击“工具\运行”，看看是否有丢失库：
我这里引用的是office 11.0库，如果你的显示为“丢失”，则去掉勾选后，再滚动库，重新引用office库试试看？

miracle-y

学习了