Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

textadtei

textadtei
JensZ
Hollo
wie kann man den code ändern?
Ich habe ein Tabellenblatt "Datei" und eins "Import"
auf dem Tab-Blatt "Datei" ist ein Button "TextDateiOeffnen"
wenn ich ihn drücke soll die textadtei in "Import" eingefügt werden.
Bitte um hilfe
gruß Jens

Sub TextDateiOeffnen()
Dim wks As Worksheet
Dim vfile As Variant
Application.ScreenUpdating = False
Set wks = ActiveSheet
vfile = Application.GetOpenFilename("Textdateien (*.csv), *.csv")
If vfile = False Then Exit Sub
ActiveSheet.Cells.Delete
Workbooks.OpenText FileName:=vfile, Tab:=False, semicolon:=False, _
comma:=True, Space:=False, other:=False
ActiveSheet.UsedRange.Copy wks.Range("A1")
ActiveWorkbook.Close savechanges:=False
Range("A1").Select
Application.ScreenUpdating = True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: textadtei
K.Rola
Hallo,

Sub TextDateiOeffnen()
Dim wks As Worksheet
Dim vfile As Variant
Set wks = Sheets("Import")
vfile = Application.GetOpenFilename("Textdateien (*.csv), *.csv")
If vfile = False Then Exit Sub
wks.Cells.Delete
Workbooks.OpenText FileName:=vfile, Tab:=False, semicolon:=False, _
comma:=True, Space:=False, other:=False
ActiveSheet.UsedRange.Copy wks.Range("A1")
ActiveWorkbook.Close savechanges:=False
End Sub

Gruß K.Rola
AW: textadtei
20.04.2004 21:04:33
jede029
Danke hat mir sehr geholfen
gruß jens

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige