Как загрузить данные CSV в Excel 2013, используя https с базовой аутентификацией?

Question

Как загрузить данные CSV в Excel 2013, используя https с базовой аутентификацией?

Для этого я написал следующий скрипт VBA и связал его кнопкой, которая устанавливает некоторые параметры и загружает данные. После этого он удаляет соединение, чтобы избежать кучи устаревших соединений.

Private Sub LoadData_Click()
    Dim ConnString As String
    Dim URL As String
    URL = "https://some-server/some/path/some-file.csv"
    ConnString = "TEXT;" + URL + "?partner_code=" + CStr(Range("B2")) + "&from=" + CStr(Range("B3")) + "&to=" + CStr(Range("B4"))

    Sheets("Import").Select
    Sheets("Import").UsedRange.Clear
    ActiveSheet.Range("A1").Value = "Data is being loaded. Hold on..."
    With ActiveSheet.QueryTables.Add(Connection:=ConnString, Destination:=ActiveSheet.Range("A1"))
        .Name = _
        " "
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileDecimalSeparator = ","
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

   Do While ActiveWorkbook.Connections.Count > 0
      ActiveWorkbook.Connections.Item(ActiveWorkbook.Connections.Count).Delete
   Loop

    Sheets("Parameter").Select
End Sub

Он отлично работает с Excel 2010, но не с 2013. Когда я нажимаю мою кнопку, у меня запрашивают учетные данные и вводят их. В Excel 2010 я вижу на стороне сервера в журналах apache несколько лишних запросов OPTIONS и HEAD, но, наконец, только один GET, который извлекает данные.

В Excel 2013 я вижу три ВАРИАНТА, затем ГОЛОВУ, которая успешна (200) и, наконец, GET, которая не удалась (401). Для дальнейшего изучения я активировал модуль mod_dumpio, чтобы посмотреть, что происходит. И Apache, конечно, прав, чтобы отказаться от Excel 2013:

HEAD /some/path/some-file.csv?partner_code=25010&from=01.01.2014&to=01.06.2014 HTTP/1.1\r\n
...
Authorization: Basic Y29udHJvbGxpbmc6Rm9vNWFoUGg=\r\n

который отвечает 200 и сразу после этого появляется GET

GET /some/path/some-file.csv?partner_code=25010&from=01.01.2014&to=01.06.2014 HTTP/1.1\r\n

в котором отсутствует базовый заголовок аутентификации, и поэтому на него отвечает

HTTP/1.1 401 Unauthorized\r\nDate: Thu, 03 Jul 2014 18:18:59 GMT\r\nServer: Apache\r\nPragma: No-cache\r\nCache-Control: no-cache\r\nExpires: Thu, 01 Jan 1970 01:00:00 CET\r\nWWW-Authenticate: Basic realm="Import/Export"\r\nVary: Accept-Encoding\r\nContent-Encoding: gzip\r\nContent-Length: 378\r\nConnection: close\r\nContent-Type: text/html;charset=utf-8\r\n\r\n

Я следовал инструкциям в http://support.microsoft.com/kb/2123563/en-us шаг за шагом, но это не помогло. Также HEAD фактически работает и использует базовую аутентификацию.