<<< 返回 access911.net 编程静态资料库索引页

如何在导出表到EXCEL时让用户随意选择字段?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2008-4-17  浏览人次:1454


专题地址:http://access911.net/fixhtm/72FABF1E13DCEEF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:

如何用 VBA 在查询 和 表里有条件的选择 字段 然后导入到 EXCEL 里?
如何在导出表到EXCEL时让用户随意选择字段?

 

方法一:

两种方法,原理都一样:根据用户选择,动态生成查询,这个查询的列就是用户要输出的列,再用 OutPutTo 输出即可。但是界面表现不一样。
方法一,用子窗体的数据表视图,这样用户可以右键单击某列,然后选择隐藏。程序中只要判断一下,隐藏的列不输出就可以了
图片如下:
按此在新窗口浏览图片

Private Sub Command1_Click()
    Dim ctl As Control
    Dim strSQL As String
    
    '扫描子窗体上所有的控件,如果是文本框或者组合框,就判断是否被用户隐藏了
    For Each ctl In Me.sub1.Form.Controls
        '注意,这个判断还能继续添加,比如复选框也可以
        If ctl.ControlType = acTextBox Or _
            ctl.ControlType = .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FABF1E13DCEEF3.htm

 


上一篇:如何解决用fso删除文件时不作任何提示直接删除了,也不放入回收站的问题

下一篇:学好 ACCESS 后发展方向如何?

2017年2月22日生成静态资料