MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Try this Malcolm
Option Explicit Sub gethtmltable() Dim objWeb As QueryTable Set objWeb = ActiveSheet.QueryTables.Add( _ Connection:="URL;http://www.vbaexpress.com/kb/kblist.php", _ Destination:=Range("A1")) With objWeb .WebSelectionType = xlSpecifiedTables .WebTables = "12" ' Identify your HTML Table here .Refresh BackgroundQuery:=False .SaveData = True End With End Sub
Steve
"Nearly all men can stand adversity, but if you want to test a man's character, give him power."
-Abraham Lincoln
Thanks Steve,
Exactly what I was after.
Regards
Malcolm
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'