我正在创建一个导出器来导出我从一些Queries
到csv
文件的数据。
我的问题是我正在生成许多csv文件,我的程序要求我查看每个文件是否要覆盖前一个。
有没有办法重写它们而不用一直问我?
Dim excel As Object
Dim workbook As Object
Dim sheet As Object
excel = CreateObject("Excel.Application")
workbook = excel.Workbooks.Open("C:UsersmeDesktopNECESARY.xlsx")
'I complete all I want to export here
workbook.SaveAs("C:UsersmeDesktop" & file & ".csv")
workbook.Close()
这可以正常工作,并完美地导出我的所有数据,但正如所告诉的,我不需要被询问是否要覆盖文件,有太多的文件要逐个接受它们。
一种解决方案是在保存之前删除先前的文件:
Dim excel As Object
Dim workbook As Object
Dim sheet As Object
excel = CreateObject("Excel.Application")
workbook = excel.Workbooks.Open("C:UsersmeDesktopNECESARY.xlsx")
'I complete all I want to export here
Dim fileName As String = "C:UsersmeDesktop" & file & ".csv"
System.IO.File.Delete(fileName)
workbook.SaveAs(fileName)
workbook.Close()