geöffnete Datei in Excelzelle anzeigen lassen

Computer: Software & Programmierung Office Software
1

Hallo Flexo,
ich verstehe dich nicht, die geöffnete Datei ist das aktive
Workbook, was läuft da falsch:
Option Explicit
’
Sub tt()
Dim Datei
Datei = Application.GetOpenFilename(„Datei (*.xls), *.xls“)
Workbooks.Open Datei
ThisWorkbook.Worksheets(1).Range(„B2“) = ActiveWorkbook.Name
End Sub
Gruß
Reinhard

Hallo Reinhard

Jetzt sehe ich das Problem. Da ich mit ActiveSheet.QueryTables.Add
arbeite… bin ich natürlich in der gleichen Mappe. Darum zeigt es
mir den falschen Namen an.

Was meinst Du dazu ?

Hier mein Code

Dim Importdatei$
Importdatei = Application.GetOpenFilename(„Datei(*.txt), *.txt“)
On Error Resume Next
Application.ScreenUpdating = True
With ActiveSheet.QueryTables.Add(Connection:=„TEXT;“ & Importdatei, _
Destination:=Range(„K2“))
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With

2

Quell Datei der Querytable anzeigen lassen

Jetzt sehe ich das Problem. Da ich mit ActiveSheet.QueryTables.Add
arbeite… bin ich natürlich in der gleichen Mappe. Darum
zeigt es mir den falschen Namen an.
Dim Importdatei$
Importdatei = Application.GetOpenFilename(„Datei(*.txt),
*.txt“)
On Error Resume Next
Application.ScreenUpdating = True
With ActiveSheet.QueryTables.Add(Connection:=„TEXT;“ &
Importdatei, _
Destination:=Range(„K2“))
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With

Hi Flexo,
nützt dir das weiter:

Option Explicit
'
Sub tt()
Dim Importdatei$
Importdatei = Application.GetOpenFilename("Datei(\*.txt),\*.txt")
Application.ScreenUpdating = True
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Importdatei, \_
 Destination:=Range("K2"))
 .TextFileCommaDelimiter = True
 .Refresh BackgroundQuery:=False
End With
MsgBox Mid(Range("K2").QueryTable.Connection, 6)
Range("A1") = Mid(Range("K2").QueryTable.Connection, 6)
MsgBox Importdatei
End Sub
'
Sub AlleAnzeigen()
Dim QT As Integer
With ActiveSheet.QueryTables
 For QT = 1 To .Count
 MsgBox .Item(QT).Connection
 MsgBox .Item(QT).Destination.CurrentRegion.Address
 Next QT
End With
End Sub
'
Sub AlleLoeschen()
Dim QT As QueryTable
For Each QT In ActiveSheet.QueryTables
 QT.Delete
Next QT
End Sub

Gruß
Reinhard