VBA Workbooks.open-Methode von Cloud Storage

Der Code funktioniert nicht, wenn ich einen URL-Link einfüge, aber er funktioniert, wenn er von meiner Festplatte kommt. irgendein Rat? oder sollte ich Microsoft Access verwenden?

Sub import_metering_actaris() Dim directory As String, fileName As String, sheet As Worksheet, total As Integer Application.ScreenUpdating = False Application.DisplayAlerts = False *****directory = "https://app.box.com/files/0/f/11396351585/1/f_95668743837" fileName = Dir(directory & "CS-FQC MV-001-01 Rev B (ACTARIS).xls")***** Do While fileName <> "" Workbooks.Open (directory & fileName) For Each sheet In Workbooks(fileName).Worksheets total = Workbooks("qc-generator.xlsm").Worksheets.Count Workbooks(fileName).Worksheets(sheet.Name).Copy _ after:=Workbooks("qc-generator.xlsm").Worksheets(total) Next sheet Workbooks(fileName).Close fileName = Dir() Loop Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 

es wird ein Fehler in Verzeichnis & filename angezeigt, jede Hilfe wäre willkommen. Danke

Solutions Collecting From Web of "VBA Workbooks.open-Methode von Cloud Storage"