get data fropm html table

try one of these methods:
http://www.greggriffiths.org/webdev/both/excel/

<<But i want in VB or VBA for Excel>>

Its usually a good idea to put that information in the original question...

How do you want this to work?  Do you want to be in Excel then execute a macro to go to a particular website and download the table data?  Or is the table data already saved as HTML on your hard-drive?

If you want to do this from Excel, you can build the VBA automatically by following these steps.

Go to the Data menu and choose the Get External Data menu, then the Create New Query menu item.  This will start a wizard where you will be able to enter the URL of the webpage, then you'll be able to highlight the table that you want to retrieve.  You can then save the query and run it by choosing Get External Data, Run Query (then select the query to run).  Or, you can save the VBA and attach it to a Macro, then just execute the Macro whenever you want to run it.  You have to have Microsoft Query Engine installed for this to work, so, you might need your Microsoft Office disks if you do not have this installed, as it is an optional item.

The VBA that is produced looks like this sample.  Note, I first created the macro in Excel 2002?  And then tried to run it in Excel 97 and had to comment out several of the statements.  If you are running a recent version of Excel, then you can uncomment the commented lines.

Sub GetPositions()
'
' GetPositions Macro
' Macro recorded 5/24/2007 '
' Keyboard Shortcut: Ctrl+p
'
    Dim sURL As String
   
    sURL =
"URL;https://vms.metocean.com/daysatsea/display_positions_action.jsp?s_id=626&startdate=" &
Format(DateAdd("d", -1, Now), "yyyy-MM-dd") & "&enddate=" & Format(Now, "yyyy-MM-dd")

    With ActiveSheet.QueryTables.Add(Connection:=sURL, Destination:=Range("A1"))
        .Name = _
        "display_positions_action.jsp?s_id=626&startdate=2007-05-23&enddate=2007-05-24_1"
        .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 = "8"
        '.WebPreFormattedTextToColumns = True
        '.WebConsecutiveDelimitersAsOne = True
        '.WebSingleBlockTextImport = False
        '.WebDisableDateRecognition = False
        '.WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub