Excel 썸네일형 리스트형 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 더보기 이전 1 다음