Office: (Office 2007) Importfehler bei Excel-Import

ebs17 · 30. März 2016

wenn jemand die Codes wüsste
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Insbesondere im Excelforum kennt man sich bestens mit Excel und Excelcodes aus:
Tabellenblatt als csv exportieren

Die Hinweise haben darauf hingedeutet, dass der Umweg über eine Konvertierung in CSV-Format sinnvoll ist.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun, bei sauberen Listen ist der Umweg über eine Textdatei nicht zwingend notwendig.

Übrigens: Eine Datenbereinigung und -überarbeitung könnte man auch schon per VBA in der Exceltabelle laufen lassen. Ob und wann eine solche Maßnahme sinnvoll ist, kann aber nur der beurteilen, der das Große und Ganze, also den kompletten Ablauf kennt.

bumerang · 30. März 2016

(1)Alle Schritte sollen automatisiert sein (kein manuelles Importieren)
(2) Ich möchte die Excel-Dateien dabei selbst nicht verändern. Ich erstelle die Excel-Dateien nicht selber, sondern muss sie verarbeiten ohne sie dabei zu verändern.
(3) Eine Spalte besitzt Zahlenfolgen und erst höchstens ab dem 11.Eintrag Zahlen-Buchstaben-Gemische. Das macht den Import schwierig.
(4) Soweit ich weiß gibt es keine Importspezifizierung für Excel-Sheets (also kein csv).

ebs17 · 30. März 2016

Ich erstelle die Excel-Dateien nicht selber
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Man könnte sich dafür interessieren, wer das tut, und ggf. darauf Einfluss nehmen. Die Programmiererei ist regelmäßig spannend, aber am einfachsten und schnellsten ist es, wenn man dem Standard entsprechende Tabellen per Standardimport übernehmen kann.

Ich möchte die Excel-Dateien dabei selbst nicht verändern.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine Kopie einer solchen Datei dürftest Du aber ändern?

Zahlen-Buchstaben-Gemische
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die sollen so bleiben?

bumerang · 30. März 2016

Eine Kopie dürfte ich ändern, müsste sie aber wieder löschen (also nur als temporäre Datei nutzen).
Die Zahlen-Buchstaben-Gemische sollen so bleiben.

Ich halte den csv-Import für das sinnvollste, oder?

Nouba · 30. März 2016

Hallo,

hier eine kleine Demo, wie Du das mit dem Transponieren bewerkstelligen kannst. Ich habe extra die 564M stehen lassen. Bei Verknüpfung der Textdatei in der DB kannst Du in einer Abfrage selbst den Buchstaben herausfischen. Code:

Option Explicit

'// Annahme, dass die Datenbank im selben Ordner wie die XLXS-Datei liegt
Public Sub Demo()
Const BASE_FILENAME$ = "\Data1"
Const XLXS_FILENAME$ = BASE_FILENAME & ".xlsx"
Const TEXT_FILENAME$ = BASE_FILENAME & ".txt"
Const SHEET_NAME$ = "RV_Trades"
Const SEPARATOR$ = ";"

Dim a, f&, c&, r&

'// Zweidimensionales Array aus der Excel-Datei XLXS_FILENAME im
'// Arbeitsblatt SHEET_NAME bereitstellen
a = GetTransposedArray(CurrentProject.Path & XLXS_FILENAME, SHEET_NAME)

On Error Resume Next
'// Existiert der Export schon?
If (GetAttr(CurrentProject.Path & FILE & TXTSUFFIX) _
And (vbDirectory Or vbVolume)) = 0 Then
'// Lösche alte Datei
Kill CurrentProject.Path & FILE & TXTSUFFIX
End If
On Error GoTo 0

'// Freies File Handle holen
f = FreeFile()
'// Datei zum Schreiben öffnen
Open CurrentProject.Path & TEXT_FILENAME For Output As f
'// Für alle Zeilen im Array
For r = LBound(a) To UBound(a)
'// Für alle Spalten im Array
For c = LBound(a, 2) To UBound(a, 2)
'// Spalten prüfen
Select Case c
Case 1
'// Erste Spalte als Datum ausgeben
Print #f, Trim$(CDate(a(r, c))); SEPARATOR;
'// Letzte Spalte mit CRLF beenden
Case UBound(a, 2)
Print #f, Trim$(a(r, c))
Case Else
'// Alle anderen Spalten
Print #f, Trim$(a(r, c)); SEPARATOR;
End Select
Next
Next
'// File Handle schließen
Close f
End Sub

Public Function GetTransposedArray(aFileName$, aSheetName$)
Dim xapp As Object

With GetObject(aFileName) '// WorkBook-Instanz
Set xapp = .Application '// Excel-Instanz
'// Daten in Array transponieren
GetTransposedArray = xapp.Transpose(.WorkSheets(aSheetName) _
.Cells(1).CurrentRegion.Value2)
.Close '// Workbook-Instanz schließen
End With
xapp.Quit '// Excel-Instanz schließen
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2007) Importfehler bei Excel-Import

Importfehler bei Excel-Import

Importfehler bei Excel-Import

Importfehler bei Excel-Import

Importfehler bei Excel-Import - Similar Threads - Importfehler Excel Import

Zwei Excel Tabellen mit VBA verbinden

Excel 2019 Deutsche Mark Währungssymbol

Dateiname der aktuellen Datei als Variable

Eine Datei mit der Endung .geojson in Excel umwandeln

Excel Start

Excel-Tabelle mit Funktionen in Word einfügen

Importfehler, Fehler bei Typumwandlung