(엑셀VBA) VBA를 이용해서 CMD 명령어 실행하자

VBA를 이용해서 CMD 명령어를 사용할 수 있습니다.

간단한 명령어 이지만 여러모로 유용하게 사용할 수 있어요~

​

ALT + F11 를 입력해서 확인 해보세요.

​

1. CMD를 실행 한다

2. CD "현재경로" 이동한다.

3. mkdir "aaaaa" 폴더를 만든다.

 

Sub Test()

Dim m As Workbook: Set m = Workbooks(ThisWorkbook.Name)
Dim ms As Worksheet: Set ms = m.Sheets(1)    '@ Sheet 지정
   
'# Shell 을 사용하기 위해 선언
Dim wsh As Object: Set wsh = VBA.CreateObject("WScript.Shell")

'# """" 경로 """" 해주는 이유는 띄어쓰기가 있는 경우를 위함
Dim strPath As String: strPath = """" & m.Path & """"

'# /k는 cmd창 글씨 뜨게
'# /c는 cmd창 글씨 안뜨게
Dim cmdText As String

'# 'cd 경로' 명령어 실행 후 다음 'mkdir' 실행해라.
cmdText = "/c " & "cd /d " & strPath & " && "
cmdText = cmdText & "mkdir " & "aaaaaaaa"

Debug.Print cmdText

Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1

'# Shell실행 cmdText <- 명령어,
wsh.Run "cmd.exe " & cmdText, windowStyle, waitOnReturn

wsh.Run "Explorer.exe " & strPath & ", vbNormalFocus"

End Sub