Supportnet / Forum / Tabellenkalkulation
Import ins selbe Workbook
Frage
Guten Morgen,
ich sitze seit gestern an einem Problem. Ich hab eine txt Datei die in in ein Workbook importieren möchte. Das öffnen funktioniert wunderbar und auch alles andere nur möchte ich, das er die Daten in das workbook import.xls importiert und zwar nur in einem Worksheet (Importiert).
Gestartet wird das alles durch ein Klick im worksheet Deckblatt. Dann öffne ich die Datei, paar sekunden vergehen und dann erstellt er mir eine neue Exceldatei.
Ich könnte zwar aus der neuen datei die Daten kopieren und einfügen aber das is mir zu umständlich denn ich muss mit dem worksheet Import weitermachen.
Hier mal mein Code
[code]
Option Explicit
Private Sub importbutton_Click()
Import
copypaste
End Sub
Sub Import()
Dim i As Integer
Dim wksBlatt As Worksheet
Dim fd As FileDialog
Dim vrtSelectedItem As Variant
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.Filters.Clear
.Filters.Add "Ascii;Text", "*.asc;*.txt", 1
.Title = "Wählen Sie bitte die gewünschte Datei aus!"
.ButtonName = "Datei Öffnen"
.Execute
If .Show = 1 Then
For Each vrtSelectedItem In .SelectedItems
Next vrtSelectedItem
´Wenn der User auf Cancel klickt....
Else
End If
End With
Set fd = Nothing
End Sub[/code]
Hoffe ihr habt paar Tipps.
Gruß