如果CSV文件不存在，如何创建？

Question

我正在尝试使用excel来检查是否存在CSV文件，如果它不存在，请创建它。我已经尝试过这几种方式，但我似乎无法做任何事情。到目前为止，这是我的代码。

Html.ValidationSummary

一旦我到达这一行：

Workbooks.Open文件名：=“C：\ Users \”＆amp; sUserName＆amp; “\桌面\ DataDump \ DataDump.csv”

Excel关闭!!

我想要做的就是测试CSV文件是否存在并且它不存在，在用户的桌面上创建它，基于每个用户的sUserName，来自这里。

ModelState

有人可以帮我解决这个问题吗？ 感谢!!!

Answer 1

您需要先将工作表从工作簿中复制出来。

更改这些行：

ws.SaveAs "C:\Users\" & sUserName & "\Desktop\DataDump\DataDump.csv", xlCSV
Workbooks.Open Filename:="C:\Users\" & sUserName & "\Desktop\DataDump\DataDump.csv"

以下几行

   ws.Copy 
   ActiveWorkbook.SaveAs "C:\Users\" & sUserName & "\Desktop\DataDump\DataDump.csv", xlCSV

将worksheet保存为CSV时，会将整个活动工作簿保存到文件中并保持打开状态。因此，在您的代码中，您正在尝试打开已打开的文件。

上面的代码会将工作表拉入新工作簿并将其另存为CSV（只有一张纸，这是CSV所必需的）。