un file inviato ad un amico, prelevava dei dati da una pagina internet, il tutto funziona bene sino alla vers. excel 2007,
purtroppo con la 2010 si blocca chiedendo password inesistente.
Inserisco la macro di base e chiedo gentilmente se qualcuno può correggerla per essere utilizzata su Excel 2010.
- Codice: Seleziona tutto
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.--------------.com/?area=----------------&action=Archivio&date=" & Agg _
, Destination:=Range("A1"))
.Name = "?area=-----------------&action=Archivio&date=" & Agg & "_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Ringrazio chi può darmi le giuste indicazioni.
Francesco