[一起攻克]查询导出到工作表

zjs0270

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

zjs0270

<>难道 真得很困哪吗？</P>
<>天啊</P>
<>我死定了....</P>

一点通

如何分成几个sheet?

summer_jt

<><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>