VBA Workbooks.open方法从云存储

代码是不工作，如果我把一个URL链接，但它确实工作，如果它从我的硬盘上。 有什么build议？ 或者我应该使用Microsoft Access？

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 

它在目录＆文件名中得到错误，任何帮助将不胜感激。 谢谢