将文件保存到动态路径,该路径是excell单元格中的值

时间:2016-03-17 08:22:17

标签: excel vba excel-vba powerpoint powerpoint-vba

我在PowerPoint中有一个vba代码,它会自动使用活动的Excel文件名保存文件。

 PowerPointApp.ActivePresentation.SaveAs "Z:\05_PROJECT\Tanverdi\" & Replace(ThisWorkbook.Name, "xlsm", "ppt"), 1

不同的人会使用这个宏,他们都有不同的文件夹,他们保存它,所以我希望文件夹的路径也是动态的。最好的是从我的活动excell单元格获取路径名称,他们可以在Excel单元格中写入路径名称,我可以将此单元格值用作路径。

但我该怎么做?

1 个答案:

答案 0 :(得分:0)

假设路径在Sheet1 / Cell A1中,用以下代码替换硬编码路径:

@Override
public void onActivityCreated(Bundle savedInstanceState) {
    super.onActivityCreated(savedInstanceState);
    mFile = new File("/storage/emulated/0/DCIM/Camera", "pic.jpg");
    int counter=1;
    while (mFile.exists()) {
        mFile = new File("/storage/emulated/0/DCIM/Camera", "pic" + String.format("%02d", counter) + ".jpg");
        counter++;
    }

}