워크쉬트 갯수세기 워크쉬트의 갯수를 표현해주는 사용자 정의 함수입니다. 출처 : http://www.cpearson.com/Excel/SheetNameFunctions.aspx Public Function 쉬트세기(Optional 범위 As Range, Optional 보이는것만 As Boolean) As Long ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '쉬트세기 '워크쉬트의 갯수를 세서 값을 반환함 '만약 범위를 지정하고 실행시 그 워크북이 가지고 있는 워크쉬트의 갯수를 반환함 '만약 범위가 지정되지 않으면 이 기능을 호출한 워크북의 워크쉬트 갯수를 반환함 '[보이는것만]이 값이 참일 경우 보이는 워크북만 세주고 '거짓일 경우 모든 워크쉬트를.. 더보기 파일/폴더의 존재여부 알아내기 1. 파일의 존재여부 알아내기 Function 파일존재여부(파일명) As Boolean 파일존재여부 = Dir(파일명) "" End Function 2. 폴더의 존재여부 알아내기 Function 폴더존재여부(폴더명) As Boolean On Error Resume Next 폴더존재여부 = (GetAttr(폴더명) And vbDirectory) = vbDirectory End Function 더보기 폴더 선택을 위한 구문 폴더 선택을 위한 구문 Sub GetAFolder() With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = "폴더를 고르시오" .Show If .SelectedItems.Count = 0 Then MsgBox "Canceled" Else MsgBox .SelectedItems(1) End If End With End Sub 참고로 엑셀 2002 이상에서만 사용할 수 있다. 엑셀 2002 이전에서는 API를 이용해서 만들어야 한다. Excel 개발자 참조 Application.FileDialog 속성파일 대화 상자의 인스턴스를 나타내는 FileDialo.. 더보기 이전 1 2 3 4 ··· 11 다음