Immer noch die führenden Nullen ...
22.08.2005 18:34:51
F@ker
ich habe immer noch das problem, das ich eine textdatei importiere und
in dieser textdatei sind spalten mit zahlen, wobei die zahlen verschieden viele
führende nullen haben können. nach dem import hat excel die nullen aber abgeschnitten ... ich poste mal den code :
Set TMP = Sheets.Add
TMP.Activate
Set wks = Worksheets("Import")
vFile = Application.GetOpenFilename("Textdateien (*.txt),*.txt")
If vFile = False Then
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Exit Sub
End If
wks.Activate
Workbooks.OpenText Filename:=vFile, Tab:=True, semicolon:=False, _
comma:=False, Space:=False, other:=False
ActiveSheet.UsedRange.Copy wks.Range("A1")
ActiveWorkbook.Close SaveChanges:=False
so sieht das bei mir aus. kann mir da jemand einen tipp geben ?
BIG THx