Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何在将docx转换为pdf后查找文件路径_Excel_Vba_Pdf_Ms Word_Filenames - Fatal编程技术网

Excel 如何在将docx转换为pdf后查找文件路径

Excel 如何在将docx转换为pdf后查找文件路径,excel,vba,pdf,ms-word,filenames,Excel,Vba,Pdf,Ms Word,Filenames,从docx转换后,我需要获取PDF的文件位置 我得到下面的代码转换,但它没有提供任何关于PDF位置的信息 mydoc.ExportAsFixedFormat _ Outputfilename:=Replace(mydoc.FullName, ".docx", ".pdf"), _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdEx

从docx转换后,我需要获取PDF的文件位置

我得到下面的代码转换,但它没有提供任何关于PDF位置的信息

mydoc.ExportAsFixedFormat _
Outputfilename:=Replace(mydoc.FullName, ".docx", ".pdf"), _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, 
OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, Item:=wdExportDocumentContent
我希望在它转换后,我可以将PDF位置记录到一个单元格中


谢谢

myDoc.FullName
包含文件的路径,因此当您将其设置为导出的输出文件名并将扩展名从
.docx
替换为
.pdf
时,您已经将pdf的路径设置为与原始文档相同的文件夹

使用此处的值将单元格的文件路径设置为PDF

thiswook.Worksheets(“sheetname”).Range(“A1”).Value=Replace(myDoc.FullName、.docx、.pdf”)


这会将工作表“sheetname”上的单元格A1设置为pdf的文件路径。

您已经有了
mydoc.FullName
。您可以很容易地从中获取文件路径。。。请参见@Makah answer
左侧(mydoc.FullName,InStrRev(mydoc.FullName,“\”)