设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1396|回复: 7
打印 上一主题 下一主题

[其它] 请各位老师帮助解释一下几句代码(已上传附件)

[复制链接]
跳转到指定楼层
1#
发表于 2006-7-19 02:08:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我在论坛上看到一个将数据库中的所有表导出成EXCEL文件的范例,把它放到自己的数据库里就出现错误。现请教各位老师两个问题:

1.这段代码运行时,对数据库中的表是否有什么特殊的规定。

2.请各位老师对这段代码中的红色语句给予解释。

Dim wk1 As Workspace
Dim db1 As Database
Dim que1 As QueryDef
Dim stDocName As String
Dim stOutputFile As String
Set wk1 = DBEngine.Workspaces(0)
Set db1 = wk1.Databases(0)
For Each que1 In db1.QueryDefs
    stDocName = que1.Name
    stOutputFile = CurrentProject.Path & "\data\" & que1.Name & ".xls"
   DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, stOutputFile, False
Next
    db1.Close
    MsgBox "导出查询成功!" & Chr(13) & "共导出" & db1.QueryDefs.Count & "个查询到:" & CurrentProject.Path & "\data\" & "文件夹"


[此贴子已经被作者于2006-7-19 17:47:40编辑过]

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2006-7-19 22:45:00 | 只看该作者
请各位老师帮助解释一下
3#
 楼主| 发表于 2006-7-20 01:23:00 | 只看该作者

烦请各位老师看看问题出在哪里

请各位老师帮助看看问题出在哪里,另外对1楼标有红色的三条语句给予解释。先谢谢大家了!(现将范例上传)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4#
发表于 2006-7-20 05:17:00 | 只看该作者

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
5#
 楼主| 发表于 2006-7-20 23:53:00 | 只看该作者
恩师您好!让您费心了。问题解决了,但有一条语句不懂,请帮助解释:

DoCmd.OutputTo acOutputTable, obj.Name, acFormatXLS, stOutputFile, False
6#
发表于 2006-7-21 00:00:00 | 只看该作者


OutputTo 方法

在 Visual Basic 中,OutputTo 方法执行 [url=mkMSITStore:vbaac10.chm::/html/acactOutputTo.htm]OutputTo[/url] 操作。

expression.OutputTo(ObjectType, ObjectName, OutputFormat, OutputFile, AutoStart, TemplateFile, Encoding)

expression      必需。返回 DoCmd 对象的表达式。

ObjectType   必需 [url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactOutputTo.htm#]AcOutputObjectType[/url]。要输出的对象类型。











AcOutputObjectType 可以是下列 AcOutputObjectType 常量之一:



acOutputDataAccessPage  不支持。



acOutputForm



acOutputFunction



acOutputModule



acOutputQuery



acOutputReport



acOutputServerView



acOutputStoredProcedure



acOutputTable

ObjectName    Variant 型,可选。[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactOutputTo.htm#]字符串表达式[/url],表示由 ObjectType 参数所选定对象类型的有效名称。如果要输出活动的对象,可以将 ObjectType 参数指定为该对象的类型,并将此参数保留为空。如果在库数据库中运行包含 OutputTo 方法的 Visual Basic 代码,Microsoft Access 将首先在该库数据库中搜索具有此名称的对象,然后再到当前数据库中进行搜索。

OutputFormat   Variant 型,可选。以 AcFormat 常量形式表示的输出格式。如果省略此参数,Microsoft Access 将提示您指定输出格式。











AcFormat 可以是下列 AcFormat 常量之一:



acFormatASP



acFormatDAP



acFormatHTML



acFormatIIS



acFormatRTF



acFormatSNP



acFormatTXT



acFormatXLS

OutputFile     Variant 型,可选。字符串表达式,代表对象要输出到的文件的完整名称(包括路径)。如果将该参数留空,Microsoft Access 将提示您指定输出文件名。

AutoStart     Variant 型,可选。该参数为 True (-1) 可立刻启动适当的基于 Microsoft Windows 的应用程序,并加载由 OutputFile 参数指定的文件。如果不想启动该应用程序,可将该参数设为 False (0)。对于 Microsoft Internet Information Server (.htx、.idc)文件和 Microsoft ActiveX Server 文件 (*.asp),将忽略该参数。如果将该参数留空,就会采用默认值 (False)。

TemplateFile     Variant 型,可选。字符串表达式,代表要用作 HTMLHTX 或 <a href="mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac1
7#
 楼主| 发表于 2006-7-21 00:36:00 | 只看该作者
恩师您好!一切就尽在不言中吧,我会倍加的勤奋。
8#
发表于 2006-7-21 02:29:00 | 只看该作者
恩师在Access的帮助中,什么都有,就是想偷懒吧?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 14:15 , Processed in 0.076889 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表