[Excel VBA] 파일 생성 및 문자열 특정부분 추출

목적
: 엑셀 파일 생성 및 문자열에서 필요한 부분만 추출

실행결과
: 4,2 셀에 있는 값의 5부터 8개 글자의 파일명으로 추출해서 파일명 만든후 생성

코드

Sub create_file_device_string()      Dim template_sheet As Worksheet      Dim file_name As String            Set template_sht = Sheets("TEST")            file_name = Mid(template_sht.Rows(4).Columns(2).Value, 5, 8) '문자열 자르기            'F_name = file_name  'B열 1행의 값 -> F_name 변수지정      '생성할 파일이 이미존재하는지 여부확인      If Len(Dir(ThisWorkbook.Path & "\" & F_name & ".xlsx")) Then          ' 현 워크북 파일 디렉토리에 F_name 변수값의 엑셀파일이 있다면  True          MsgBox "파일명이 존재합니다."  '메시지 띄움                End If      Workbooks.Add  '워크북 추가      ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & file_name & ".xlsx"      '현 디렉토리에 "file_name".xlsx 로 저장  End Sub