Excel VBA не будет вставлять ведущие нули

Question

Следующий код отбрасывает ведущие нули, когда они включены в столбец. Я думал, что PasteSpecial позаботится об этом. Есть ли способ гарантировать, что любые ведущие нули сохраняются, когда этот sub заполняет 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 

и на основе очень короткого тестирования, этот кажется, работает (при условии, что ваши исходные входы - это номера в первую очередь).

Answer 2

Excel очень неприятный, когда дело доходит до ведущих нулей. Единственный способ, который я нашел, чтобы выполнить эту работу, - это все ячейки, которые будут получать вставленные данные, предварительно отформатированные как «Текст». Не «Генерал» или что-то еще, просто «Текст». Вы должны отформатировать ячейки как «Текст» перед вставкой данных. Если вы попытаетесь сделать это после того, как данные будут вставлены, ведущие нули уже будут потеряны.

Если вы это сделаете, вам даже не понадобится PasteSpecial.

PasteSpecial не будет иметь эффекта, если ячейки назначения не будут отформатированы правильно. Excel всегда будет пытаться интерпретировать все, что выглядит как число, как число.

Это абсолютно не идеально, потому что это может потребовать, чтобы вы подсчитали все свои данные, а затем отформатировали только столько ячеек на листе, но это единственный метод, который я нашел, который является надежным.