是否可以使用 Excel VBA 插入一個按鈕來建立和儲存具有數位檔案名稱的重複範本。

Question

我有一個改進表格，我想將其用作創建未來文件的範本。我想知道是否可以使用 VBA 在工作表上插入命令按鈕來建立副本並將其保存在作者姓名下並添加編號，以便我們可以追蹤全年所做的改進。

例如有文件範本>點選按鈕>開啟使用者表單輸入作者姓名>然後點選建立儲存在特定位置的新文件。

Answer 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程式碼。