Excel VBA 将书籍保存在同一文件夹中

本文由日文译成中文。

在使用 Excel 时，您经常希望在与当前工作簿相同的文件夹中保存一个新文件，并使用新名称。

您可能想从姓名列表中为每个人创建一个文件，或者为每个月或每年创建一个文件。

创建一个模板账簿，然后使用宏一次在同一文件夹中创建多个账簿，这样做非常方便！

< Sponsored Links >

将图书命名保存在与原始图书相同的文件夹中

将原版书作为 “启用宏的书 ”保存在任意文件夹中。文件名为 “元のブック.xlsm”。

在原书的 VBE 中写出以下内容

Sub SameFolderSave()
    '声明变量（用于在图书中存储文件夹名称）
    Dim thisPath As String
    '在变量中输入图书的文件夹名称。
    thisPath = ThisWorkbook.Path
    '用不同的名称将此书保存在同一文件夹中
    ThisWorkbook.SaveAs Filename:=thisPath & "\新しいブック.xlsm"
End Sub

执行编写的 VBA 后，在同一文件夹中创建了一个名为 “新しいブック.xlsm ”的文件。

在同一文件夹中保存多本书

如果您想保存多本书，请重复此过程。

在原书的 VBE 中写入以下内容。

Sub SameFolderSave()
    '变量声明
    Dim thisPath As String     '文件夹名称
    Dim i As Long              '迭代处理

    
    '自分のブックのフォルダ名を変数に入れる
    thisPath = ThisWorkbook.Path
    
    '在变量中输入图书的文件夹名称。
    For i = 1 To 10
        ThisWorkbook.SaveAs Filename:=thisPath & "\新しいブック" & i & ".xlsm"
    Next i
End Sub