首页 / 教程

用VBA关闭wps进程 | 我用vb控制wps于是在关闭wps时会出现一个提示保存的窗口求解

2022-11-27 05:48:00

1.我用vb控制wps于是在关闭wps时会出现一个提示保存的窗口求解怎么

Private Sub Command1_Click（)'这个是程序，实现打开制定的word文件，并修改，然后保存，关闭的代码。

Set WordApp = CreateObject("Word.Application")

Set WordDoc = WordApp.Documents.Open("E：\编程\尝试\1.doc")

这里添加修改代码

WordDoc.Save

WordDoc.Close

WordApp.Application.Quit

End Sub

2.VB编程在EXCEL里如何关掉进程

我觉得如果你上面那段代码能正常运行完应该是没什么问题的。除非行动中出错或其它非正常中断而没有运行

x1.Quit

Set x1 = Nothing '释放内存

Set x1Book = Nothing

Set x1Sheet = Nothing

这部分代码才会导致你说的进程没关闭的问题。如果是程序中间出错你可以在程序开始处加入ON ERROR GOTO XX 语名。然后在错误处理开始处判断X1是否退出，如果否在判断语句后加入上面几行代码就OK了。

3.wps宏被禁用如何打开

解决方法：

1、我们需要找到WPS并且打开WPS，进入到如下图的界面。

2、我们进入WPS后，需要在菜单栏里找到“开发工具”，然后点击，可以观察到宏是灰色的，说明宏无法使用。

3、这里，我们需要在网上下载一个vba6运行库文件。

4、下载完成后，双击该软件，进行安装。

5、安装完成之后呢，会看到如下图所示的安装完提示对话框。

6、这时，我们需要重启电脑，然后重新打开WPS，找到开发工具选项，就会发现宏就被启用了。

4.如何用VBA关闭非office的程序

使用API函数示例如下：Private Declare Function Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As LongPrivate Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As LongPrivate Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As LongPrivate Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As LongPrivate Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeaApid As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 1024End TypeConst TH32CS_SNAPHEAPLIST = &H1Const TH32CS_SNAPPROCESS = &H2Const TH32CS_SNAPTHREAD = &H4Const TH32CS_SNAPMODULE = &H8Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)Const TH32CS_INHERIT = &H80000000Dim Apid As LongDim Apname As StringPrivate Function AgentKill(ByVal AgentName As String) As Boolean Dim my As PROCESSENTRY32 Dim l As Long Dim j As Long Dim mName As String Dim i As Integer Dim Flag AgentKill = False l = (TH32CS_SNAPPROCESS, 0) If l 0 Then my.dwSize = 1060 If (Process32First(l, my)) Then Do i = InStr(1, my.szExeFile, Chr(0)) mName = LCase(Left(my.szExeFile, i - 1)) If mName = LCase(AgentName) Then Apid = my.th32ProcessID Apname = mName Dim mProcID As Long mProcID = OpenProcess(1&, -1&, Apid) TerminateProcess mProcID, 0& Else End If Loop Until (Process32Next(l, my) 评论0 0 0。