Question

提问：如何在EXCEL另存为的时候以几个单元格内容为命名

我想把以下表一键转PDF，最后同时以M3和M6的内容作为另存为名字的怎么做？求大神破！

Answer 1

将如下代码复制在VBA中，运行即自动在本excel路径下生成pdf文档，文件名为M3,M6。

Sub Ctr_pdf()
Dim my_File As String
my_File = Worksheets(1).Range("M3").Value & Worksheets(1).Range("M6").Value
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & my_File, Quality:=xlQualityStandard
End Sub

追问

此法，在我 的电脑上好像不行

追答

把所有excel文档关闭后重新打开，再次运行。

追问

按照您的方法操作，还是一样的结果

追答

M3,M6为空值？其中字符不能包含/等。检查一下。保存位置在当前excel文件夹。

追问

非空

追答

可将文件上传给我看一下。

追问

好吧我晚上把这个挪出来试试

Answer 2

用VBA可以做到
同时以M3和M6的内容作为另存为名字是什么意思？
看不到M列

追问

就是说，m3和m6的内容组合起来成为文件名，比如m3=2015.m6=RTA.文件保存的名字就是2015RTA或者是RTA2015.大神求代码

就是说，m3和m6的内容组合起来成为文件名，比如m3=2015.m6=RTA.文件保存的名字就是2015RTA或者是RTA2015.大神求代码

追答

保存的路径是哪？只保存这一个？

追问

e:\zmwk

追答

这是保存当前激活的工作表的代码，如果e盘没有zmwk文件夹代码会失效

Sub 宏1()

Application.ScreenUpdating = False

Dim a, b As String
a = Range("m3")
b = Range("m6")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "e:\zmwk\" & a & b & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
   
Application.ScreenUpdating = True

End Sub

追问

好像在我电脑上不可行

追答

先看看你的m3和m6有没有内容，再看看e:\zmwk里有没有以M3和M6的内容命名的PDF文件

追问

确定都齐全了，然后转也不会有警告弹窗，最后转完跳转到VBA界面，但是存文件目录的地方无文件。然后我把其他部件的代码删掉，在此运行就会出现刚才的警告弹窗

追答

试试这个，如果不行就找别人吧，可能和操作系统有关

Sub 另存为PDF()
 
Application.ScreenUpdating = False
 
Dim a, b As String
a = Range("m3")
b = Range("m6")
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\zmwk\" & a & b & ".pdf"
    
Application.ScreenUpdating = True
 
End Sub

Answer 3

复制粘贴。。。。这种小事微软为什么会设置一个快捷功能？

追问

看你这种回答就知道你OFFICE门都没入