Excel VBA 不会粘贴前导零

Question

以下代码在列中包含前导零时删除它们。我认为 PasteSpecial 会解决这个问题。有没有办法确保当此子填充 CSV 时保留任何前导零？

Sub PasteStufff()

Dim myRange As Range
Dim outFile As String

outFile = "mypath\path\file.csv"

Set myRange = Sheets("base").Range("A1:G1")
Set myRange = Range(myRange , myRange .End(xlDown))
Sheets("base").Select
myRange.Select
Selection.Copy
    Workbooks.Add
    ActiveSheet.Cells(1, 1).PasteSpecial xlPasteValues
    ActiveWorkbook.SaveAs Filename:= _
    outFile _
    , FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True

End Sub

Answer 1

不知道是哪个版本引入的，但是在Excel 2010中，可以使用

Paste:=xlPasteFormulasAndNumberFormats

而不是

Paste := xlPasteValues

基于非常短的测试，这似乎有效(假设您的原始输入首先是数字)。