Datei öffnen ohne Sicherheitsabfrage
09.09.2005 10:59:44
Rudi
ich öffne eine Datei aus einem bestimmten Verzeichnis und speichere sie anschließend im gleichen Verzeichnis mit dem Namen TMP.XLS.
Mein Problem besteht darin, dass ich beim öffnen der Datei immer den
Hinweis bekomme, ob die Verknüpfungen aktualisiert werden sollen.
Diese Abfrage soll allerdings nicht erscheinen.
Kann mir jemand den Code so modifiezieren dass die Abfrage nicht mehr kommt?
hier mein Code:
Sub import()
Application.ScreenUpdating = False
Dim vTemplate As Variant
Dim sFolder As String, sAct As String
sAct = CurDir()
sFolder = Range("PATH").Value
ChDrive Left(sFolder, 1)
ChDir sFolder
vTemplate = Application.GetOpenFilename( _
"(*.xls), *.xls")
If vTemplate = False Then Exit Sub
Workbooks.Add vTemplate
ChDrive Left(sAct, 1)
ChDir sAct
'Importierte Datei als Temp speichern
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\WVorlage\temp.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
gruss rudiflei
Anzeige