List of earnings date + ticker

Hi

I try to eliminate dates where a stock has its earnings relased.

Does anyone know if there exist a "complete" list with dates and tickers that could be downloaded and/or work with Excel VBA?

Kind regards
Espen

 

http://biz.yahoo.com/research/earncal/today.html

I"m sure there's a way to download this to excel...i think

on second thought...this is probably too basic...do carry on lol

 

Hi

I ended up with a VBA that pulled data from Nasdaq:

Code:

Sub Macro1()
    
    Dim wb As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ticker As String
    Dim i As Long
    Dim lr As Long
    
    Set wb = ActiveWorkbook
    Set ws1 = wb.Sheets("Tickerlist")
    Set ws2 = wb.Sheets("Temp")
    
    lr = ws1.Range("A65536").End(xlUp).Row
    
    
    
    For i = 2 To lr
        ws2.Cells.Clear
        
        ticker = ws1.Range("A" & i)
        ws2.Activate
        
        
        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;[url]http://www.nasdaq.com/earnings/report/[/url]" & ticker & "", Destination:=ws2.Range("$A$1"))
            .Name = ticker
            .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 = "3"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
        
        ws1.Range("B" & i).Value = ws2.Range("B8")
        ws1.Range("C" & i).Value = ws2.Range("B7")
        ws1.Range("D" & i).Value = ws2.Range("B6")
        ws1.Range("E" & i).Value = ws2.Range("B5")
    
    Next i
    
End Sub