Hi all

This is what I am Using at the moment.

Sub Import_Web_Page()
Dim strDriver, intCount, intLastrow

'Import Webpage with external data query
'I have 1200 of these files, Is There a good way to select any of these
files
'So I could choose any One file and import That One file Quickly.


With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:\test\Test23.html", Destination:=Range("A1"))
.Name = "eor1_4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With

End Sub


Thanks in Advance

Dave

Can you give actual examples?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"DaveM" wrote in message
. uk...
Hi all

This is what I am Using at the moment.

Sub Import_Web_Page()
Dim strDriver, intCount, intLastrow

'Import Webpage with external data query
'I have 1200 of these files, Is There a good way to select any of these
files
'So I could choose any One file and import That One file Quickly.


With ActiveSheet.QueryTables.Add(Connection:= _
"URL;C:\test\Test23.html", Destination:=Range("A1"))
.Name = "eor1_4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With

End Sub


Thanks in Advance

Dave