Hallo zusammen,
da anscheinend keiner eine richtige Lösung für das Problem hat, möchte ich mal kurz erläutern, wie ich das ganze jetzt gelöst hab. Zwar ist es etwas umständlich, aber einfach und sicher.
Beim Öffnen der datenbank habe ich einen Befehl eingegeben, der auf der Festplatte (Laufwerk c:) einen Ordner erstellt und in diesen Ordner die entsprechende Excel- Datei hinein kopiert:
Private Sub Form_Open(Cancel As Integer)
Dim vdir, Pfad
Pfad = „C:\test“
vdir = Dir(Pfad, vbDirectory)
If vdir = „“ Then MkDir Pfad
FileCopy „P:\Z96_SAP\02_Datenexport\test.xls“, Pfad & „\test.xls“
End Sub
In der Datenbank ist nun die Exceldatei der Festplatte verknüpft und nicht die, die auf einem offiziellen Laufwerk liegt. Der Nutzer kann nun problemlos damit arbeiten.
Beim Schließen der Datenbank wird der Ordner wieder gelöscht, damit die Festplatte mit der großen Datei nicht belastet wird und bei erneutem Öffnen die Daten immer aktuell sind.
Private Sub Form_Close()
Dim Pfad As String
Dim oFSO As Object
Pfad = „C:\Materialstamm“
Set oFSO = CreateObject(„Scripting.FileSystemObject“)
If oFSO.FolderExists(Pfad) Then oFSO.DeleteFolder (Pfad)
Meiner Meinung nach funktioniert das richtig gut.
Trotzdem danke für eure hilfreichen Tipps und die ich bestimmt nicht auf die Lösung gekommen wäre.
Viele Grüße von Beate