낌준희 Kkimjunhee

'sub ajksndjklasd() 아래Application.Calculation = xlCalculationManual     Application.ScreenUpdating = False     Application.DisplayAlerts = False     Application.AskToUpdateLinks = False     Application.EnableEvents = False     Application.CutCopyMode = False     Application.Calculation = xlCalculationAutomatic     Application.AskToUpdateLinks = True     Application.DisplayAlerts = True     Appli..

Sub ChangeSheetNamesInFolder()     Dim folderPath As String     Dim fileName As String     Dim newFileName As String     Dim wb As Workbook     Dim ws As Worksheet     Dim i As Integer          ' 폴더 경로 설정 (경로 끝에 \를 꼭 추가하세요)     folderPath = "C:\Users\KJH_7JS2\Downloads\새 폴더 (27)\" ' 폴더 경로를 변경하세요          ' 폴더 내 첫 번째 파일 가져오기     fileName = Dir(folderPath & "*.xls*") ' .xls, .xlsx, .xlsm 등 확장자    ..

Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, _     ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cbMultiByte As Long, _     ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Long Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, _     ByVal dwFlags As Long, ByVal lpWideCharStr As LongPtr, ByVal c..