importint html file to excel from cell B1

[snow2001]

goodday guys,

im looking for a macro which will get the data from website html file.
But this html file is different every time.
Is there some way i can set a macro to get the data from website when only putting the page which needs to be inmported on for instance putting the hmtl in cell B1?
the http://****/****/(input from cell B1).html

tnx

 

[snow2001]

sorry forgot the vba script which i am using.
I am trying to import a html file wich is stored on network drive.
i am putting the file name in cell A1. at this time with the file extension .html i know this extension can be put in vba script but im not so far in scripting
but the file wont import getting error not valid.
probly because im using the url import?

anyway any help would be great, here is what i got sofar:


Sub Macro1()

'

' Macro1 Macro

'



'

Range("A2").Select

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;\\tnnt12\g-tn-ptssite\_P&s\WOIS_PERM\q/ks?s=(A1.value)", Destination:=Range("$A$2"))

.Name = "q?s=Activesheet.name"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlSpecifiedTables

.WebFormatting = xlWebFormattingNone

.WebTables = """table1"""

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.WebDisableRedirections = False

.Refresh BackgroundQuery:=False







End With

End Sub