Hi guys

I need export data of access to excel pre-formated file, the final report have a partnumber and my excel's dataset have the same partnumber too. I need your help because i have a error "An unhandled exception of type 'System.NullReferenceException' ocurred in RECON_REPORT.exe
Aditional Information:Object Reference not set to an instance of an object."

I glad the help.

It is my code:

        Dim exopen As OpenFileDialog
        Dim exapp As Excel.Application
        Dim exbook As Excel.Workbook
        Dim exsheet As Excel.Worksheet
        Dim exfile As String

        exapp = New Excel.Application
        exopen = New OpenFileDialog

        exopen.Filter = "Open Microsoft Excel Document (HPDRIVESRECONXXXX.xls)|*.xls"
        exopen.Title = "Open Final Report HPDRIVESRECON"

        If exopen.ShowDialog = DialogResult.OK Then
            exfile = exopen.FileName
        End If
        exbook = exapp.Workbooks.Open(exfile)
        exapp.Visible = False
        exbook.Activate()

        With exbook
            exsheet = .Worksheets("May2006")

            info = 1
            Dim cols As Int32 = 7
            For Each ds2row In ds2excel.Tables("RECON_REPORT").Rows
                For info = 0 To ds2excel.Tables &_("RECON_REPORT").Rows.Count - 1
'here is my error
If ds2excel.Tables("MASTERS").Rows(info).Item 0).ToString =&_ exsheet.Range("B" & cols.ToString).Value Then
exsheet.Cells(cols, "S") = ds2row.Item &_ ("ERWC_IW")
exsheet.Range("S" & info.ToString).Value =&_ ds2row("ERWC_IW")
                        Exit For
                    End If
                Next info
                cols = cols + 1
            Next
        End With
        exbook.Save()
        exapp.Visible = True

I do believe that =& should be &=, and that you need a space before the following ‘_’

Plus, you have an asignation as a boolean. Essentially you have: That’s not really meaningful.

In C, all statements return a value. This is not true in VB, and so is also probably not true in VB.NET.

Also this seems wrong: That 0 all by itself after the word Item seems invalid. Did you mean .Item(0)? I think maybe you do, as it appears that you have unmatched parentheses.

Does this fix it?

Thanks for all, i solved this problem with this code:

 System.Threading.Thread.CurrentThread.CurrentCultu re =&_ System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")
  Dim exopen As OpenFileDialog
  Dim exapp As Excel.Application
  Dim exbook As Excel.Workbook
  Dim exsheet As Excel.Worksheet
  Dim exfile As String

  DataGrid1.DataSource = ds2excel.Tables("RECON_REPORT").DefaultView

  exapp = New Excel.Application
  exopen = New OpenFileDialog
  exopen.Filter = "Open Microsoft Excel Document &_(HPDRIVESRECON.xls)|*.xls"
  exopen.Title = "Open Final Report HPDRIVESRECON"

  If exopen.ShowDialog = DialogResult.OK Then
            exfile = exopen.FileName
        End If
        exbook = exapp.Workbooks.Open(exfile)
        exapp.Visible = False
        exbook.Activate()

        With exbook
            exsheet = .Worksheets("May2006")

            Dim cols As Integer = 0
 For cols = 7 To ds2excel.Tables("RECON_REPORT").Rows.Count - 1
   For info = 0 To ds2excel.Tables("RECON_REPORT").Rows.Count - 1

If exsheet.Range("B" & cols.ToString).Value = ds2excel.Tables("RECON_REPORT").Rows(info).Item("P ARTNUMBER").ToString Then

 exsheet.Range("S" & cols.ToString).Value = ds2excel.Tables("RECON_REPORT").Rows(info).Item("E RWC_IW").ToString()

Exit For
    End If
        Next info
           Next cols
            End With
        exbook.Save()
        exapp.Visible = True

Now my program no have problem with this process but freeze at time of execution.You have a method for better execution?