Hallo,

ich bin gerade dabei ein Makro zu schreiben, mit dem man Daten von einer Messsoftware in Excel importieren kann. Ich benutze Excel 2010, 32 bit.

Es handelt sich dabei um mpt Dateien, was eine Art tab-separierte Textdatei ist, wenn ich es richtig verstanden habe. Ich kann diese Dateien jedenfalls problemlos mit Excel öffnen und die Daten erscheinen auch getrennt in Reihen und Spalten im richtigen Format.

Nur wenn ich mein Skript zum Importieren benutze, zerhäckselt es mir das Datenformat :(

Zb wird aus

durch mein skript:

Irgendwie ist alles um 7 Größenordnungen zu hoch :/

Anscheinend gibt es ein Problem mit der wissenschaftl Notation der Daten, denn Zahlen wie 1 oder 3 (also ohne Exponent) werden richtig übernommen.

Der entsprechende Code sieht so aus:

  FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="MPT Files (*.mpt), *.mpt", _
      MultiSelect:=True, Title:="Data Files to Open")

    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "No Files were selected"
        GoTo ExitHandler
    End If

    x = 1
    Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))
    wkbTemp.Sheets(1).Copy
    Set wkbAll = ActiveWorkbook
    wkbTemp.Close (False)
       x = x + 1

    While x <= UBound(FilesToOpen)
        Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))
        With wkbAll
            wkbTemp.Sheets(1).Move after:=.Sheets(.Sheets.Count)
                       End With
                x = x + 1
    Wend

Hat jemand eine Ahnung wie ich das Problem lösen könnte?  Ich will ungern alles umrechnen, da es sich schon um recht viele Daten handelt.

Vielen Dank,

Clemens