我有一个工作表,我需要保存活动工作表名称,一个单元格和日期。
Sub PrintToPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="P:\Estimating Misc\EXPERIMENTS\" + ActiveSheet.Name + " & "RANGE("F18:J18") & FORMAT("DATE,DD.MM.YYYY")".PDF", _
IGNOREPRINTAREAS:=False, _
OPENAFTERPUBLISH:=True
End Sub
我是VBA的超级新手,所以这是我在网上找到的东西的集合。我错过了什么?
2条答案
按热度按时间qrjkbowd1#
&
to concatenate,而不是+
。F18
。xyhw6mcr2#
当你计算文件名时,你的部分是错误的。引号字符在错误的位置。一对引号内的所有内容都被VBA保持不变。
如果要读取一个单元格的内容,则需要指定该单元格。即使合并了单元格,单元格区域(如
Range("F18:J18")
)也将失败。只需指定第一个单元格(Range("F18:J18")
)。而且,您应该始终使用
&
进行字符串连接。最好是将文件名创建成一个变量--如果它不正确,你可以使用调试器或即时窗口(Ctrl+G)来检查到底是怎么回事。