전체 글256 엑셀파일 열기 GetOpenFilename Sub 파일선택() Dim 선택파일 As Variant Dim 파일형식 As String 파일형식 = "엑셀 파일 (*.xls*), *.xls*" 선택파일 = Application.GetOpenFilename(FileFilter:=파일형식, Title:="작업 파일 선택") If 선택파일 False Then Workbooks.Open Filename:=선택파일 Else MsgBox "파일을 선택하지 않았습니다." End If End Sub 2024. 5. 15. 파일(Workbook)이 열려있는지 확인하는 법 출처 : 엑셀 바이블 486p Function IsFileOpen(파일 As String) As Boolean Dim 열린파일 As Workbook On Error Resume Next Set 열린파일 = Workbooks(Dir(파일)) IsFileOpen = (Err.Number = 0) End Function 파일이 열려있을 경우 : → Dir(파일)이 파일명을 뱉어냄 → 열린파일이라는 변수에 Workbooks 개체가 맞게 들어감→ 에러 발생안함→ Err.Number = 0이 됨→ IsFileOpen이 True가 됨 파일이 열려있지 않을경우(파일이 존재하지 않는 경우 등등):→ 열린파일이라는 변수에 Workbooks 개체가 안 들어감 [★밑에설명]→ 에러 .. 2024. 5. 15. 폴더 내에 있는 파일명들 불러오는 방법 https://separang.tistory.com/65 [엑셀 VBA] Dir을 사용하여, 폴더 내 파일명 불러오기.윤 대리다. 간지 나는 메서드가 있어서 공유한다. 그동안 그냥 파일 열 때 [GetOpenFileName] 만 주구장창 썼는데 [Dir]을 통해 좀 더 우아한 매크로를 만들 수 있을 거 같아서 간단히 소개하고자 한다.separang.tistory.com Sub test() Dim File_Name As String Dim Folder As String Folder = ThisWorkbook.Path File_Name = Dir(Folder & "\" & "*.xls*") Do Cells(Rows.Count, 1).End(3)(2) = File_Name File_Nam.. 2024. 5. 15. Pandas 행 수 세기 2024. 5. 15. Pandas 행 추가 https://www.youtube.com/watch?v=PjhlUzp_cU0&ab_channel=%EB%82%98%EB%8F%84%EC%BD%94%EB%94%A9 2024. 5. 14. column + 텍스트 https://www.youtube.com/watch?v=PjhlUzp_cU0&ab_channel=%EB%82%98%EB%8F%84%EC%BD%94%EB%94%A9 이런것도 된다 2024. 5. 14. 이전 1 ··· 9 10 11 12 13 14 15 ··· 43 다음
