Если вы используете Data | Import External Query | New Web Query, есть параметр RefreshOnFileOpen, который вы можете просто установить в True.
Вот фрагмент, который получает данные из сети, но не форматирует их (так как вы сказали, что это уже работает).
'
'
Range("I12").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://api.eve-central.com/api/evemon", Destination:=Range("I12"))
.Name = "evemon_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub