Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PassaExcel.Click
        Dim xlApp As Microsoft.Office.Interop.Excel.Application ' Riferimento all'applicazione Excel
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook ' Riferimento al Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet ' Riferimento al Worksheet
        Dim strqta As String
        Dim strpzz As String
        Dim NumQta As Double
        Dim numPzz As Double
        Dim importo As Double
        xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass
        xlBook = xlApp.Workbooks.Open(Me.ExcelFilePath)
        xlSheet = xlBook.Worksheets("PREVENTIVO")
        xlSheet.Activate()
        xlSheet.Range("RS").Value = Rag
        xlSheet.Range("INDIRIZZO").Value = Ind
        xlSheet.Range("CAP").Value = CapC
        xlSheet.Range("CITTA").Value = Loc
        xlSheet.Range("PR").Value = Prov
        xlSheet.Range("TIPDOC").Value = "ORDINE"
        xlSheet.Range("DP").Value = Pagam
        xlSheet.Range("DESBAN").Value = Banca
        xlSheet.Range("DTDOC").Value = Date.Today
        xlSheet.Range("ISO").Value = Iso
        xlSheet.Range("CF").Value = Piva
        xlSheet.Range("CP").Value = "01"
        For iRow As Integer = 0 To Me.dgvCarrello.RowCount - 1
            xlSheet.Range("DESART").Item(iRow + 1, 1) = dgvCarrello.Item(0, iRow).Value
        Next
        For iRow As Integer = 0 To Me.dgvCarrello.RowCount - 1
            xlSheet.Range("QTA").Item(iRow + 1, 1) = dgvCarrello.Item(1, iRow).Value
        Next
        For iRow As Integer = 0 To Me.dgvCarrello.RowCount - 1
            xlSheet.Range("UM").Item(iRow + 1, 1) = dgvCarrello.Item(4, iRow).Value
        Next
        For iRow As Integer = 0 To Me.dgvCarrello.RowCount - 1
            xlSheet.Range("PZZ").Item(iRow + 1, 1) = dgvCarrello.Item(5, iRow).Value
        Next
        For iRow As Integer = 0 To Me.dgvCarrello.RowCount - 1
            strqta = dgvCarrello.Item(1, iRow).Value
            strpzz = dgvCarrello.Item(5, iRow).Value
            NumQta = Convert.ToDouble(strqta)
            numPzz = Convert.ToDouble(strpzz)
            importo = NumQta * numPzz
            xlSheet.Range("IMPORTO").Item(iRow + 1, 1) = importo  <---- |Questo campo non viene scritto|
        Next
        xlBook.Close(True)
        xlSheet = Nothing
        xlBook = Nothing
        xlApp = Nothing
    End Sub