从Excel保存多个PDF文件

Question

我正在尝试将1个报告保存到网络云端硬盘上的两个不同位置。程序运行顺利，直到我添加了第二个保存位置。我正在复制下面的代码。我正在寻找另一种方法来完成此任务，在计算机上更有效。过去要花几秒钟才能花费近一分钟才能提交一份报告。

'wkA.ExportAsFixedFormat类型：=“ xlTypePDF，发件人：= 1，收件人：= 2，文件名：= _” G：Path \ to \ folder \“＆wkA.ActiveSheet.Range（” A4“）。Value '

'wkA.ExportAsFixedFormat类型：=“ xlTypePDF，源于：= 1，收件人：= 1，文件名：= _” G：Path \ to \ other \ folder \“＆wkA.ActiveSheet.Range（” A4“）值'

I = I +1
 Loop