[VBA] 자막 내보내기

자막을 정리하고 나면 자막을 srt 파일로 저장해야 한다. 따라서 자막을 내보내기 하는 기능이 필요하다.

Sub srt_export()
'// 자막파일 텍스트 파일로 내보내기
    Dim r&, i&
    Dim strU As String, fName As String
    Dim FN As Integer

    FN = FreeFile
    If Cells(5, "E") = vbNullString Then
        fName = ThisWorkbook.Path & "\srt_data.srt"
    Else
        fName = Cells(5, "E")
    End If
   
    If Cells(Rows.Count, "A").End(3).Row = 1 Then
        MsgBox "내보낼 자막 데이터가 없습니다"
        Exit Sub
    End If
    Open fName For Output As #FN
        For r = 2 To Cells(Rows.Count, "A").End(3).Row
            strU = Cells(r, 1)
            Print #FN, strU
            i = i + 1
        Next r
    Close #FN   '// 작업을 마치고 파일을 닫는다
    MsgBox i & "행 내보내기 완료"
End Sub