Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

dat Datei importieren

dat Datei importieren
TinoB
n'abend excelgemeinde,
mit dem untenstehenden makro lese ich eine dat datei in excel ein. nun möchte ich folgendes verbessern, und zwar ist doch hier 'Windows("liste.xls").Activate' der name der datei definiert, damit der inhalt der dat datei in die entsprechende exceldatei importiert wird. kann man dies auch ändern, zb. das diese allgemein in die derzeit geöffnete eingelesen wird? ich hoffe ich habe mich richtig ausgedrückt. kann mir da bitte jemand helfen?
danke im voraus
Tino

Sub Einlesen()
'öffnen, einlesen und konvertieren
ZuOeffnendeDatei = Application.GetOpenFilename("Text Files (*.dat), *.dat")
If ZuOeffnendeDatei = False Then Exit Sub
'Dateieigenschaften werden festgelegt
Workbooks.OpenText Filename:=ZuOeffnendeDatei, ....  (habe ich abgekürzt)
'Herkunftsdatei wird Variable zugewiesen
ZuOeffnendeDatei = ActiveWorkbook.Name
Workbooks(ZuOeffnendeDatei).Activate
Selection.CurrentRegion.Select
Range("A:AC").Select
Selection.Copy
Workbooks(ZuOeffnendeDatei).Close
Windows("liste.xls").Activate
Tabelle3.Activate
Range("A20").Select
Selection.PasteSpecial
Range("A20").Select
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Lösung für alle die's interessiert
TinoB
so, habe die lösung gefunden. denke dies ist so richtig, zumindest funktioniert's.
...
'Herkunftsdatei wird Variable zugewiesen
ZuOeffnendeDatei = ActiveWorkbook.Name
Workbooks(ZuOeffnendeDatei).Activate
Selection.CurrentRegion.Select
Range("A:AC").Select
Selection.Copy
Workbooks(ZuOeffnendeDatei).Close
AktuelleDatei = ActiveWorkbook.Name
Workbooks(AktuelleDatei).Activate
Tabelle3.Activate
...
AW: Lösung für alle die's interessiert
Uwe
Hallo Tino,
folgender Code reicht aus:

Sub Einlesen()
Dim WS As Worksheet
Set WS = ActiveSheet
ZuOeffnendeDatei = Application.GetOpenFilename("Text Files (*.dat), *.dat")
If ZuOeffnendeDatei = False Then Exit Sub
Workbooks.OpenText Filename:=ZuOeffnendeDatei, ....  (habe ich abgekürzt)
Range("A:AC").Copy WS.Range("A20")
ActiveWorkbook.Close
End Sub

Gruß Uwe
Anzeige
danke (o.T.)
03.05.2004 22:39:47
TinoB
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige