공책

원본 ppt와 대상ppt를 실행합니다.대상ppt의 파일명을 target.pptx로 두던지 아래 소스에 targetName을 수정합니다.원본 ppt를 실행하여 아래 내용을 매크로에 기입하고 실행합니다. Sub slideCopy() Dim x As Integer Dim fileName As String fileName = ActivePresentation.Name Const targetName As String = "target.pptx" Application.DisplayAlerts = False For i = 1 To Presentations(targetName).Slides.Count Presentations(targetName).Slides(1).Delete Next Application.Displa..

데이터가 있는 원본 파일에 매크로를 작성하고 실행시에도 활성화 상태로 둡니다.(선택된상태)대상이 될 엑셀 파일명을 target.xlsx로 하던지 원하는 파일명을 하단에 targetName 부분에 넣어줍니다.(원본파일과 대상파일 둘다 열린상태)원본 파일 매크로에 아래 내용을 입력하고 실행합니다. Sub sheetCopy() Dim x As Integer Dim fileName As String fileName = ActiveWorkbook.Name Const targetName As String = "target.xlsx" Dim targetCount As Integer Workbooks(targetName).Sheets.Add After:=Workbooks(targetName).Sheets(Workboo..