Excel

Question

我在excel制作了发票系统。其中有用作发票编号的客户名称和 ID。其他细节也在那里。我在 excel 中添加了一个保存按钮来保存我的工作 sheet，其中 vb:

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

现在，它仅以 'Export' 名称保存。所以每次我保存它都会有相同的名称。但我希望保存按钮允许我在保存 sheet 之前命名 sheet。或者，有什么办法可以让我保存的 pdf 的名称按照两个单元格值的顺序排列？我还希望在单击“保存”按钮时打开保存的 pdf。

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

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 的文件。

Excel - 保存按钮

Excel - Save Button

vba

button

save