Man kann sogar einfacher machen:
1. Datei aus Intranet lokal speichern
2. Dann normales Import durchfuehren
Dim ex As Object
Dim wb As Object
Set ex = CreateObject("Excel.Application")
'alles pasiert im Hintergrund
ex.Visible = False
Set wb = ex.Workbooks.Open("http://.../Datasource1.xlsx")
wb.SaveAs "C:\Temp\Temp.xlsx", wb.FileFormat
wb.Close False
Set wb = Nothing
ex.Quit
Set ex = Nothing
'jetzt die temporaere Datei importieren
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, "Tabelle1", "C:\Temp\Temp.xlsx"