Spread 데이터 엑셀(Excel)로 저장(Export)

Dim a As Boolean Dim strFileName As String     strFileName = App.Path & "\" & Date & ".xls"           With sp1 '스프레드이름             If MsgBox("저장하시겠습니까?", vbOKCancel, "저장") = vbOK Then                       .Protect = False                                 a = .ExportToExcel(App.Path & "\" & Date & ".xls", "sheet name", App.Path & "\" & Date & ".txt")            .Protect = True           MsgBox ("저장되었습니다")                              End If                               End With End If