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

chenyf_ly

BobPan

QUOTE:

以下是引用chenyf_ly在2007-12-13 21:20:22的发言：

请参考下面这位朋友的回帖，你的电脑可能禁用了Scripting.FileSystemObject

请用下代码替换原脚本中的函数FilePath（需在大字体处指定文件名）：

QUOTE:

以下是引用leal在2007-12-8 16:10:22的发言：

'这个好,原先的那个如果禁用了Wscript.Shell和Scripting.FileSystemObject就不能使用了,这个可以.

Function FilePath()

Filename = "My Macro.xls"
FilePath = Wscript.ScriptFullName
FilePath = Mid(FilePath, 1, InStrRev(FilePath, "\")) & Filename

End Function

[此贴子已经被作者于2007-12-14 10:35:31编辑过]

BobPan

QUOTE:

以下是引用leal在2007-12-8 16:21:35的发言：

。。。。。。

'如何做到这样的效果,就是如何用WS直接先判断文件是否存在,而不用弹出系统对话框?

不好意思，帖太多，没看到，今天看到了回复，希望不算晚！

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

a = RUNFILE
Set objXL = Nothing

Function RUNFILE()

If FilePath = vbNullString Then Exit Function

objXL.Workbooks.Open FilePath
objXL.Visible = True

End Function

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
'msgbox rightb(objfile.name,10)
    If StrComp(RightB(objFile.Name, 24), "My Macro.xls", 1) = 0 Then
        FilePath = objFile.Path
        Exit For
    End If
Next

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

chenyf_ly

BobPan

QUOTE:

以下是引用chenyf_ly在2007-12-14 12:43:24的发言：

此脚本需在Wscript下运作，转为exe需要修改一些代码，有空我改一个传上来！

woshihr888

真难懂啊，收藏了，学习

doudou888

学习中!

BobPan

QUOTE:

以下是引用chenyf_ly在2007-12-14 12:43:24的发言：

编绎下面为exe后创建快捷方式(exe + 空格 + 文件[若路径含空格，请使用引号])：D:\Project1.exe "D:\Macro Book.xls"

VB版本

Sub Main()

Dim objXL As Object

If LenB(Command) > 0 Then

On Error GoTo Eixtxl
    Set objXL = CreateObject("Excel.Application")
   
    objXL.Workbooks.Open Command
   
    objXL.Visible = True
   
    Set objXL = Nothing

End If

Exit Sub

Eixtxl:
objXL.Quit
Set objXL = Nothing
MsgBox "您未指定文件路径或指定的文件路径不存在，请检查并重新指定", vbInformation, "文件路径错误"

End Sub

[此贴子已经被作者于2008-1-2 16:01:26编辑过]

wayy

学习啦，谢谢楼主。

liyh67

谢谢分享