[求助]請各位大俠幫忙﹐急﹗急﹗急﹗

Airin

[B]我有一個連續表單﹐請問有什么方法可以復制節選后的數據?且能粘貼到其它文件上(如Office中的word\Excel等)
急﹗急﹗急﹗請大俠快快幫忙﹗謝謝﹗[em00][/B]

[此贴子已经被作者于2003-7-17 17:57:29编辑过]

玉面飞狐

你可以先把表单导出，然后再进行word/excel操作
DoCmd.OutputTo acOutputQuery, "结果", acFormatXLS, strOutputFileName , True

Trynew

也可以增加窗体视图的切换功能，切换为数据表视图，然后再进行word/excel操作

Airin

請問二樓的大哥﹐你的命令該用在什么地方(事件)呢?

請問三樓的版主大哥﹐還可以再詳細一點嗎?謝謝你及其他朋友的幫助。

[此贴子已经被作者于2003-7-18 8:29:59编辑过]

玉面飞狐

这里将使用DAO来改变查询的SQL语句，必须先在“工具”→“引用”中选择
Microsoft DAO 3.6 Object Library.
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
    Dim str1, str2L As String
   
    str1 = Me.查询子窗体.Form.Filter
    If str1 = "" Then
        '没有条件
        str2L = "SELECT * FROM [查询]"
    Else
        '有条件
        str2L = "SELECT * FROM [查询] WHERE " & str1
    End If
   
    Set qdf = CurrentDb.QueryDefs("结果")
    qdf.SQL = str2
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "结果", acFormatXLS, , True

[此贴子已经被作者于2003-7-18 9:33:36编辑过]

grace_ru

可以选好筛选后的数据，按鼠标右键---->复制，然后打开excel或word文件，粘贴。

wewyhy

以下是引用grace_ru在2003-7-18 12:34:42的发言：
可以选好筛选后的数据，按鼠标右键---->复制，然后打开excel或word文件，粘贴。

高手们遇到问题总是想到代码，这样不是很好吗

grace_ru

既然有简单的方法，为什么不用？郁闷中。。。。

Airin

謝謝各位大哥的厚愛與幫助﹗很高興看到你們的回復﹐謝謝﹗

再請問5樓的大哥﹐能否在你的回貼上再多加一些注釋?謝謝﹗

李寻欢

以下是引用wewyhy在2003-7-18 13:02:53的发言：
[quote]以下是引用grace_ru在2003-7-18 12:34:42的发言：
可以选好筛选后的数据，按鼠标右键---->复制，然后打开excel或word文件，粘贴。

高手们遇到问题总是想到代码，这样不是很好吗
[/quote]

程序员的任务之一就是把手工操作转为自动化操作，代码是一劳永逸的事，何乐而不为？