Hi,
prüfe zuerst mit dem FileSystemObject,
a) ob Datei vorhanden, wenn ja,
b) Datei öffnen, Daten auslesen, Daten schreiben
c) Datei wieder schliessen
zu a) habe ich dir folgendes.
Option Explicit
Sub BB90()
Dim fso As Object
Dim sFullFileName As String
'
Set fso = CreateObject("Scripting.FileSystemObject")
sFullFileName = "C:\Test\Test.xlsx" '<---- anpassen
'
If fso.FileExists(sFullFileName) Then
'Excel-Datei öffnen und Daten importieren
End If
'
set fso = nothing
End Sub
zu b) und c) kann Ich Dir helfen, wenn genau bekannt ist, welche Daten wo zu finden sind in der zu öffnenden Datei.
|