Gruppe
Extern
Problem
Wie kann ich mit VBA in XL8 eine Textdatei als externe Daten in ein Arbeitsblatt einbinden?
StandardModule: basMain
Sub TextLink()
Dim txt As OLEObject
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Textdatei wurde nicht gefunden!"
Else
Set txt = ActiveSheet.OLEObjects.Add( _
FileName:=sFile, _
Link:=True, _
DisplayAsIcon:=False)
End If
End Sub