[推荐] 我说“启用宏”，就得启用宏，管你什么安全级

只观看

怎么样才能将代码改为filepath&"xxx.xls"呢? 每次改路径不是很方便!

BobPan

QUOTE:

以下是引用只观看在2007-12-5 17:18:25的发言：
怎么样才能将代码改为filepath&"xxx.xls"呢? 每次改路径不是很方便!

Set objXL = WScript.CreateObject("Excel.Application")

filepath="D:\Macro Book.xls"

objXL.Workbooks.Open filepath

objXL.Visible=true

Set objXL = Nothing

sheep204

2007另存为启动宏的工作簿不就好了。

BobPan

QUOTE:

以下是引用sheep204在2007-12-6 13:35:51的发言：
2007另存为启动宏的工作簿不就好了。

相信2007还没有普及，不可能叫那些没装2007的人先安装2007，然后再运行你的文件，你说是吗？

只观看

这个是换汤不换药! 我的意思是EXCEL文档同VBE文件在同一目录下而不必写具体路径!

如同 Stpath = ThisWorkbook.Path & Application.PathSeparator & "book.xls"的效果!

[此贴子已经被作者于2007-12-6 13:48:58编辑过]

indexlee

看看

huwei853853

很好!

这个方法好!

BobPan

QUOTE:

以下是引用只观看在2007-12-6 13:47:32的发言：

这个是换汤不换药! 我的意思是EXCEL文档同VBE文件在同一目录下而不必写具体路径!

如同 Stpath = ThisWorkbook.Path & Application.PathSeparator & "book.xls"的效果!

不好意思，没看明白你前面的要求，另非常感谢你的这么有建设性的提议，谢谢！

现在，已经更新了代码，直接打开脚本文件目录的Excel工作薄，不用输入工作薄名称，脚本自己寻找找开工作薄

不过，它只找一个，所以最好在脚本文件目录中只放置一个你想打开的工作薄；如果没有工作薄，会出错。

代码如下（1楼可下载附件）：

Set objXL = WScript.CreateObject("Excel.Application")

objXL.Workbooks.Open filepath

objXL.Visible=true

Set objXL = Nothing

Function FilePath()

Set objShell = CreateObject("Wscript.Shell")

FilePath = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(FilePath)
Set odjFiles = objFile.ParentFolder.Files
FilePath = vbNullString

For Each objFile In odjFiles
    If StrComp(RightB(objFile.Name, 8), ".xls", 1) = 0 Then
        FilePath = objFile.Path
        Exit For
    End If
Next

Set objFSO = Nothing
Set objFile = Nothing
Set odjFiles = Nothing
End Function

firefox444

我用VB6.0做了一个通用的EXCEL文件启动程序（在两个压缩包内均有、gzmain.exe或修改......EXE文件），可找到当前目录下第一个EXCEL文件，并启动它，这样可以避免出现EXCEL安全中对宏的安全检测。一直在用，好用的。

http://club.excelhome.net/viewthread.php?tid=255173与楼主的一样功能，不过没有执行权限问题了。

只观看

谢谢!基本实现了我所想要的!能否让他实现打开指定的文档呢?因为同一目录下若有几个就会按文件名顺序打开排前的!