엑셀 vba 100개 이상의 csv 파일을 1행부터 7행까지 삭제 후 재 저장하기

>> YOUR LINK HERE: ___ http://youtube.com/watch?v=d8ENSlaePAM

#CSV_앞부분_삭제 #CSV_앞부분_자르기 • -------------------------------------------------------------------------------- • 좋아요/구독 눌러주세요. 큰 힘이 됩니다. • -------------------------------------------------------------------------------- • 질문 사항이 있으시면 [email protected]으로 해 주세요. • [Code] • Sub get_csv_files() • Dim wb As Workbook • Dim sht As Worksheet • Dim oFiles As Variant, oFile As Variant • • oFiles = Application.GetOpenFilename(FileFilter:= Csv files,*.csv , MultiSelect:=True) • • If LCase(TypeName(oFiles)) = boolean Then Exit Sub • • Application.DisplayAlerts = False • Application.ScreenUpdating = False • • For Each oFile In oFiles • • Set wb = Workbooks.Open(oFile) • Set sht = wb.Worksheets(1) • • '1-7행을 삭제 • sht.Rows(1).Resize(7).Delete • • wb.SaveAs Filename:=oFile, FileFormat:=XlFileFormat.xlCSV • • wb.Close False • Next • • Application.DisplayAlerts = True • Application.ScreenUpdating = True • • • End Sub

#############################

New on site