Buonasera a tutti e grazie in anticipo per vostro aiuto.
Vi presento il mio problema. Ho creato questo modulo che mi permette di salvare un file csv da un sito web. Vorrei evitare la conferma di salvataggio di Windows (il classico apri - salva - annulla) e salvare in automatico il file csv senza conferma. Come posso fare?
Sub importtest()
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.Navigate ("
https://api.xxxxx.xxx/csv/getbookingscs" & ActiveCell)
Do
If IE.ReadyState = 4 Then
IE.Visible = True
Exit Do
Else
DoEvents
End If
Loop
IE.Document.Forms(0).all("username").Value = "xxxxx"
IE.Document.Forms(0).all("password").Value = "xxxxx"
IE.Document.Forms(0).all("datefrom").Value = Date
IE.Document.Forms(0).all("dateto").Value = Now()
IE.Document.Forms(0).submit
'IE.Document.Forms(0).SaveToFile "C:\file.csv", 2 ' 1 = no overwrite, 2 = overwrite
'IE.Document.Forms(0).Close
End Sub
Grazie.
Giuseppe