绝对可以搞定！那个弹出的「导出为PDF」对话框确实会打断宏的自动执行流程，我们只需要换一种静默导出的方式，完全跳过用户交互环节就好。

核心解决思路 #

别再依赖带交互的文件选择逻辑（比如你之前用到的GetSaveAsFilename相关代码），直接使用Excel内置的ExportAsFixedFormat方法来完成PDF导出——这个方法支持直接指定保存路径，全程不会弹出任何对话框。

适配你需求的代码示例 #

结合你给出的路径和文件名参数，修改后的代码如下：

' 先处理目标文件夹：确保路径存在，避免导出失败
Dim targetFolder As String
targetFolder = "U:\KClients\"

' 如果文件夹不存在，自动创建它
If Dir(targetFolder, vbDirectory) = "" Then
    MkDir targetFolder
End If

' 静默导出指定工作表为PDF（替换成你要导出的工作表名）
ThisWorkbook.Worksheets("你的目标工作表名称").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=targetFolder & nome_linea & ".pdf", _
    Quality:=xlQualityStandard, ' 要是想减小文件体积，可换成xlQualityMinimum
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False

几个关键注意点 #

• 记得把代码里的"你的目标工作表名称"替换成你实际要导出的工作表名；如果需要导出整个工作簿，把Worksheets("xxx")换成ThisWorkbook就行。
• 确保nome_linea变量已经被正确赋值，不然导出的文件名会出现异常。
• 这个方法会直接将PDF写入指定路径，全程无弹窗，宏可以毫无阻碍地运行完成。

内容的提问来源于stack exchange，提问作者NG83