返回列表下一主題上一主題發帖

xls另存Csv保留零

jak

中學生 Rank: 2

帖子: 36
主題: 7
精華: 0
積分: 76
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-10-1
最後登錄: 2016-3-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-3-6 12:36 | 顯示全部帖子

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呢
可否請大大們提供好方法呢？謝謝