Set objXL = WScript.CreateObject("Excel.Application")objXL.Workbooks.Open filepathobjXL.Visible=trueSet objXL = NothingFunction 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 = vbNullStringFor Each objFile In odjFiles
If StrComp(RightB(objFile.Name, 8), ".xls", 1) = 0 Then
FilePath = objFile.Path
Exit For
End If
NextSet objFSO = Nothing
Set objFile = Nothing
Set odjFiles = Nothing
End Function
这是用一个.vbs文件去打开一个有宏的.xls文件的代码(目的是免去宏的是否启用提问),想增加能打开有宏且工作簿加了密码的.xls文件(是把知道的密码写进.vbs中,并非打开不知道密码的.xls文件,没有不良企图)
解决的主要是我在.xls工作簿中写了代码,不让用的人在不启用宏的情况下打开.谢谢老师们的帮助!
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(FilePath)
Set odjFiles = objFile.ParentFolder.Files
FilePath = vbNullStringFor Each objFile In odjFiles
If StrComp(RightB(objFile.Name, 8), ".xls", 1) = 0 Then
FilePath = objFile.Path
Exit For
End If
NextSet objFSO = Nothing
Set objFile = Nothing
Set odjFiles = Nothing
End Function
这是用一个.vbs文件去打开一个有宏的.xls文件的代码(目的是免去宏的是否启用提问),想增加能打开有宏且工作簿加了密码的.xls文件(是把知道的密码写进.vbs中,并非打开不知道密码的.xls文件,没有不良企图)
解决的主要是我在.xls工作簿中写了代码,不让用的人在不启用宏的情况下打开.谢谢老师们的帮助!
1、这句代码加在哪能个位置?好意思只会VBA,不懂VB。
2、在设工作簿密码时,没有"修改权限密码"呀?不理解,请求点拔。最好用解设打开工作簿的密码是“123456”改成“成品”。
回 2 楼
就是在原来代码的础上,增加能打开设有密码的工作簿(密码是自己设的如"123456"),密码是自己设的,目的是使用者通过这个vba文件去打开xls文件,不会提示是否启用宏和要求输入密码;如直打开xls文件,不知道密码就打不开,不知楼上的老师是否明白?