VBA调用bat，doc 命令行窗口关闭之后，VBA代码再继续执行

VBA调用doc命令，doc窗口关闭之后，继续执行代码

Option Explicit'Docワィンドワ閉じるした後、後続けの処理実施
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandel As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandel As Long, ByVal dwProcessld As Long) As Long

注：

如果你在程序中指定了Option Explicit，那么所有的变量都必须用Dim显式声明才可以使用。

'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *
'*                                    　　　　　　　　　　　　 *
'* Out対象ファイル作成（Tempフォルダー作成）　　          　   *
'* 作成日：2016/12/22                  　　　　　　　　　　　　*
'* 作成者：         　　　　　　　　　 　　　　　　　　　　　　*
'* 更新日：                            　　　　　　　　　　　　*
'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*
'*                                     　　　　　　　　　　　　*
'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *

Public Sub createTempFolder()On Error GoTo errl'■バッチ対象Dim BAT_CREATE_TEMP_TOOL As String: BAT_CREATE_TEMP_TOOL = _BAT_FILE_URL & "\" & BAT_CREATE_TEMP_TOOL_FILE_NAME'bat命令Dim cmdStrcmdStr = """" & BAT_CREATE_TEMP_TOOL & """" & " " & """" & OUT_FILE_PATH & """"'MsgBox cmdStr'バッチを実行するRetVal = Shell(cmdStr)processId = OpenProcess(&H100000, False, RetVal)r = WaitForSingleObject(processId, -1&)r = CloseHandle(processId)TEMP_FOLDER_EIXST_FLG = "1"GoTo endokerrl:'異常処理ERROR_FLG = "1"ERROR_INFO_LIST.Add ("関数：「createTempFolder」で、エラー発生しました。")ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)endok:End Sub

变量定义

 'バッチファイルの保存場所BAT_FILE_URL = Mid(OUT_FILE_PATH, 1, indexOfOut - 1) & "Tool" & "\bat"BAT_CREATE_TEMP_TOOL_FILE_NAME = "CreateTempTool.bat"

CreateTempTool.bat

@echo off
set outDir=%1cd /d %~d0
cd %outDir%
mkdir Temp

http://blog.csdn.net/sxzlc/article/details/53749868

bat中的[%~dp0]使用

扩展：

%0：表示批处理本身

%~sdp0:
这里面的
d:表示扩展到批处理文件所在的盘符；
p表示扩展到批处理文件所在的路径.

假如批处理文件在c盘的123文件下的test文件夹下：
c:\123\test\批处理文件：

d:表示c:\;
p表示123\test\
s:表示路径中含有短名

cd /d %~sdp0：就表示进入批处理文件所在的文件夹中
cd /d %~d0：就表示进入批处理文件的盘符

其他方式调用bat

http://blog.csdn.net/sxzlc/article/details/53750128

■让工具更简洁（不使用bat文件）

    'bat命令Dim cmdStrcmdStr = "c\AAAA\BBB\xxx.exe param1 param2"'MsgBox cmdStr'バッチを実行するRetVal = Shell(cmdStr)processId = OpenProcess(&H100000, False, RetVal)r = WaitForSingleObject(processId, -1&)r = CloseHandle(processId)

原来的bat中，有多行命令时，可以多次执行，这样，就不用单独建立一个bat文件了。

===

VBA调用bat，doc 命令行窗口关闭之后，VBA代码再继续执行相关推荐

python idle 常规命令_Python的3种运行方式:命令行窗口、Python解释器、IDLE的实现
1 命令行窗口开始栏搜索command,打开命令提示符,即为命令行窗口. 运行一个Python程序,需要输入:Python + 程序地址 + 程序名.py 如图: 2 Python解释器开始栏搜索 ...
在Linux命令行终端中写python代码的简单操作
Linux终端中的操作均是使用命令行来进行的.因此,对于小白来说,熟记几个基本的命令行和使用方法能够较快的在Linux命令行环境中将python用起来. 打开命令行窗口打开命令行窗口的快捷键如下: ...
在window的cmd命令行中通过chcp修改代码页--正确显示utf-8字符
Mt8616的开发板通过adb工具可以在Windows系统的cmd命令行显示出debug信息,但是mt8516开发板的系统上是移植的裁剪的linux系统,也就是里面的文件是utf-8的编码形式,不能正 ...
Mac电脑调用自带的命令行窗口
前言提示:我们都熟悉Windows电脑通过win+r即可以快速启动命令行窗口,但是Mac电脑中如何实现调用命令行窗口呐? 一.快捷键:command + 空格二.敲入te,terinmal的缩写即 ...
命令行窗口怎么使用快捷键关闭？
在Windows系统中,如果你想通过键盘快捷键来关闭命令行窗口,你可以按照以下步骤操作: 首先,你需要确保命令行窗口是当前的激活窗口.如果不是,你可以使用 Alt + Tab 键来切换窗口直到命令行窗 ...
exe4j 关闭命令行窗口运行
exe4j 运行关闭命令行窗口 java 程序打包成 jar exe4j 将jar转为 exe 文件 exe4j 关闭未注册弹窗信息 exe4j 设置UI启动,关闭黑框使用 java swing 做 ...
Windows命令行窗口 - DOS 指令
这里写目录标题 Windows-cmd命令 rd \ /s/q 删除根目录下的所有文件 rd . /s/q 删除当前目录的所有文件:q 无提示 /s 子文件的内容 dir 查看当前目录下的文件和文本 ...
解决CMD命令行窗口不显示颜色问题python
最近在做一个CMD命令行窗口显示不同颜色的字体的功能时,发现按照网上的方法设置均不生效 1.比如最常见的方法,print("\033[0;30;40m\tHello World\033[0m ...
怎么让cmd命令行不关闭或查看tomcat启动一闪而过的原因
场景:在运行tomcat的时候或者其他的bat文件,想保持cmd命令行窗口一直打开,以便查看里面的信息现在你有一个startup.bat命令行文件,一般情况下正常启动是可以一直显示cmd命令行窗口的 ...

VBA调用bat，doc 命令行窗口关闭之后，VBA代码再继续执行

VBA调用bat，doc 命令行窗口关闭之后，VBA代码再继续执行相关推荐

最新文章

热门文章

VBA调用bat，doc 命令行 窗口关闭之后，VBA代码 再继续执行

VBA调用bat，doc 命令行 窗口关闭之后，VBA代码 再继续执行相关推荐

最新文章

热门文章

VBA调用bat，doc 命令行窗口关闭之后，VBA代码再继续执行

VBA调用bat，doc 命令行窗口关闭之后，VBA代码再继续执行相关推荐