VBA-将工作表导出为CSV，但不舍入CSV值

Question

我有一个脚本，可将excel工作簿中的sheet3导出为CSV。

不幸的是，CSV现在正在四舍五入我的数值。我已经嵌入了问题的图像以及正在使用的VBA脚本。有办法阻止这种情况发生吗？

problem with data changing when saving to csv

将工作表3保存为CSV的VBA代码。

Public Sub ExportCSV()

Dim wbkExport As Workbook
Dim shtToExport As Worksheet

Set shtToExport = ThisWorkbook.Worksheets("Sheet3")     'Sheet to export as CSV
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False                       'Possibly overwrite without asking
wbkExport.SaveAs Filename:="\\NJTRDNSV01\X242095$\Desktop\pjw\Output", FileFormat:=xlCSV
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False

End Sub