高分求解: 在Excel里用VBA判断某一DOC文件是否已打开

DawnPine 2005-05-18 04:42:10
在Excel里用VBA判断某一DOC文件是否已打开
该DOC可能是用 WordApp.Documents(DocName).Open 方式打开
也可能是用户操作WORD来打开, 比如用在 资源管理器 里双击相应的文件名打开了该文件

我现在希望知道无论有什么方式打开, 用VBA做出准确判断.

...全文
248 点赞 收藏 11
写回复
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
DawnPine 2005-06-10
有没高手来帮着看一下?

祝大家端午节快乐:

http://djyangyong.nease.net/flash/2136.swf
回复
flyingZFX 2005-06-10
我来也。
回复
DawnPine 2005-06-06
在Excel里用VBA把Excel的数据写入一个DOC文档
当Excel的VBA运行时,DOC文档可能已经被用户打开,这样就会报错
希望在用
Set wDoc = WordApp.Documents.Open(strWordName)
语句打开DOC文件之前检测该DOC的状态
如果是关闭状态当然最好
如果已打开,VBA可将其关闭,并且可以用程序控制关闭时是否保存.

leolan(史留香) ( ) 信誉:130
帮助解决了检测文档是否已打开的问题

如果能解决文档的关闭与保存的问题, 将另开帖给100分
回复
DooDu 2005-05-31
散200分,要有四个三角
散300分,要有三个星星
回复
DawnPine 2005-05-31
回复
DawnPine 2005-05-25
在Excel里用VBA把Excel的数据写入一个DOC文档
当Excel的VBA运行时,DOC文档可能已经被用户打开,这样就会报错
希望在用
Set wDoc = WordApp.Documents.Open(strWordName)
语句打开DOC文件之前检测该DOC的状态
如果是关闭状态当然最好
如果已打开,VBA可将其关闭,并且可以用程序控制关闭时是否保存.

leolan(史留香) ( ) 信誉:130
帮助解决了检测文档是否已打开的问题

如果能解决文档的关闭与保存的问题, 将另开帖给分
回复
xinliangyu 2005-05-25
楼主想干什么呢?如果是想打开它来操作,则可用getobject.当已打开时,自动获得对其控制权,没有打开时则会打开它
回复
DawnPine 2005-05-25
忘了说给多少分了 :-P
我给分都是按上限给
这个东东又不能当饭吃, 有什么舍不得的哈

顺带问一句:
好象听说升到两个三角之后就能一次散200分了
但我仍然只能散100分
有谁知道 散200分 300分 要什么条件?
回复
DooDu 2005-05-24
关注,up~
回复
DawnPine 2005-05-24
利用出错陷井的思路我也想过, 但后续处理无从下手, 所以想用
For Each doc In Documents
来枚举, 但试了一下不行.可能是因为当前WordApp对象中的Documents不包括用户手工打开的Word文档.

如果 C:\test.doc 是打开的, 那么如果把它关闭? 关闭时如何控制保存与放弃修改并关闭?
回复
leolan 2005-05-24
Const FILENAME As String = "C:\test.doc"

Function FileIsOpen(sFile As String) As Boolean

On Error Resume Next

Open sFile For Input Lock Read Write As #1

FileIsOpen = Err

End Function

Sub main()
MsgBox FileIsOpen(FILENAME)
End Sub
回复
发动态
发帖子
VBA
创建于2007-09-28

2026

社区成员

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
申请成为版主
社区公告
暂无公告