精华内容
下载资源
问答
  • 在VB以及VBA中自定义的xlapp或者myapp,在结束的时候虽用quit方法退出,但是系统进程中依然存在,那么如何解决呢?
  • VBA调用InternetExplorer操作IE浏览器,自动弹出文件选择对话框时,VBA会处于阻塞状态,你必须手工关闭文件选择对话框,VBA才能继续向后运行。 例如下面网址,就有一个文件浏览按钮: ... 我做了一个exe文件,可以在...

    VBA调用InternetExplorer操作IE浏览器,自动弹出文件选择对话框时,VBA会处于阻塞状态,你必须手工关闭文件选择对话框,VBA才能继续向后运行。

    例如下面网址,就有一个文件浏览按钮:

    http://www.zytxs.com/web1/upload.aspx

    我做了一个exe文件,可以在另一个进程中来处理文件对话框。

    Sub Test()
        Dim File As MSHTML.HTMLInputFileElement
        Dim WSH As Object
        Set File = IE.document.getElementById("myfile")
        Set WSH = CreateObject("WScript.Shell")
        WSH.Run "E:\Office_VBA\AutoSelectFile\AutoSelectFile.exe E:\Office_VBA\Translate.rar", vbHide, False
        File.Click
    End Sub
    

      上述代码,WSH.Run的参数中,包含两部分,空格左侧是处理文件对话框的exe文件路径(在本帖中可以下载并解压缩)

    后面的 E:\Office_VBA\Translate.rar 是电脑中随便的一个文件路径,也就是要往文件选择对话框中上传的那个文件。

    执行上述Test过程,VBA会自动打开文件浏览对话框,然后自动给对话框设置路径,并确定。

     

     

    exe文件下载地址

    AutoSelectFile.rar

    下载后,解压缩到不含空格的路径下。请勿点击exe文件。

    请打开Excel文件,然后点击工作表上的按钮进行测试。

     

    转载于:https://www.cnblogs.com/ryueifu-VBA/p/10034782.html

    展开全文
  • This is my code, and I found many answers for VBA, .NET framework and is pretty strange. When I execute this, Excel closes.from win32com.client import DispatchExexcel = DispatchEx('Excel.Application')...

    This is my code, and I found many answers for VBA, .NET framework and is pretty strange. When I execute this, Excel closes.

    from win32com.client import DispatchEx

    excel = DispatchEx('Excel.Application')

    wbs = excel.Workbooks

    wbs.Close()

    excel.Quit()

    wbs = None

    excel = None #

    But when I do the following, it does not close.

    excel = DispatchEx('Excel.Application')

    wbs = excel.Workbooks

    wb = wbs.Open('D:\\Xaguar\\A1.xlsm')

    wb.Close(False)

    wbs.Close()

    excel.Quit()

    wb = None

    wbs = None

    excel = None #

    I found some possible answer in Stack Overflow question

    Even it does not bother me if I can just get the PID and kill it.

    May be not the proper way, but a workround is:

    def close_excel_by_force(excel):

    import win32process

    import win32gui

    import win32api

    import win32con

    # Get the window's process id's

    hwnd = excel.Hwnd

    t, p = win32process.GetWindowThreadProcessId(hwnd)

    # Ask window nicely to close

    win32gui.PostMessage(hwnd, win32con.WM_CLOSE, 0, 0)

    # Allow some time for app to close

    time.sleep(10)

    # If the application didn't close, force close

    try:

    handle = win32api.OpenProcess(win32con.PROCESS_TERMINATE, 0, p)

    if handle:

    win32api.TerminateProcess(handle, 0)

    win32api.CloseHandle(handle)

    except:

    pass

    excel = DispatchEx('Excel.Application')

    wbs = excel.Workbooks

    wb = wbs.Open('D:\\Xaguar\\A1.xlsm')

    wb.Close(False)

    wbs.Close()

    excel.Quit()

    wb = None

    wbs = None

    close_excel_by_force(excel) #

    解决方案

    Try this:

    wbs.Close()

    excel.Quit()

    del excel # this line removed it from task manager in my case

    展开全文
  • VBA使用宏卡顿解决

    2021-01-03 00:44:43
    前几天使用GBA的宏,然后内存占用非常高。 然后导入了SLEEP函数,将进程...关闭sleep延时,EXCEL2013使用内存大概30%。 明显,使用VBA宏的时候,建议使用OFFICE 2003 。 揣测:可能是因为OFFICE 2016画质特效占用太多内

    前几天使用GBA的宏,然后内存占用非常高。
    然后导入了SLEEP函数,将进程减速以后,内存占用降低了。

    然后我将EXCEL2016的宏导入到2013中,相同的进程:

    本人1066+I7 8350,相同的代码
    (都加入SLEEP 30)
    EXCEL2016内存占用超过60%,基本满内存。
    EXCEL2003内存占用大概在10%左右。

    关闭sleep延时,EXCEL2013使用内存大概30%。

    明显,使用VBA宏的时候,建议使用OFFICE 2003 。

    揣测:可能是因为OFFICE 2016画质特效占用太多内存。

    展开全文
  • 1. 将要破解的Excle文件关闭进程结束掉 2. 新建Excle ,打开新增文件的VB界面(如下图) 3. 新增模块后,将下面代码复制到模块中 Private Sub VBAPassword() '你要解保护的Excel文件路径 Filename = ...
    • 1. 将要破解的Excle文件关闭,进程结束掉
    • 2. 新建Excle ,打开新增文件的VB界面(如下图)

          

    •     3. 新增模块后,将下面代码复制到模块中
    Private Sub VBAPassword() '你要解保护的Excel文件路径
    Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")
    If Dir(Filename) = "" Then
    MsgBox "没找到相关文件,清重新设置。"
    Exit Sub
    Else
    FileCopy Filename, Filename & ".bak" '备份文件。
    End If
    Dim GetData As String * 5
    Open Filename For Binary As #1
    Dim CMGs As Long
    Dim DPBo As Long
    For i = 1 To LOF(1)
    Get #1, i, GetData
    If GetData = "CMG=""" Then CMGs = i
    If GetData = "[Host" Then DPBo = i - 2: Exit For
    Next
    If CMGs = 0 Then
    MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
    Exit Sub
    End If
    
    Dim St As String * 2
    Dim s20 As String * 1
    '取得一个0D0A十六进制字串
    Get #1, CMGs - 2, St
    '取得一个20十六制字串
    Get #1, DPBo + 16, s20
    '替换加密部份机码
    For i = CMGs To DPBo Step 2
    Put #1, i, St
    Next
    '加入不配对符号
    If (DPBo - CMGs) Mod 2 <> 0 Then
    Put #1, DPBo + 1, s20
    End If
    MsgBox "文件解密成功......", 32, "提示"
    Close #1
    End Sub
    • 4.然后点击运行按钮
    • 5.运行后,系统让我们选择要破解的工程
    • 6.根据提示,等程序破解完毕,再次打开你要破解的这个文件,你会看到这里的工程已经解密
    • Over~~~~~
    展开全文
  • 02046关闭所有打开的工作簿,保存所有更改 02047删除工作簿中所有定义的名称 02048引用当前工作簿窗口 02049引用新建的工作簿窗口 02050引用特定工作簿的窗口 02051获取工作簿窗口的拆分状态 02052获取工作簿窗口的...
  • (二)处理文件 下面是windows中提供的对于文件进行操作的API函数及其功能: CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。 CompareFileTime 根据...
  • 集成许多常用操作,因为使用进程间ActiveX通信,但速度一般不快。 gardenpath.dvb 如果用加载CAD工具条时,使用的VBA模块。 MyCADDll.dll 房屋快速绘制库,可由 gardenpath.dvb,支行该宏即可加载该工具条。 ...
  • 集成许多常用操作,因为使用进程间ActiveX通信,但速度一般不快。 gardenpath.dvb 如果用加载CAD工具条时,使用的VBA模块。 MyCADDll.dll 房屋快速绘制库,可由 gardenpath.dvb,支行该宏即可加载该工具条。 ...
  • Excel插件--OBS.DLL

    2008-11-27 17:05:52
    当我们需要临时离开电脑而又不想关闭Excel文档时(并不局限于Excel文档,也可以是其它,但前提是要运行Excel),可以启动这个功能,这样其他人就不可能看到您不希望他们看到的东西。 15、尝试打开忘记密码的文件。...
  • Excel终极伴侣1.287

    2008-10-24 16:41:04
    当我们需要临时离开电脑而又不想关闭Excel文档时(并不局限于Excel文档,也可以是其它,但前提是要运行Excel),可以启动这个功能,这样其他人就不可能看到您不希望他们看到的东西。 15、尝试打开忘记密码的文件。...
  • Excel终极伴侣1.286

    2008-10-14 10:56:40
    当我们需要临时离开电脑而又不想关闭Excel文档时(并不局限于Excel文档,也可以是其它,但前提是要运行Excel),可以启动这个功能,这样其他人就不可能看到您不希望他们看到的东西。 15、尝试打开忘记密码的文件。...
  • Excel终极伴侣1.291

    2009-03-19 09:01:10
    当我们需要临时离开电脑而又不想关闭Excel文档时(并不局限于Excel文档,也可以是其它,但前提是要运行Excel),可以启动这个功能,这样其他人就不可能看到您不希望他们看到的东西。 15、尝试打开忘记密码的文件。...
  • Excel终极伴侣1.290

    2009-03-12 14:33:14
    当我们需要临时离开电脑而又不想关闭Excel文档时(并不局限于Excel文档,也可以是其它,但前提是要运行Excel),可以启动这个功能,这样其他人就不可能看到您不希望他们看到的东西。 15、尝试打开忘记密码的文件。...
  • Excel终极伴侣1.288

    2008-11-26 16:01:36
    当我们需要临时离开电脑而又不想关闭Excel文档时(并不局限于Excel文档,也可以是其它,但前提是要运行Excel),可以启动这个功能,这样其他人就不可能看到您不希望他们看到的东西。 15、尝试打开忘记密码的文件。...
  • 4.4.3 自动关闭Employees窗体 86 4.5 小 结 87 第5章 使用DAO 88 5.1 理解DAO 88 5.1.1 了解数据库的内部构造 89 5.1.2 DAO初步 90 5.1.3 进入数据库 90 5.1.4 检查数据库 92 5.1.5 检查表的属性 93...
  • 14.4 应用ProgressBar控件显示任务的进程 448 14.4.1 使用SysCmd()显示Access进度条 448 14.4.2 使用ActiveX ProgressBar控件 450 14.5 使用Slider控件在运行阶段设置文本框尺寸 452 14.6 应用Microsoft Rich ...
  • Excel集成工具箱7.0是利用VBA(Visual Basic for Applications)语言编写的增强应用型插件。包括160个菜单功能和100个左右自定义函数,集160个工具于一身,但体积小于15MB。当安装集成工具箱后,如果您使用Excel ...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    Excel集成工具箱6.0是利用VBA(Visual Basic for Applications)语言编写的增强应用型插件。...【系统功能信息】 系统功能调用及相关信息,关闭电脑、重启电脑、电脑使用时间、磁盘剩余空间。 【查看...
  • 【端口进程查询】 查看本机开放的系统端口以及使用该端口的进程一览表。 系 统 工 具 【锁定屏幕】 快捷一键式登出当前用户并锁定电脑,类似于CTRL+ALT+DEL功能。 【系统待机】 使用此功能可以达到节能及锁定电脑...
  • 【端口进程查询】 查看本机开放的系统端口以及使用该端口的进程一览表。 系 统 工 具 【锁定屏幕】 快捷一键式登出当前用户并锁定电脑,类似于CTRL+ALT+DEL功能。 【系统待机】 使用此功能可以达到节能及锁定...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • 7.1.1 自动化:C++与VBA的桥梁 7.1.2 自动化组件与自动化客户 7.1.3 IDispatch接口 7.1.3.1 GetTypeInfoCount和GetTypeInfo 7.1.3.2 GetIDsOfNames 7.1.3.3 Invoke 7.1.4 类型库和ODL 7.1.5 VARIANT数据类型 7.2 ...
  • ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】...
  • Excel工具箱教学指导

    2014-03-27 23:07:35
    ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】...
  • ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】...
  • MySQL如何打开和关闭表 7.4.10. 在同一个数据库中创建多个表的缺陷 7.5. 优化MySQL服务器 7.5.1. 系统因素和启动参数的调节 7.5.2. 调节服务器参数 7.5.3. 控制查询优化器的性能 7.5.4. 编译和链接怎样影响MySQL的...
  • excel百宝箱 正版

    2013-04-04 23:39:28
    ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】...
  • ║ 【快捷综合取数】 【EXCEL比较工具】 【端口进程查询】 【筛选选区唯一值行】 【俄罗斯方块】 ║ ║ 【自动填充】 【资料分栏打印】 【锁定屏幕】 【消除选区重复值】 【在线音乐】 ║ ║ 【取唯一值】 【工作薄...

空空如也

空空如也

1 2 3
收藏数 43
精华内容 17
关键字:

vba关闭进程