---

Hej NG
Jeg prøver at importere en text-fil i Excel ved hjælp af noget VBA,
indeholdt i filen er nogle rækker med 25 cifre, disse "krølles" sammen og 2
foranstillede nuller skæres væk.
Er der nogenm der har en idé om hvordan jeg får det hele ind som text, så
Excel ikke begynder at "oversætte" mine data?

Venlig hilsen
Bjørn Göttler

---

Begge din "problemer" kan så vidt jeg ved klares på følgende måde.
Formater cellen til TEKST.
Før tallet "lægges" i cellen forsynes det med en apostrof (tasten med
stjernen th. for entertasten).
Vær opmærksom på, at apostrof kan give problemer hvis du skal arbejde
viderer i andre programmer.

Her er et lille eks.:

Option Explicit

Const format As Long = 1
Sub Macro1()
Dim tal As String
tal = "0001"

With ActiveCell
.Offset(0, 1).Value = "Textformat"
.NumberFormat = "@"
.Value = tal

.Offset(1, 1).Value = "Apostrof"
.Offset(1, 0).Value = "'" & tal

.Offset(2, 1).Value = "Ingen ting"
.Offset(2, 0).Value = tal
End With
End Sub


--
Med venlig hilsen
Jørgen Bondesen


"Bjørn G" <kool@stadig_tata_stiv.dk> wrote in message
news:429e03ec$0$73267$edfadb0f@dread14.news.tele.dk...
> Hej NG
> Jeg prøver at importere en text-fil i Excel ved hjælp af noget VBA,
> indeholdt i filen er nogle rækker med 25 cifre, disse "krølles" sammen og
> 2 foranstillede nuller skæres væk.
> Er der nogenm der har en idé om hvordan jeg får det hele ind som text, så
> Excel ikke begynder at "oversætte" mine data?
>
> Venlig hilsen
> Bjørn Göttler
>