Laufzeitfehler 5 FileDateTime

[elvisonline]

Hallo,

aus einer zu öffnenden "2.Datei" hole ich mir per Makro Daten und das Datum dieser "2.Datei". Befindet sich Diese am lokalen Rechner gibt es keine Probleme. Diese "2.Datei"  befindet sich aber grundsätzlich auf einem Sharepoint. Hier erhalte ich einen Laufzeitfehler 5. Debugger auf:  Sheets("blablabla").[D22] = FileDateTime(varDatei)

Ersetze ich varDatei mit dem Netzlaufwerkpfad funktioniert es. Leider ändert sich dieser Pfad ständig.

Vielleicht hat jemand ne Idee - Danke

2016


Code:
Sub SAPholen()


          Dim varDatei As Variant
 
    varDatei = Application.GetOpenFilename()
    If varDatei = False Then
       MsgBox "Der Benutzer hat abgebrochen.", vbInformation
    Else
        MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei '
       Workbooks.Open Filename:=varDatei
       
    Range("A1:AR50000").Select
   Selection.Copy
    Windows("blablabla.XLSm").Activate
    Range("A2").Select
    ActiveSheet.Paste
   Range("I1").Select
   
        Sheets("blablabla").[D22] = FileDateTime(varDatei)
End If

End Sub

[Kuwer]

Hallo,

vielleicht so:

Sub SAPholen()


   Dim varDatei As Variant
   Dim varDate As Variant
   
   varDatei = Application.GetOpenFilename()
   If varDatei = False Then
      MsgBox "Der Benutzer hat abgebrochen.", vbInformation
   Else
       MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei '
      varDate = Workbooks.Open(Filename:=varDatei).BuiltinDocumentProperties(12)
      
      Range("A1:AR50000").Select
      Selection.Copy
      Windows("blablabla.XLSm").Activate
      Range("A2").Select
      ActiveSheet.Paste
      Range("I1").Select
     
      Sheets("blablabla").[D22] = varDate
   End If

End Sub

Gruß Uwe

[elvisonline]

   

Hallo,

danke für die schnelle Hilfe. Jetzt andere Fehlermeldung siehe Anhang. Gruß