Hi Heiko,
etwa so, BTW
schau Dir auch mal unter F1 das 'GetObject'
und 'CreateObject' an.
lg Nancy
--
Sub so()
Dim xlFile As Object
Set xlFile = GetObject("c:\bla\bla.xls") 'muss offen sein
xlFile.Application.Visible = True
With xlFile.sheets(1)
.Cells(1, 1).Value = "Hallo"
.Cells(1, 2).Value = Now
End With
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP