Private Sub Command1()
Dim lRow As Long, lCol As Long, dValue As Double, dYear As Integer, dID As String
Dim obExcelApp As Excel.Application
Dim obWorkBook As Excel.Workbook
Dim c As Excel.Range
    Set obExcelApp = CreateObject("Excel.Application")
    Set obWorkBook = obExcelApp.Workbooks.Open("C:\temp\temp.xls")
    For Each c In Excel.ActiveSheet.UsedRange
        dValue = c.Value
        MsgBox dValue ' Just show the data
    Next c    
    Set obWorkBook = Nothing
    Set obExcelApp = Nothing
End Sub

'Reference Microsoft Excel 8.0 Library Object or up
Sub Main()
  Dim appExcel As Excel.Application
  Set appExcel = New Excel.Application
'PURPOSE: This will turn off all dialog box
  appExcel.DisplayAlerts = False
'PURPOSE: This will make it run in the background
  appExcel.Visible = False
  appExcel.ScreenUpdating = False
'PURPOSE: This will Open myfile.xls
  appExcel.Workbooks.Open FileName:="C:\myfolder\myfile.xls"
  appExcel.Worksheets("pSheet").Select
'PURPOSE: This will send data to a particular Range
  appExcel.Range("A4").Value = "help me"
  appExcel.Range("A5").Value = "please"
'PURPOSE: This will save workbook and close
  appExcel.ActiveWorkbook.Close Savechanges:=True
'PURPOSE: This will quit Excel
  appExcel.Quit
'PURPOSE: This will kill the instance
  Set appExcel = Nothing
End Sub