반응형 전체 글167 시트가 존재하는지 확인 다음 코드는 시트가 존재하는지 확인하는 간단한 사용자 정의 함수입니다. Function WorksheetExists(ByVal worksheetName As String) As Boolean Dim ws As Worksheet On Error Resume Next Set ws = ThisWorkbook.Worksheets(worksheetName) On Error GoTo 0 WorksheetExists = Not ws Is Nothing End Function 간단한 사용 예제입니다. Sub TestWorksheetExists() Dim sheetName As String sheetName = "Sheet1" ' 존재하는지 확인할 워크시트 이름 If WorksheetExists(sheetName) Th.. 2023. 8. 12. 파일이 열려있는지 확인 다음 코드는 파일이 열려있는지 확인하는 간단한 사용자 정의 함수입니다. Public Function IsFileOpen(ByVal filename As String) As Boolean Dim wb As Workbook On Error Resume Next Set wb = Workbooks(filename) On Error GoTo 0 IsFileOpen = (Not wb Is Nothing) End Function 2023. 8. 12. 파일이 존재하는지 확인 다음 코드는 파일이 존재하는지 확인하는 간단한 사용자 정의 함수입니다. Function FileExists(FPath As String) As Boolean Dim FName As String FName = Dir(FPath) If FName "" Then FileExists = True Else FileExists = False End If End Function 2023. 8. 12. Folder 개체 이 글은 도움말을 번역한 글입니다. Folder 개체 폴더의 모든 속성에 대한 액세스를 제공합니다. 비고 다음 코드는 Folder 개체를 가져오는 방법과 해당 속성 중 하나를 반환하는 방법을 보여 줍니다. Sub ShowFolderInfo(folderspec) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) s = f.DateCreated MsgBox s End Sub Sub CallShowFolderInfo() Dim folderPath As String folderPath = "D:\MyFolder" ShowFolderInfo folderPath End Sub 속성 Attri.. 2023. 8. 10. 이전 1 ··· 17 18 19 20 21 22 23 ··· 42 다음 반응형
