Question

我目前拥有的电子表格有两个标签，其中一个标签是员工列表，每个员工都有一个唯一的员工编号以及有关该员工的各种其他信息。

我拥有的第二个标签是一个页面，您可以在其中输入员工编号，然后使用VLOOKUP将所有员工的信息都带出来，然后有一个保存按钮，您可以在其中保存员工的姓名＆＃39;作为PDF文件的信息。

在保存按钮上，有一个宏我可以按下按钮，它会将所有员工信息保存为多个不同的PDF文件，而不是一次只保存一个吗？
我正在谈论骑自行车通过员工号码并保存每个号码？

我目前附加在按钮上的代码如下：

Option Explicit
Sub savePDF()
Dim wSheet As Worksheet
Dim vFile As Variant
Dim sFile As String

Set wSheet = ActiveSheet
sFile = Replace(Replace(Range("I11"), " ", ""), ".", "_") _
        & "_" _
        & Range("I10") _
        & ".pdf"
sFile = ThisWorkbook.Path & "\" & sFile

With Excel.Application.FileDialog(msoFileDialogSaveAs)

Dim i As Integer
For i = 1 To .Filters.Count
    If InStr(.Filters(i).Extensions, "pdf") <> 0 Then Exit For
Next i

.FilterIndex = i
.InitialFileName = sFile

.Show
If .SelectedItems.Count > 0 Then vFile = .SelectedItems.Item(.SelectedItems.Count)

End With

If vFile <> "False" Then
wSheet.Range("A1:BF47").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=vFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

End If
End Sub

循环显示员工编号并保存多个PDF文件

0 个答案: