-
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。
5.WPS表格里面vba怎么使用
打开WPS表格程序，切换到“开发工具”选项卡，点击“说明”按钮，此时将打开说明窗口。
WPS表格VB编辑器怎么用
此此将弹出“说明”窗口，在此根据实际需要点击“专业版”或“商业版”链接按钮，并在弹出的如图所示：
WPS表格VB编辑器怎么用
此时将打开WPS专业版程序，待下载完成后，就会发现WPS开发工具选项变成可用状态。如图所示：
WPS表格VB编辑器怎么用
点击“VB编辑器”进入VBA环境，在此就可以使用WPS更加强大的扩展功能啦。在此小编以创建自定义函数为例，讲解一下VB编辑环境的具体使用方法。
WPS表格VB编辑器怎么用
右击“WPS表格”对象，从弹出的右键菜单中选择“插入”-》“模块”项来插入一个用户模块。
WPS表格VB编辑器怎么用
在此模块编辑界面中，输入以下代码：
Function 求最大值（i As Integer, j As Integer）
If i >j Then
求最大值 = i
Else:
求最大值 = j
End If
End Function
WPS表格VB编辑器怎么用
7
最后返回WPS表格界面，输入公式“=求最大值（3,5）”，即可得输出结果“5”。
WPS表格VB编辑器怎么用
