[已解决]大神帮忙改一下代码，改一下存储路径

透明世界1987

大神帮忙改一下下面代码，目前存储路径乱跳，有时候在文档文件夹有时候在桌面，有时候在其他文件夹，怎么设置成固定文件夹
Sub test()
    Application.DisplayAlerts = False
    print_1 = ActiveSheet.PageSetup.PrintArea
    r1 = Range(ActiveSheet.PageSetup.PrintArea).Rows.Count / ActiveSheet.PageSetup.Pages.Count
    r = ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row
    C = Application.WorksheetFunction.RoundUp(r / r1, 0)
    ActiveSheet.PageSetup.PrintArea = "$A$1" & ":" & "$M$" & C * 50
    ActiveSheet.PrintOut PrintToFile:=True, PrToFileName:=Sheets("采购单").Range("J2").Value & Sheets("采购单").Range("b2").Value & "采购订单.PDF"
    ActiveSheet.PageSetup.PrintArea = print_1
    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:=Sheets("采购单").Range("J2").Value & Sheets("采购单").Range("b2").Value & "采购订单.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2022-7-6 10:17

增加一句：
PT="D:\"     '即路径
将
ActiveSheet.PrintOut PrintToFile:=True, PrToFileName:=Sheets("采购单").Range("J2").Value.......
改为
ActiveSheet.PrintOut PrintToFile:=True, PrToFileName:=PT & Sheets("采购单").Range("J2").Value.......
将
ActiveWorkbook.SaveAs Filename:=Sheets("采购单").Range("J2").Value .....
改为
ActiveWorkbook.SaveAs Filename:=PT & Sheets("采购单").Range("J2").Value

跳转到最佳答案楼层

zjdh

你哪：
Sheets("采购单").Range("J2").Value
是啥内容？它决定了存放路径！

透明世界1987

zjdh 发表于 2022-7-2 15:12
你哪：
Sheets("采购单").Range("J2").Value
是啥内容？它决定了存放路径！

Range("J2").Value & Sheets("采购单").Range("b2").Value & "采购订单.PDF"
这个不是存储路径啊 这个是点击打印后 出来两份文件 一份PDF的一个表格形式的，自动命名文件名称

zjdh

这个我知道，
ActiveSheet.PrintOut PrintToFile.....是将当前工作表打印成PDF文件
ActiveWorkbook.SaveAs Filename....是将当前工作簿另存为新文件
你最好将附件上传（消除敏感内容），以便修改。

透明世界1987

zjdh 发表于 2022-7-2 16:08
这个我知道，
ActiveSheet.PrintOut PrintToFile.....是将当前工作表打印成PDF文件
ActiveWorkbook.SaveA ...

采购单.zip (107.77 KB, 下载次数: 1)

2022-7-2 17:41 上传

点击文件名下载附件

zjdh

看了附件，你只给文件取了个名称，根本就没指定存放路径，所以会乱存放！
不知你准备存放到哪里？请提供路径。

透明世界1987

zjdh 发表于 2022-7-3 20:15
看了附件，你只给文件取了个名称，根本就没指定存放路径，所以会乱存放！
不知你准备存放到哪里？请提供路 ...

大神帮忙固定连接就可以 ，桌面或者D盘建个文件夹都可以的

zjdh

增加一句：
PT="D:\"     '即路径
将
ActiveSheet.PrintOut PrintToFile:=True, PrToFileName:=Sheets("采购单").Range("J2").Value.......
改为
ActiveSheet.PrintOut PrintToFile:=True, PrToFileName:=PT & Sheets("采购单").Range("J2").Value.......
将
ActiveWorkbook.SaveAs Filename:=Sheets("采购单").Range("J2").Value .....
改为
ActiveWorkbook.SaveAs Filename:=PT & Sheets("采购单").Range("J2").Value