Astuces Excel
  1. Astuces Excel
  3. Erreur lors de la création du file Excel
Intereting Posts
Excel 2003 Liens Chemins incluant le lecteur Modifier la police, la couleur de la police et la taille de la police du text automatique dans une textbox Excel VBA Comstack lance une erreur «Type défini par l'user non défini» mais ne goto pas la ligne de code offensante Mettre à jour automatiquement le tableau php chaque matin Méthode efficace pour utiliser datatables de la fiche de vérification Excel pour créer et remplir une list dans une nouvelle feuille Évitez de récupérer l'printing 'echo' avec le jeu d'loggings ADO dans VBA Erreur variable avec macro dans VBA Tracer des diagrammes distincts pour les colonnes sous chaque cellule fusionnée dynamicment Pousser datatables d'Excel vers Db2 Exact Différence de date en mois et en jours Comment insert des données dans Excel en utilisant OleDbConnection Valeur de return de la dernière correspondance Extraction de valeur de la database Partagez les macros modules entre excel et word Requête QODBC personnalisée dans QuickBooks pour extraction Excel

Erreur lors de la création du file Excel

J'utilise vb.net pour créer un file excel, mais cela me donne l'erreur de ne pouvoir ouvrir le file car le format de file ou le file d'extension de file n'est pas valide. 

Dim excelLocation As Ssortingng = txtLocate.Text + txtFilename.Text.Trim + ".xlsx" Dim source1 As New BindingSource Dim APP As New Excel.Application Dim worksheet As Excel.Worksheet Dim workbook As Excel.Workbook If System.IO.File.Exists(excelLocation) = False Then System.IO.File.Create(excelLocation).Dispose() End If workbook = APP.Workbooks.Open(excelLocation) worksheet = workbook.Worksheets("sheet1") Dim columnsCount As Integer = dgvList.Columns.Count For Each column In dgvList.Columns worksheet.Cells(1, column.Index + 1).Value = column.Name Next For i As Integer = 0 To dgvList.Rows.Count - 1 Dim columnIndex As Integer = 0 Do Until columnIndex = columnsCount worksheet.Cells(i + 2, columnIndex + 1).Value = dgvList.Item(columnIndex, i).Value.ToSsortingng columnIndex += 1 Loop Next workbook.SaveAs() workbook.Close() MsgBox("Save!")