Office中国论坛/Access中国论坛

标题: [求助]請各位大俠幫忙﹐急﹗急﹗急﹗ [打印本页]

作者: Airin 时间: 2003-7-18 01:57
标题: [求助]請各位大俠幫忙﹐急﹗急﹗急﹗
[B]我有一個連續表單﹐請問有什么方法可以復制節選后的數據?且能粘貼到其它文件上(如Office中的word\Excel等)
急﹗急﹗急﹗請大俠快快幫忙﹗謝謝﹗[em00][/B]

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

作者: 玉面飞狐 时间: 2003-7-18 03:26
你可以先把表单导出，然后再进行word/excel操作
DoCmd.OutputTo acOutputQuery, "结果", acFormatXLS, strOutputFileName , True

作者: Trynew 时间: 2003-7-18 16:17
也可以增加窗体视图的切换功能，切换为数据表视图，然后再进行word/excel操作

作者: Airin 时间: 2003-7-18 16:27
請問二樓的大哥﹐你的命令該用在什么地方(事件)呢?

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

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

作者: 玉面飞狐 时间: 2003-7-18 17:33
这里将使用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 时间: 2003-7-18 20:35
可以选好筛选后的数据，按鼠标右键---->复制，然后打开excel或word文件，粘贴。

作者: wewyhy 时间: 2003-7-18 21:03

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

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

作者: grace_ru 时间: 2003-7-18 21:05
既然有简单的方法，为什么不用？郁闷中。。。。

作者: Airin 时间: 2003-7-19 21:25
謝謝各位大哥的厚愛與幫助﹗很高興看到你們的回復﹐謝謝﹗

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

作者: 李寻欢 时间: 2003-7-19 22:24

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

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

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

作者: 唐小小 时间: 2003-7-20 03:15
晕，如果别人问你1+1等于几，你非要回答等于4-2,那我想他还是不会的。

作者: Airin 时间: 2003-7-20 21:27
請問李尋歡大哥﹐代碼該怎樣寫才最簡單且實用呢?能否實現按鈕功能?另我在報表中匯出成Excel時﹐為什么報表中排在最后的一個字段在Excel中卻到了前面?請賜教﹐謝謝﹗

作者: 玉面飞狐 时间: 2003-7-21 18:43

以下是引用唐小小在2003-7-19 19:14:38的发言：
晕，如果别人问你1+1等于几，你非要回答等于4-2,那我想他还是不会的。

唐兄弟，有的时候可以自动生成的
还是自动生成比较好
点按钮都会
但是copy 粘贴不一定每个人都会

作者: Airin 时间: 2003-7-22 02:31
哪位大哥﹐還有更好的辦法沒有?兄弟多謝了﹗

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)