Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Laufzeitfehler 5 FileDateTime
#1
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
Antwortento top
#2
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
Antwortento top
#3
   

Hallo,

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


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste