Plan1.Columns(1).NumberFormat = "0000"

JNEXCEL,

Bom dia!

Pedimos, por gentileza, ao postar código VBA aqui no fórum, utilizar a ferramenta CODE que fica localizada logo acima da caixa de mensagens (quinto botão da esquerda para a direita).

sim, peço desculpas pela falta de atenção ao postar o código.

com relação ao trocar o @ por 0000, eu não posso fazer isso, pois automaticamente o excel acrescenta 0000 para todas as informações da coluna A.

se o código original for 01, eu preciso que ele fique 01.

se eu colocar 0000, o código original que era 01, vai ficar 00001.

Será necessário importar linha a linha do XML.
A cada célula que você for preencher na planilha no momento da importação, terá de concatenar com um apóstrofo:

Plan1.Range("A" & linha).Value = "'" & valorDoXML

O código a seguir preenche uma listbox com dados de um XML, o princípio seria o mesmo para preencher uma planilha.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim reader As XmlTextReader = New XmlTextReader(txtCaminhoXML.Text)
        Dim elementos As ArrayList = New ArrayList

        Do While (reader.Read())
            Select Case reader.NodeType
                Case XmlNodeType.Element
                    If reader.HasAttributes Then 'Se existirem atributos
                        While reader.MoveToNextAttribute()
                            'Pega o valor do atributo.
                            elementos.Add(reader.Value)
                        End While
                    End If
                Case XmlNodeType.Text
                    'Incluir o texto do elemento no ArrayList
                    elementos.Add(reader.Value)
            End Select
        Loop

        Dim num As String
        For Each num In elementos
            ListBox1.Items.Add(num)
        Next
    End Sub

Ola, tenho feito para minhas planilhas neste metodo, insira em seu codigo para verificar, boa sorte

Sheets("Plan1").Range("A2").NumberFormat = "#0"

JNEXCEL,

Boa tarde!

Você pode usar dessa forma.