Attribute VB_Name = "xShellDos関数"
' @(h) xShellDos関数.bat                                            ver 1.0 ( '98.10.19  )

' @(s)
'  Shell関数を起動してＤｏｓウィンドウを表示しないようにする関数
'
Option Explicit

Sub xShellDosのテスト()
    Call xShellDos("batch.bat")
End Sub

' @(f)
'
' 機能      : Shell関数を起動してＤｏｓウィンドウを表示しないようにする関数
'
' 返り値    : なし
'
' 引き数    : なし
'
' 機能説明  : Shell関数を起動してＤｏｓウィンドウを表示しないようにする関数
'
' 備考      : 特になし
'
Function xShellDos(ByVal xCmd As String)
    Call Shell("command.com /c " & xCmd & " ", vbHide)
'    Call Shell("command.com /c Proc.bat ", vbHide)
'    Call Shell("command.com /c notepad.exe " & ActiveWorkbook.Path & "\test.txt ", vbHide)
'    Call Shell("command.com /c notepad.exe " & ActiveWorkbook.Path & "\test.txt ", vbHide)
End Function