При запуске сценария VBA для доступа к файлу FTP появляется сообщение об ошибке «Ошибка выполнения 1004». - PullRequest
Новая
       16

При запуске сценария VBA для доступа к файлу FTP появляется сообщение об ошибке «Ошибка выполнения 1004».

0 голосов
/ 30 августа 2018

При попытке открыть файл ftp говорится, что Microsoft Excel не может получить доступ к файлу по нескольким возможным причинам. Тем не менее, я не могу понять, что заставляет его не работать. У меня кончились идеи.

Это ломается в 

Workbooks.Open Filename:="ftp://ftp.cmegroup.com/pub/settle/nymex_future.csv"

Этот VBA работал ранее, но не в Office 2016. 

    Sub GetData()
'
' CreateUploadFiles Macro
' Gets ICE and CME data, updates calculations and refreshes pivot tables
'

'
    Sheets("Price Calc").Select
    Range("C13").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ICE Gas.xls").Activate
    Columns("A:K").Select
    Selection.Copy
    Windows("Market Price Upload Sheet.xlsm").Activate
    Sheets("ICE Gas").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    ActiveSheet.Calculate
    Windows("ICE Gas.xls").Activate
    ActiveWindow.Close
    Windows("ICE Power.xls").Activate
    Columns("A:K").Select
    Selection.Copy
    Windows("Market Price Upload Sheet.xlsm").Activate
    Sheets("ICE Power").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    ActiveSheet.Calculate
    Windows("ICE Power.xls").Activate
    ActiveWindow.Close
    Workbooks.Open Filename:="ftp://ftp.cmegroup.com/pub/settle/nymex_future.csv"
    ActiveWindow.Visible = False
    Windows("nymex_future.csv").Visible = True
    ActiveWindow.WindowState = xlNormal
    Application.DisplayAlerts = False
    ActiveWindow.WindowState = xlNormal
    ActiveWorkbook.SaveAs Filename:= _
        "v:\RAM MRA-SOX\Pricing Data\nymex_future.csv", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    Workbooks.Open Filename:="ftp://ftp.cmegroup.com/pub/settle/nymex_option.csv"
    ActiveWindow.Visible = False
    Windows("nymex_option.csv").Visible = True
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "v:\RAM MRA-SOX\Pricing Data\nymex_option.csv", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    Windows("nymex_future.csv").Activate
    Columns("A:T").Select
    Selection.Copy
    Windows("Market Price Upload Sheet.xlsm").Activate
    Sheets("CME Futures").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    ActiveSheet.Calculate
    Windows("nymex_future.csv").Activate
    ActiveWindow.Close
    Windows("nymex_option.csv").Activate
    Columns("A:V").Select
    Selection.Copy
    Windows("Market Price Upload Sheet.xlsm").Activate
    Sheets("CME Option").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    ActiveSheet.Calculate
    Windows("nymex_option.csv").Activate
    ActiveWindow.Close
    Sheets("ICE Gas Pivot").Select
    Range("A6").Select
    ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
    Sheets("ICE Power Pivot").Select
    Range("A6").Select
    ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
    Sheets("Option Pivot").Select
    Range("A6").Select
    ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
    Range("F6").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    Sheets("CME Pivot").Select
    ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
    Sheets("Price Calc").Select
    ActiveSheet.Calculate
    Sheets("Curve").Select
    ActiveSheet.Calculate
    Sheets("Market Prices").Select
    ActiveSheet.Calculate
    Sheets("Vol Calc").Select
    ActiveSheet.Calculate
    Sheets("WGES_Gas").Select
    ActiveSheet.Calculate
    Sheets("WGES_Power").Select
    ActiveSheet.Calculate
    Sheets("WGES_Basis").Select
    ActiveSheet.Calculate
    Sheets("WGES_Discount").Select
    ActiveSheet.Calculate
    Sheets("Instructions").Select


End Sub
...