Средняя функция отключается от ведущего 0

Question

Я использую Mid() для извлечения информации из дампа Oracle, и когда я пытаюсь извлечь число с ведущим 0, excel автоматически отключает его. Есть ли способ сохранить 0?

Пример в камере 6,1 = "0030645"

Sub snip4() 

Dim text As String 

text = Cells(6, 1).Value 
Cells(7, 4) = Mid(text, 4, 4) 
End Sub 

Выход на 7,4 = "645"

Желаемый выход = ""

клеток сбрасывается, как a Общий формат

Answer 1

Вы можете изменить формат ячейки на "Текст":

Sub snip4() 
    Dim text As String 

    text = Cells(6, 1).Value 
    With Cells(7, 4) 
     .NumberFormat = "@" 
     .Value = Mid(text, 4, 4) 
    End With 
End Sub 

или другой вариант - использовать префикс характер:

Sub snip4() 
    Dim text As String 

    text = Cells(6, 1).Value 
    Cells(7, 4) = "'" & Mid(text, 4, 4) 
End Sub