Supportnet / Forum / Tabellenkalkulation

Hallo Leute, ich habe fogendes Problem und hoffe, jemand kennt eine Lösung: Unter Excel97 möchte ich eine ASCII-Datei (Werte durch Semikolon getrennt, feste Spaltenzahl, variable Zeilenzahl) in eine BESTEHENDE Tabelle einer Excel-Datei einfügen. Es muss ein vorhandenes Blatt einer Datei sein, da bestimmte (aber nicht alle) Werte aus der ASCII-Datei per Formel in verschiedene andere Blätter der Ecxel-Datei kopiert werden und anders der Formelbezug nicht funktioniert. Das Öffnen der ASCII-Datei mit Excel und darauffolgende Kopieren der Daten von dieser Excel-Datei in das bestehende Blatt ist mir zu umständlich. Ich zähle auf Euch!! Websurfer

Hallo Websurfer,

bei EXCEL-XP gibt es im Menü "Daten" den Punkt "Externe Daten importieren". Hier ist es möglich Daten auch aus einer ASCII-Datei in ein bestehendes Arbeitsblatt zu importieren.

Ob das auch bei EXCEL 97 so klappt weiß ich allerdings nicht.

Gruß
M.O.

Hallo M.O.

vielen Dank, unter Excel97 gibt es die Funktion leider nicht.

Schade, trotzdem Danke

Gruß
Websurfer

hi websurfer :)

probier doch mal ueber makroaufnahme,was da so bei rauskommt und poste es wenn du es umgebaut haben moechtest :)

gruss nighty

hi websurfer :)

neuer MEMBER :)

viel spass im SN :)

gruss nighty

Hallo Nighty,

tut mir leid, dass ich dich früher mal mit "Oberley" angesprochen habe - kommt davon, wenn man die Augen nicht aufbekommt.

Hier mein aufgezeichnetes Makro - ich verstehe davon nur Bahnhof:

Sub ASCII_Einfügen()
'
' ASCII_Einfügen Makro
' Makro am 13.04.2004 von mir aufgezeichnet
'

'
Workbooks.OpenText FileName:="D:\DP-Listen_aus_Tric\CSV\01002590.ALD", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
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), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array( _
41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1), _
Array(48, 1), Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), Array(53, 1), Array( _
54, 1), Array(55, 1), Array(56, 1), Array(57, 1), Array(58, 1), Array(59, 1), Array(60, 1), _
Array(61, 1), Array(62, 1), Array(63, 1), Array(64, 1), Array(65, 1), Array(66, 1), Array( _
67, 1), Array(68, 1), Array(69, 1), Array(70, 1), Array(71, 1), Array(72, 1), Array(73, 1), _
Array(74, 1), Array(75, 1), Array(76, 1), Array(77, 1), Array(78, 1), Array(79, 1), Array( _
80, 1), Array(81, 1), Array(82, 1), Array(83, 1), Array(84, 1), Array(85, 1), Array(86, 1), _
Array(87, 1), Array(88, 1), Array(89, 1), Array(90, 1), Array(91, 1), Array(92, 1), Array( _
93, 1), Array(94, 1), Array(95, 1), Array(96, 1), Array(97, 1), Array(98, 1), Array(99, 1), _
Array(100, 1), Array(101, 1), Array(102, 1), Array(103, 1), Array(104, 1))
ActiveWindow.ScrollColumn = 93
Range("A1:CZ34").Select
Range("CZ34").Activate
Selection.Copy
Windows("Informationslisten1").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Ich habe jetzt die ASCII-Datei in Excel als separate Datei geöffnet (Spalten immer bis CZ, Zeilen variieren) und dann in das gewünschte bestehende Tabellenblatt kopiert.

Wäre schön, wenn ich nach Start des Makros sowohl die einzulesende ASCII-Datei als auch das gewünschte (bestehende) Blatt in meiner Excel97-Datei frei auswählen könnte.

Vielleicht hat einer von Euch ja viel Ehrgeiz und löst mein Problem.

Gruß

Websurfer

hi websurfer :)

ich probier mich mal,hoffe auf kompatibilitaet des snytax,sieht doch cool aus,mit zweidimensionaler array bildung :)

excel97 :) hat ja bald sammlerwert(antiquitaet :))

gruss nighty

• Aus Mehren Excel- Dateien Daten in eine Excel Datei einlesen
• excel2000 Blätter in bestehende Arbeitsmappe einfügen
• Excel - Symbolleiste speichern - Datei excel*.xlb fehlt
• Teile von Daten einer Excel Datei in eine andere Excel Datei übernehmen
• Excel-Datei in einem Exceltabellenblatt als Symbol einfügen