2

我正在尝试使用该SaveAs方法将 .csv 文档另存为 .xls 文档。但是，当我尝试指定文件夹时，它失败了。

例如，它将保存到这里的某个默认目录（我的文档，这不是我准备好的地方）：

Sub csv()
Workbooks.Open Filename:="directory/tmp.csv"
ActiveWorkbook.SaveAs Filename:="test.xlxs", FileFormat:=51, CreateBackup:=False
End Sub

但这失败了：

Sub csv()
Workbooks.Open Filename:="directory/tmp.csv"
ActiveWorkbook.SaveAs Filename:="otherdirectory/test.xlxs", FileFormat:=51, CreateBackup:=False
End Sub

有没有不同的方法来指定目录？

4

2 回答 2

4

采用FileFormat:=xlCSV

这对我有用。

ActiveWorkbook.SaveAs Filename:="C:\test.csv", FileFormat:=6, CreateBackup:=False

如有疑问，请录制宏:)

FileFormat常数xlCSV是。您可以输入FileFormat:=xlCSV，也可以使用它的实际值，即 6

编辑

我看到你已经编辑了这个问题 :) 让我再看一遍 :)

有没有不同的方法来指定目录？谢谢，

您指定的确切路径是什么？我用过Filename:="C:\Users\Siddharth Rout\Desktop\Book1.xlsx"，效果很好。

于 2012-05-07T20:52:11.760 回答
0

您可以通过写出整个路径来执行 Siddarth 建议并指定目录。或者，如果您希望用户能够在保存时更改文件存储的目录，您可以使用：

ChDrive (文件路径) ChDir (文件路径)

其中文件路径将是与 Application.GetSaveAsFilename 一起使用的起始目录。然后，用户可以键入文件名或根据需要更改目录。

于 2013-05-06T20:07:17.537 回答