- 帖子
- 36
- 主題
- 7
- 精華
- 0
- 積分
- 76
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-10-1
- 最後登錄
- 2016-3-21
|
xls另存Csv保留零
我需要將大量excel sheet存成csv檔
------------------------------------------------
以下是目前用的方式
Public Sub SaveWorksheetsAsCsv()
Dim WS As Excel.Worksheet
Dim SaveToDirectory As String
SaveToDirectory = "d:\"
For Each WS In ThisWorkbook.Worksheets
WS.SaveAs SaveToDirectory & WS.Name, xlCSV
Next
End Sub
------------------------------------------------
裡面很多0開頭數字，轉存後無法顯示(0015，0050.....→15，50.....)
改成下列兩種模式也無法成功
(1) ="0050"
(2) 0050(儲存格格式設為文字)
能不能讓這(1)、(2)種型態的數字轉到csv都可以顯示出0呢
可否請大大們提供好方法呢？謝謝 |
|
發表於 2015-3-6 12:36
| 
