Datei öffnen ohne Fehler

Thomas · 2014-04-22T08:39:35+00:00

Guten morgen ^^ Erstmal an den netten Oberschlumpf :) : Danke für deine Hilfe zum Thema 2 Dateien vergleichen, ich habs fast so ähnlich aufgebaut. Ich war paar Tage im Urlaub und hatte da mein Laptop mit aber leider kein Inet zugang :( also hab ich mich bei schlecht Wetter hingesetzt und irgendwas aus den Fingern gezaubert mit hilfe von einem kollegen. Jetzt hab ich noch ein anderes Problem bei einer anderen Tabelle, ich öffne über ein Makro eine vorhanden Datei, in dieser Datei sind Verknüpfungen hinterlegt, dann kommen abfragen ob die Verknüpfungen aktualisierst werden sollen oder nicht und am ende noch eine abfrage ob die Änderung gespeichert werden soll oder nicht. Kann man diese Abfragen ausstellen ? Am besten mit dem Makro dass die Datei auch öffnet. P.S.: In der Datei sind sverweise und links hinterlegt.

Hi Thomas,
das "Pfad aktualisieren" kannst du auch noch abschalten:
Workbooks.Open "DeinPfad", UpdateLinks:=False
Aus meiner Sammlung: ich benutze folgendes Makro, um Dateien zu öffnen. Funktionierte bisher immer ohne Meldungen. Vielleicht die Displayalerts=False noch mit einfügen.

'*********************************************************************************************** _
'* Module to open needed files. Checks if Files are open or not.
'* If file is already open, do nothing - else open it
'* stolen from: https://www.herber.de/mailing/Pruefen_ob_Arbeitsmappe_geoeffnet_und_wenn_nein_oeffnen.htm
'* modified by KlausMvdT / 16.NOV.2012
'*********************************************************************************************** _
'Example:
'Call FileCheckOpen("C:\TMP", "Filename.xls")
'path and filename can be RANGE from excelsheet
Sub FileCheckOpen(sPath As String, sFile As String)
sPath = sPath & "/" & sFile
If WkbExists(sFile) = False Then
If Dir(sPath) = "" Then
MsgBox "File " & sPath & " not found!"
Else
Workbooks.Open sPath, UpdateLinks:=False
End If
Else
Workbooks(sFile).Activate
End If
End Sub
Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function

Grüße,
Klaus M.vdT.

'*********************************************************************************************** _
'* Module to open needed files. Checks if Files are open or not.
'* If file is already open, do nothing - else open it
'* stolen from: https://www.herber.de/mailing/Pruefen_ob_Arbeitsmappe_geoeffnet_und_wenn_nein_oeffnen.htm
'* modified by KlausMvdT / 16.NOV.2012
'*********************************************************************************************** _
'Example:
'Call FileCheckOpen("C:\TMP", "Filename.xls")
'path and filename can be RANGE from excelsheet
Sub FileCheckOpen(sPath As String, sFile As String)
sPath = sPath & "/" & sFile
If WkbExists(sFile) = False Then
If Dir(sPath) = "" Then
MsgBox "File " & sPath & " not found!"
Else
Workbooks.Open sPath, UpdateLinks:=False
End If
Else
Workbooks(sFile).Activate
End If
End Sub
Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function

Grüße,
Klaus M.vdT.

Forumthread: Datei öffnen ohne Fehler

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial