Office中国论坛/Access中国论坛

标题: [一起攻克]查询导出到工作表 [打印本页]

---

作者: zjs0270    时间: 2007-7-26 18:02
标题: [一起攻克]查询导出到工作表
<>本人知道 利用TransferSpreadsheet宏 可以将单个access的表文件 导出到excel的工作表sheet中  可是 如何可以将 查询 导出到sheet中</P>
<>利用output宏 可以导出查询 可是不能将他们分成几个sheet放在一个excel中， 请大家一起攻克</P>
<>我搜索了很多 主题 没有找到相关的 请高手 写个例子 给我 谢谢</P>

---

作者: zjs0270    时间: 2007-7-26 18:22
<>难道 真得很困哪吗？</P>
<>天啊</P>
<>我死定了....</P>

---

作者: 一点通    时间: 2007-7-26 18:25
如何分成几个sheet?

---

作者: summer_jt    时间: 2007-7-26 18:48
<><FONT face=Arial size=2>利用TransferSpreadsheet宏编译成DOCMD命令</FONT></P>
<><FONT face=Arial size=2>如: Private Sub 导出_Click()<FONT color=#3cc457>"作个命令按纽"</FONT></FONT></P>
<><FONT face=Arial size=2>    DoCmd.TransferSpreadsheet acExport, 8, "查询1", "D:\表.xls", True, ""</FONT></P>
<P><FONT face=Arial size=2>    DoCmd.TransferSpreadsheet acExport, 8, "查询2", "D:\表.xls", True, ""<BR><BR>    Beep<BR>    MsgBox " 传输结束!请在D:\表.xls文件中查询!"<BR>      <BR>End Sub</FONT></P>
<P><FONT face=Arial color=#44bb5c size=2>这样就可以在指定路径的指定电子表格文件中存有2张sheet表了</FONT></P>

---

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

Powered by Discuz! X3.3