Excel - 保存按钮

Question

我用Excel制作了发票系统。其中有用作发票编号的客户名称和 ID。还有其他细节。 我在 Excel 中添加了一个保存按钮，以使用以下 vb 保存我的工作表:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

现在，它仅以“导出”名称保存。所以每次我保存时都会有相同的名称。 但我希望保存按钮允许我在保存工作表之前命名工作表。或者，有什么办法可以让我保存的pdf的名称按顺序根据两个单元格值？另外，我希望单击此“保存”按钮时打开保存的 pdf。

是否无法按顺序从三个不同的单元格中检索文件名。 J5&J6 代表发票号码，K5&K6 客户名称，L8 代表状态？如果同一个按钮也可以将某些单元格值保存在另一个工作表中，是否不可能？

Answer 1

使用我的文件夹结构:

Private Sub CommandButton1_Click()
    Dim fname As String
    
    fname = Application.InputBox(Prompt:="Enter File Name", Type:=2)
    
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\TestFolder\" & fname & ".pdf", _
            OpenAfterPublish:=True
    Application.ScreenUpdating = True
End Sub

当然，您会将 TestFolder 更改为 PDF。

编辑#1:

单元格内容如下:

此更新的代码:

Private Sub CommandButton1_Click()
    Dim fname As String, s As String
    
    s = " "
    fname = [J5] & [J6] & s & [K5] & s & [K6] & s & [L8]
    
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\TestFolder\" & fname & ".pdf", _
            OpenAfterPublish:=True
    Application.ScreenUpdating = True
End Sub

将生成一个文件名为 PN123-697 James Ravenswood Shipped 且文件类型为 .pdf 的文件。