VBA13 shell 사용하기 shell 사용하기 Sub test1() RunShaell End Sub Sub RunShaell() On Error Resume Next Program = "notepad.exe" TaskID = Shell(Program, 1) If Err 0 Then MsgBox "Cannot start " & Program, vbCritical, "Error" End If End Sub 2016. 7. 11. kernel32 사용하여 시스템 정보 가져오기 kernel32 사용하여 시스템 정보 가져오기 Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) Type SYSTEM_INFO dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOfProcessors As Long dwProcessorType As Long dwAllocationGranularity As Long dwReserved As Long End Type Sub DisplaySystemInfo() Di.. 2016. 7. 11. Len(String) Len(String)입력 받은 문자열의 길이를 리턴 Sub BlackFaclon() Dim data As String data = "BlackFaclon" MsgBox Len(data) End Sub 2016. 7. 10. Left(string,length) Left(string,length) string문자열을 기준으로 왼쪽 부터 length(길이) 만큼의 값을 리턴 Sub BlackFaclon() Dim data As String data = "BlackFaclon" MsgBox Left(data, 2) End Sub 2016. 7. 10. 이전 1 2 3 4 다음