可用 shell 函数调用其他应用程序,
可用 AppActivate 方法激活其他应用程序窗口
可用 SendKeys 方法将击键发送给活动应用程序,即可 *** 作其他应用程序
假如你登录的用户名是Administrator那么你做好的VBA宏就在这个路径下,一个文件名叫“PERSONALXLS”的文件C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART把这个文件拷贝下载放到别人系统的这个路径下就可以了,其中的administrator要替换成其他登录系统的用户名注:你做的VBA宏保存的属性一定要是“个人宏工作簿”,不能是当前工作簿
你的这段代码只是通过运行特定的工作簿,来打开隐藏在系统文件夹的某个Excel文件。如果通过VB来打开该文件。那么前面的Protect部分意义不大。给你全部修改掉,直接通过VB来核对密码:
代码如下:
Private Sub Command1_Click()Dim ss As String, n As Integer
Do While True
ss = InputBox("请输入授权密码:", "查看权限")
If ss = "123456" Then Exit Do
n = n + 1
If n = 3 Then GoTo 200
Loop
Dim xlApp As Object
Set xlApp = CreateObject("ExcelApplication")
xlAppVisible = True
xlAppWorkbooksOpen ("C:\WINDOWS\system32\drivers\nxls")
Exit Sub
200:
MsgBox "对不起,您已经三次输错密码,系统将自动退出。" & vbCrLf & _
"如果要获得文件权限,请与管理员联系!", vbOKOnly + vbExclamation
End Sub
可以,VBA编写的程序都可以执行,但是必须在EXCEL、WORD环境下执行,不能独立执行。
编写独立执行的程序需要使用VB,可以编译为一个EXE文件,这个文件可以在任何地方鼠标双击执行。
以上就是关于Excel 请问如何用VBA代码去 *** 作另一个应用程序全部的内容,包括:Excel 请问如何用VBA代码去 *** 作另一个应用程序、如何将在VBA中编写好的宏应用到其他机上的excel中、excelVBA代码转化成可以在VB里运行的代码等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)