Open an excel file downloaded from a know website

[miosne]

Hi All,

I'm trying to import an Excel file opened using this code:

'Crea oggetto Internet Explorer e Excel
Set IE = CreateObject("InternetExplorer.Application")
 
'Uploading Wedsite
IE.Navigate "http:Mywebsite.it"
 
While IE.Busy
DoEvents
Wend
IE.Visible = False
'User-ID & password
IE.Document.All("Operatore").Value = UserName
IE.Document.All("Password").Value = Password
'Click on login button
IE.Document.All("OK").Click
 
While IE.Busy
DoEvents
Wend
 
'Positioning on the webpage
'Clicca sul pulsante di "Richieste di intervento"
IE.Navigate "http:Mywebsite.it,ta=lst"
 
While IE.Busy
DoEvents
Wend
 
'Click on button to open the excel file in a new 
IE.Document.All("btn_scheda").Click
 
While IE.Busy
DoEvents
Wend
 
'inserted a delay in order to be sure that the excel file has been opened
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now + TimeValue("00:00:10")))
 
Dim strFile As String
Dim i As Long
Dim TargetSht As Worksheet
Dim LastRow As Integer
 
'SET (REMEMBER) CURRENT SHEET AS TARGET SHEET
Set TargetSht = ActiveSheet
strFile = Excel.Application.GetOpenFilename("RINT_Lista_Interventi1 (*.xls),*.xls", _
MultiSelect:=False)

At the end:
- TargetsSht has no values ...
- i don't want to open a search box, but only to select my new Excel file "RINT_Lista_Interventi1 " and copy/paste data

[Mihail]

From where are you running this code ?
At what time in Excel life are you running the code ?
Are you sure that when you run the code is any sheet activate ?

In order to debug, insert, before line 1, this code:

Dim TargetSht As Worksheet
    Set TargetSht = ActiveSheet
    MsgBox (TargetSht.Name)

If MsgBox will return a name then something happen in your code. And all I can see wrong is that Excel Application lost focus (IE gain the focus). If so, you must reactivate the Excel application before stetting TargetSht as active sheet.

Cheers !