精华内容
下载资源
问答
  • vb/vba 引用excel对象后通过 xlapp.quit set xlapp=nothing 无法关掉excel进程的解决方法
  • 项目中有个报表生成模块,其中word中的宏调用了excel,因为用完之后没有关掉excel进程导致下一次报表生成时字段替换错误,在网上找了好多vba杀掉进程的方法都不起作用,最后还是找到了一个不错的,和大家分享一下 ...


              项目中有个报表生成模块,其中word中的宏调用了excel,因为用完之后没有关掉excel进程导致下一次报表生成时字段替换错误,在网上找了好多vba杀掉进程的方法都不起作用,最后还是找到了一个不错的,和大家分享一下

        For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='EXCEL.EXE'")
                Process.Terminate (0)
        Next

            只要把其中的EXCEL.EXE换成其他的进程名即可杀掉全部此名称的进程。

            如果大家有其他好的方法,欢迎赐教。



    展开全文
  • 彻底关闭EXCEL进程

    2008-06-30 18:13:45
    用于彻底关闭EXCEL进程,如有疑问可联系我 QQ群号:6423655 , 可以到www.veege.net下载使用
  • VBA关闭其他程序

    千次阅读 2015-05-26 16:08:20
    关闭Winrar.exe为例,代码如下: Sub closeWinrar() Dim oWMT As Object, oProcess As Object Set oWMT = GetObject("winmgmts://") For Each oProcess In oWMT.InstancesOf("Win32_Process") If LCas

    以关闭Winrar.exe为例,代码如下:

    Sub closeWinrar()
        Dim oWMT As Object, oProcess As Object
        Set oWMT = GetObject("winmgmts://")
        For Each oProcess In oWMT.InstancesOf("Win32_Process")
            If LCase(oProcess.Name) = "winrar.exe" Then
                If oProcess.Terminate() = 0 Then Exit Sub
            End If
        Next
    End Sub

    转自 http://blog.csdn.net/laoyebin/article/details/5732682

    展开全文
  • 用vb写的进程管理程序,虽然简单,但是实现方法很实用。可以得到系统的进程名及PID,并且可以关闭进程
  • 在做第一个实践的时候,遇到的...该项目涉及窗体(UserForm)、工作表(工作表),在各部分写了相关代码,但是因为执行的过程中各对象会有关闭情况,不确定对象关闭后其中代码是否可以执行。所以找到这个文章学习一下

    在做第一个实践的时候,遇到的问题。

    实践:打开Excel时,隐藏工作表并弹出欢迎窗体,5秒后关闭窗体打开工作表。

    问题:实际的情况时倒计时出错,工作表隐藏。窗体停在页面上无法进行。o(╯□╰)o

    解决方法:
    思路 1(turned wrong):启用宏的Excel文件保存为.xlsm,修改为.xlsx就是“未启用宏的Excel”

    • 窗体关闭后Excel文件并没有完全关闭,需要在进程管理器中彻底杀死进程
    • windows默认不显示文件后缀,打开文件夹,选择“查看-文件扩展名”勾选,然后就可以通过修改后缀修改文件类型
    • 打开文件,提示“xxx文件已损坏,无法正常打开”

    思路2:打开问题工作薄,关闭窗体,此时已经看不到工作薄相关的任何内容,打开一个新的workbook,此时进入VBE,哈!看到了有问题对象,改就可以啦!

    出错原因:非事件子程序要写在模块里而不是某个对象中
    ps:自定义函数也要卸载模块里

    展开全文
  • 关闭Execl进程

    2014-04-13 20:29:19
    关闭任何进程,这里面举例为Execl进程! item.ProcessName == "EXCEL" "EXCEL"可修改成当前想要关闭进程 具体需要下载哦!
  • 在VB以及VBA中自定义的xlapp或者myapp,在结束的时候虽用quit方法退出,但是系统进程中依然存在,那么如何解决呢?
  • VBA调用Shell

    千次阅读 2021-08-28 15:32:59
    VBA中执行Shell介绍,打开应用,执行python、bat、mysql;

    VBA的Shell函数

    函数参数介绍

    Shell(PathName[,WindowStyle])

    • PathName :要执行的程序名,包括目录或文件夹
    • WindowStyle :程序运行时窗口的样式

    Shell函数返回在第一个参数中指定的应用程序的任务标识。可以使用这个数字在稍后激活该任务;
    Shell函数启动的应用正在运行时,VBA进程不会终止(类似于加入了进程等待)。
    Shell函数异步运行应用程序,执行Shell函数后,还有其他过程,会与Shell函数内容同时执行;
    Shell函数第二个参数WindowStyle的值:

    常量说明
    vbHide0窗口将隐藏,并且焦点将传递给隐藏窗口。
    vbNormalFocus1窗口具有焦点且还原为其原始大小和位置。
    vbMinimizedFocus2窗口将显示为具有焦点的图标。
    vbMaximizedFocus3使用焦点最大化窗口。
    vbNormalNoFocus4窗口将还原为其最新的大小和位置。 当前活动窗口仍保持活动状态。
    vbMinimizedNoFocus6窗口将显示为图标。 当前活动窗口仍保持活动状态。

    示例:

    Function shell_func(Program As String)
    ' Program:应用名称
    Dim TaskId As Double
    On Error Resume Next
    TaskId = Shell(Program, 1)      ' 任务标识,参数1代表窗口具有焦点且还原为其原始大小和位置
    If Err <> 0 Then     ' 不等于0,表示报错
        MsgBox "无法打开应用:" & Program, vbCritical, "Error"
    End If
    End Function
    

    过程等待

    Shell在运行完之后会关闭小黑窗,处理快点几乎看不见,可以通过在命令行前加入cmd /k,小黑窗不会关闭;
    Shell "cmd /k ipconfig/all"
    VBA等待shell执行完再执行后面进程,可以定义这么一个函数

    Function ShellAndWait(cmd As String) As String 
        Dim oShell As Object, oExec As Object
        Set oShell = CreateObject("WScript.Shell")
        Set oExec = oShell.exec(cmd)        ' 执行cmd命令
        result = oExec.StdOut.ReadAll    ' 读取命令行返回的内容,读完后再进行vba后面的逻辑处理;
        Set oShell = Nothing
        Set oExec = Nothing
    End Function
    

    案例-执行Windows的bat文件

    Shell "c:/bat_file.bat"


    案例-mysql查询

    Sub sql_to_txt()
    Dim this_path,cmd As String
    
    this_path = ThisWorkbook.Path    ' 当前工作簿的路径
    ChDrive "F"   '切换磁盘渠道到F盘
    ChDir this_path     ' 切换路径,这样my_ndim_table文件就写入到工作簿所在目录下了
    '-u账号 -p密码 库名mydb -e执行 "要执行的sql",> 查询结果重定向到txt文件
    cmd = "cmd /k mysql -uroot -p123456 mydb -e ""select * from d_mg_game_ndim limit 20"" > my_ndim_table.txt"
    shell cmd, 1    
    End Sub
    

    案例-执行python脚本

    ' 打开jupyter notebook
    Shell "jupyter notebook"
    
    ' 执行python脚本
    shell "python d:/python.py"
    

    案例-指定应用程序打开文件

    这里使用的是notepad++打开命名为my_ndim_table.txt的文本文件

    ChDrive "c"
    ChDir "C:\Program Files (x86)\Notepad++"
    cmd_str = ".\notepad++.exe F:\桌面\my_ndim_table.txt"
    Debug.Print cmd_str
    
    Shell cmd_str, 1
    

    AppActivate语句

    如果一个程序已经在运行,使用shell函数会启动另一个实例,大多情况下,只需要激活正在运行的实例,而并非启动另一个实例。可以通过AppActivate语句激活实例;

    Sub StartCalculate()
    Dim Program As String
    Dim TaskId As Double
    
    Program = "calc.exe"   ' 计算器
    On Error Resume Next   '遇到错误,继续执行下面语句
    AppActivate "计算器"    ' 这里是应用程序面板的标题titile
    If Err <> 0 Then   ' 如果没有捕捉到‘计算器’程序,则err不等于0
        Err = 0
        TaskId = shell(Program, 1)    ' 打开计算器
        If Err <> 0 Then MsgBox "无法打开计算器"
    End If
    End Sub
    

    激活计算器


    EXCEL表格函数打开应用程序

    如果是在工作表里,我们可以使用该函数:
    =HYPERLINK("C:\Windows\System32\calc.exe","打开计算器")
    工作表超链接打开计算器


    ShellExecute函数

    函数介绍

    使用API函数ShellExecute能打开任何文件(包括桌面和URL快捷方式)。ShellExecute解析系统注册表HKEY_CLASSES_ROOT中所有的内容,判断启动哪一个执行程序,并且启动一个新的实例或使用DDE将文件名连到一打开的实例。然后,ShellExecute返回打开文件的应用的实例句柄。
    ShellExecute函数可以简单地打开磁盘文件和Internet文件。如果将第二个参数“OPEN”改为“PRINT”或者“EXPLORE”,则ShellExecute能打印文件或打开文件夹。

    该函数只能启用已知文件名的应用程序(文件类型在Windows注册)


    函数API声明

    在模块中的声明部分输入如下声明语句
    声明

    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _
        ByVal ipOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
    

    声明关键词:

    • Declare关键字:在模块级别中声明对动态链接库(DLL)中外部过程的引用。
    • Function关键字:紧随Function的函数名是从VBA中调用该函数时要使用的名称。该名称可以与API函数本身的名称相同,也可以使用Declare语句中的Alias关键字,表示要在VBA中使用不同的名称(“别名”)调用该函数。
    • Lib关键字:指明包含所声明过程或函数的动态链接库。它说明的是函数或过程从何而来的问题。例如在上例中,SetFocus Lib"user32"说明函数SetFocus来自“user32.dll”文件。
    • Alias关键字:用于指定API函数的别名,如果调用的API函数要使用字符串(参数中包含String类型),则Alias关键字是必需的。这是因为在ANSI和Unicode字符集中同一API函数的名称可能是不一样的。为了保证不出现声明错误的情况,必须使用Alias关键字指出API函数的别名。

    案例:打开网页、图片、文本、EXCEL

    Sub open_url()
    ' 打开百度链接
    res = ShellExecute(0&, vbNullString, "http://www.baidu.com", vbNullString, vbNullString, 1)
    
    ' 打开图片
    res = ShellExecute(0&, vbNullString, "F:\桌面\111.png", vbNullString, vbNullString, 1)
    
    ' 打开txt文件
    res = ShellExecute(0&, vbNullString, "my_ndim_table.txt", vbNullString, vbNullString, 1)
    
    ' 打开excel表格
    res = ShellExecute(0&, vbNullString, "F:\excel_file.xlsx", vbNullString, vbNullString, 1)
    End Sub
    
    展开全文
  • VBA关闭工作簿和退出Excel

    万次阅读 2013-07-12 10:01:54
    要用VBA关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。下面是一些代码示例:  关闭活动工作簿,如果工作簿有更改,提示是否保存:  Sub CloseWorkbook()  ...
  • VB禁止运行指定软件(杀进程)。最简单的软件限制程序,实时杀掉指定的软件进程.
  • 最近写了点关于word的程序,要判断word程序是否存在。...' MsgBox "将所用的word文档和进程关闭"  WordisExist = 2  Exit Function  Else  Err.Clear  End If  WordisExist = 0 End Function
  • EXCEL application.quit 不关闭进程问题解决 直接上源码 public bool Format(string filePath, string outputFile) { var excelApplication = new Microsoft.Office.Interop.Excel.Application(); Workbook ...
  • excel vba 读取 word 指定字符Sub 按钮1()Dim myPath As StringSet Wdapp = CreateObject("Word.Application")Wdapp.Visible = TrueApplication.ScreenUpdating = False '关闭屏幕刷新' On Error Resume Next '...
  • 艺赛旗 RPA9.0全新首发免费下载 点击下载 http://www.i-search.com.cn/index.html?from=line1 代码块中内容如下: 运行结果:
  • VBA调用SHELL脚本并等待程序结束

    千次阅读 2019-09-07 09:42:37
    VBA调用Shell是异步处理,以下为同步处理代码,注释写的还行,就不多说了。可以直接拿到本地DEBUG以下,注意将下面的本地路径替换为你要运行的bat文件。 ' 引入外部函数 PtrSafe用来避免不兼容问题(32位,64位 ...
  • 删掉wps后台烂进程

    万次阅读 2019-03-20 22:00:31
    是谁也没得法,必须删掉wps这个烂进程. wps列表=['wpscenter.exe','wpscloudlaunch.exe','wpscloudsvr.exe','wpsnotify.exe','wpsupdate.exe'] def 删wps(): s=set(wps列表) for p in psuti...
  • CADvba开发手册.doc

    2020-12-22 18:27:31
    CADvba开发手册VBA开发人员手册VBA入门本章将为你介绍AutoCAD VBA工程及VBA交互开发环境(VBA IDE)。尽管大部分VBA环境在行为上都是相似的,但AutoCAD VBA IDE还是有些独有的特性。在AutoCAD中还有些相关的命令可以...
  • webdriver 执行完毕关闭chromedriver进程

    万次阅读 2017-04-06 15:07:20
    背景:一个网站的登录部分用到了selenium,但是在多次登录之后,发现进程里残留了很多的chromedriver.exe进程。项目打成jar包之后放到另外的机器上跑,发现不久之后就开始卡顿,甚至于弹不出浏览器的窗口,所以怀疑...
  • VBA调用InternetExplorer操作IE浏览器,自动弹出文件选择对话框时,VBA会处于阻塞状态,你必须手工关闭文件选择对话框,VBA才能继续向后运行。 例如下面网址,就有一个文件浏览按钮: ... 我做了一个exe文件,可以在...
  • 介绍:创建一个记事本进程,等待用户输入随意字符回车后,关闭记事本进程。由于对两个方法进行了归函,故取消了返回值。 1 #include <stdio.h> 2 #include <Windows.h> 3 void createProcess() ...
  • 复制代码 代码如下:#-*- coding:utf-8 -*-...name) app.Visible = True time.sleep(0.5) app.Quit() if __name__ == ‘__main__’: ””’ 通过python启动办公软件的应用进程, 其中wpp、et、wpp对应的是金山文件、表格
  • 在python代码中调用vba宏的四种方法

    千次阅读 2021-04-23 18:56:18
    在python代码中调用vba宏 工作以python为主体,但是遇到了一些word操作的需求(详见上一篇),这个需求用word自带的功能会很容易实现,于是就想着能不能用python调用宏来处理。 网上找了一圈,发现了一大堆方法...
  • 如何用VBA关闭Excel

    2009-11-19 14:29:00
    如果只是关闭当前工作簿,可以用:ThisWorkBook.Close False如果要关闭所有工作簿并退出程序,可以试试:Sub aa()Application.QuitIf Workbooks.Count > 1 ThenFor i = 1 To Workbooks.CountSendKeys "{right}...
  • Sub 修改数据()'On Error Resume Next '// 发生错误,自动执行下一句,就是忽略错误Application.ScreenUpdating = False '//关闭屏幕刷新Application.DisplayAlerts = False '//关闭系统提示t = Timer '//开始时间...
  • VBA 字符串函数&转换函数

    万次阅读 2018-12-05 16:58:09
    1,vba字符串函数列表: Trim(string) 去掉string左右两端空白 Ltrim(string) 去掉string左端空白 Rtrim(string) 去掉string右端空白 Len(string) 计算string长度 Left(string, x) 取string左段x个字符组成...
  • 打开,关闭 Notepad.exe 进程操作

    千次阅读 2015-03-20 11:30:19
    1.打开:WinExec("Notepad.exe", SW_SHOW); 2.关闭:HWND hWnd = ::FindWindow(_T("Notepad"),0 );  ::SendMessage(hWnd, WM_CLOSE, WM_SYSCOMMAND, 0);
  • VBA学习笔记

    2021-12-09 23:09:12
    3.0 VBA语法 Microsoft Visual Basic for Applications DAO(数据访问对象)是Microsoft Jet数据库引擎(用于Microsoft Access)的第一个面向对象的接口,允许VB开发者直接链接到Access数据表,并且可以通过ODBC用于...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,333
精华内容 533
关键字:

vba关闭进程

友情链接: code.zip