使用Microsoft.Office.Interop.Excel在文本文件中处理Excel错误的日期

Question

So I upload Excel file then save it as Text file but I have problem with date format.

My excel the date format is dd/MM/yyyy but when I save it as Text File its format is MM/dd/yyyy

Imports Microsoft.Office.Interop



Dim FileName As String = "C:\myExcelData.txt"
Dim xl As New Excel.Application
Dim xlBook As Excel.Workbook = xl.Workbooks.Open("C:\myExcel.xlsx")

Dim xlSheet As Excel.Worksheet = xlBook.Sheets("Sheet1")
xl.DisplayAlerts = False
xlSheet.SaveAs(FileName, Excel.XlFileFormat.xlTextWindows)
xlBook.Close()

In myExcel.xlsx Date is 31/01/2014

In myExcelData.txt Date is 1/31/2014

Answer 1

尝试添加最后一个参数Local:=True ：

xlSheet.SaveAs(Filename:=FileName, FileFormat:=Excel.XlFileFormat.xlTextWindows,Local:=True)