☰

Excel hat den vorhandenen Datenimport unterbrochen. Wie kann ich zum vorherigen Zustand zurückkehren?

tag-icon • tag-icon microsoft-excel
Excel hat den vorhandenen Datenimport unterbrochen. Wie kann ich zum vorherigen Zustand zurückkehren?

Ich hatte jahrelang ein halbautomatisches System zum Generieren von Stücklisten (BOMs) für elektrische Designs. Über ein Skript in meinem CAD-Programm, das einen externen Code ausführt, den ich vor langer Zeit geschrieben habe, erhalte ich eine Datei mit tabulatorgetrennten Werten (TSV). Bei diesem Vorgang wird auch eine XLS-Vorlagendatei kopiert. Diese Datei definiert die Formatierung für bestimmte Spalten, die die TSV-Datei nicht enthalten kann.

Ich würde die XLS-Vorlagendatei in Excel öffnen, dann etwas wie DATEN, AUS TEXTDATEI ausführen, den Dateinamen eingeben und fünfmal die Eingabetaste drücken, um eine Reihe von Standardeinstellungen zu übernehmen. Die Daten aus der TSV-Datei würden in der Tabelle mit der Formatierung aus der Vorlagendatei angezeigt. Einige Zellen enthielten Gleichungen statt direkter Daten. Dies würde alles wie vorgesehen funktionieren.

Dieses Verfahren hat in den letzten 15 Jahren gut funktioniert, bis jetzt. Anscheinend hat Microsoft Excel auf meinem Win10-Laptop in den letzten Wochen aktualisiert, und jetzt ist alles kaputt. Was Sie vonDATEN > AUS TEXT > Dateinameist völlig anders. Alle Steuerelemente von vorher fehlen jetzt, und jetzt rät es falsch. Ich kann keine offensichtliche Möglichkeit finden, einen „Legacy“-Modus zu aktivieren, noch sehe ich eine Möglichkeit, ihm mehr Details zu geben. Es macht einfach das, was es macht, was anders ist als vorher, und es unterbricht meinen Prozess.

Es scheint, dass es zwei Inkompatibilitäten gibt, die alles wirklich durcheinander bringen:

  1. Wenn die erste Zelle in der ersten Zeile eine Zahl enthält, wird jetzt automatisch eine eigene Titelzeile hinzugefügt. Ich habe Zelle A1 als Gesamtzahl der zu bauenden Bretter verwendet, sodass aus dieser Zahl verschiedene Mengen berechnet wurden. Die restlichen Zellen in der ersten Zeile sind meine Spaltentitel. Ich bin damit einverstanden, dass die erste Spalte oben eine Zahl hat. Das sollte meine Sache sein.

    Wenn es eine eigene Titelzeile hinzufügt, sind alle meine Gleichungen vertikal um eins verschoben. Was für ein Durcheinander!

  2. Der Gleichungsimport funktioniert nicht. Wenn eine Zelle ein "=" als erstes Zeichen enthält, wird vor dem "=" ein Leerzeichen eingefügt und der Rest wird als Ergebnis als Zeichenfolge behandelt. Wenn ich das Leerzeichen in der Tabelle manuell herausnehme, erhalte ich die gewünschte Gleichung. Es gibt Hunderte solcher Zellen, daher ist es keine Option, sie alle manuell zu korrigieren.

Wie gelange ich zum vorherigen Vorgang zurück? Ich bin kein Excel-Experte und will auch keiner sein. Ich möchte mit der Generierung meiner Stücklisten fortfahren.

Als Experiment habe ich einige Zeilen der TSV-Datei manuell in eine CSV-Datei konvertiert. Beim Importieren treten dieselben Probleme auf. Wenn Sie einfach den CSV-Dateinamen eingeben, wird Excel mit den korrekt geladenen Daten angezeigt, aber natürlich kennt es meine Spaltenformatierung nicht.

Es sollte nicht schwer sein, das Programm, das die TSV-Datei generiert, irgendwo unter einer dicken Staubschicht zu finden und bei Bedarf Änderungen vorzunehmen. Wenn ich jetzt beispielsweise unbedingt eine CSV-Datei brauche, kann ich damit leben. Ich glaube, ich habe vor langer Zeit eine TSV-Datei erstellt, um Sonderzeichen in Textzeichenfolgen in einigen Zellen zu umgehen. Auch das hat jahrelang funktioniert, bis vor ein paar Wochen.

Antwort1

Damit können Sie eine Datei zum Importieren auswählen und öffnen. Es öffnet sich eine neue Arbeitsmappe und fügt nur die Werte ein, die ich leicht geändert habe vonHier.

Sub Makro1()

Dim fullpath As String

' Makro1 Makro
' Makro indspillet 13-07-2013 af Eric Bentzen
'

'
'Display a Dialog Box that allows to select a single file.
'The path for the file picked will be stored in fullpath variable
  With Application.FileDialog(msoFileDialogFilePicker)
        'Makes sure the user can select only one file
        .AllowMultiSelect = False
        'Filter to just the following types of files to narrow down selection options
        .Filters.Add "Text Files", "*.TSV; *.TXT; *.CSV , 1"
        'Show the dialog box
        .Show
        
        'Store in fullpath variable
        fullpath = .SelectedItems.Item(1)
        
    End With
    
On Error GoTo EndSub

Workbooks.OpenText Filename:=fullpath, _
   Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _
   TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
   Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
   Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
   Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
   Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), _
   Array(11, 1), Array(12, 1), Array(13, 1)), _
   TrailingMinusNumbers:=True
   
EndSub:

End Sub

Es sieht so aus, als ob es nur 13 Zeilen schafft, aber es könnte entsprechend modifiziert werden.

verwandte Informationen