Problème pour l'exportation dans Excel
Bonjour à tous,
j'ai besoin de vos lumières car je ne sais plus quoi faire pour régler mon problème.
J'ai une appli qui crée et écrit dans un fichier excel.
Voici le code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Dim app As New Microsoft.Office.Interop.Excel.Application
Dim exbook As Microsoft.Office.Interop.Excel.Workbook
Dim exsheet As Microsoft.Office.Interop.Excel.Worksheet
exbook = app.Workbooks.Add
exsheet = CType(exbook.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet)
exsheet.Cells(1, i + 1) = "Montant HTVA"
exsheet.Cells(j, i) = CType(exsheet.Cells(j, i), Double) + CType(SqlDr.Item("Faktu_D_Menge").ToString, Double)
exbook.SaveAs(txt_ExcelDatei.Text.Trim)
app.Visible = True |
J'ai une erreur sur le "CType(exsheet.Cells(j, i), Double)". Le problème c'est que je n'ai aps accès à la propriété VALUE de CELLS. Je sais pas pourquoi.
J'ai bien essayer en faisant "CType(exsheet.Range(exsheet.Cells(j, i)), Double)" mais ça marche pas non plus.
Merci pour vos conseils.
A++
Chris
