☰

Excel VBA를 사용하여 숫자 파일 이름으로 중복 템플릿을 만들고 저장하는 버튼을 삽입할 수 있습니까?

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba microsoft-excel-2007
Excel VBA를 사용하여 숫자 파일 이름으로 중복 템플릿을 만들고 저장하는 버튼을 삽입할 수 있습니까?

향후 문서 작성을 위한 템플릿으로 사용하고 싶은 개선 양식이 있습니다. VBA를 사용하여 워크시트에 명령 단추를 삽입하여 복사본을 만들고 추가된 번호와 함께 작성자 이름으로 저장하여 일년 내내 수행된 개선 사항을 추적할 수 있는지 궁금합니다.

예를 들어 문서 템플릿 > 버튼 클릭 > 사용자 양식을 열어 작성자 이름 입력 > 클릭하여 특정 위치에 저장되는 새 문서를 생성합니다.

답변1

네, 가능합니다. 아래에 작성된 VBA 코드를 사용하면 템플릿 통합 문서를 새 이름으로 저장하는 데 도움이 됩니다.

Sub CreateNewBook()

Dim wbk As Workbook
Dim sht1,sht2 As Worksheet
Dim lng As Long, rng As Range

Set sht1 = Sheets("IndexName") 
Set sht2 = Sheets("NameData") 
lng = sht1.Cells(Rows.Count, "A").End(xlUp).Row

Set rng = sht1.Range("A2:A" & lng)

    For Each c In rng
        Sheets("Template").Copy 
        Set wbk = ActiveWorkbook

        wbk.Sheets(1).Range("A100") = c.Value
        sht2.Copy After:=wbk.Sheets(1)    
        wbk.SaveAs c.Value & ".xlsx"
        wbk.Close False

    Next

End Sub

참고:시트 "IndexName"은 셀 A2에 이름이 있으며, 템플릿 시트를 복사하기 위해 버튼을 클릭할 때마다 코드에서 "새 파일 이름"으로 사용됩니다.따라서 셀 A2를 새 이름으로 업데이트하는 것을 잊지 마십시오.

시트 "NameData"는 셀 A100 이후의 새 파일을 추적하는 데 사용됩니다.

또한 이 코드는 파일을 기본 위치에 저장합니다. 변경하고 싶다면 변경할 수 있습니다.

이것이 도움이 되기를 바랍니다. 제가 테스트한 후 이 VBA 코드를 게시했습니다.

관련 정보