将 .xlsm 转换为 .csv 并保存在当前目录中

问题描述

我每天更新一个 .xlsm 文件，我需要将我的文件转换为 .csv 格式，为此我编写了一个非常简单的宏。不过，我想将 .csv 文件保存在我保存 .xlsm 文件的同一目录中，并且由于该文件是共享的，因此我需要在命令提示符中使用“cd”之类的内容。如何相应地编辑下面代码的最后一行？

Sub csvconvert()
Dim wb as Workbook
Dim ws as Worksheet

Set wb=ThisWorkbook
Set ws=wb.Worksheets("mydata")

wb.SaveAs Filename:="myfile"&".csv",FileFormat:=xlCSV,CreateBackup:=False

End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）