Programme qui fonctionne dans toutes les version d'excel

J'ai récemment développé une application Windows Form qui a plusieurs composants datagrid. Mon client a besoin d'exporter les données dans Excel. Ils sont à l'aide de différentes versions d'Excel (j'.e 2003,2007,2010,2013) mais je suis en utilisant Office 2013. J'ai utilisé excel 2013 références

(Microsoft excel 15.0 bibliothèque d'objets)

dans mon programme. Récemment, mon client a signalé que l'option d'exportation n'a pas de travail. De mon enquête, il semble que mon application fonctionne bien pour ceux qui sont à l'aide d'Office 2013, mais ne fonctionne pas pour les versions précédentes d'Office.

Que puis-je faire pour que mon application fonctionne dans les anciennes versions d'Excel?

InformationsquelleAutor Sathish K | 2013-09-18

10

Si vous savez que tous vos utilisateurs auront excel, vous pouvez convertir vos excel les références à "l'Objet"au lieu de figé objets excel et ensuite supprimer la DLL références de votre projet. Cela fonctionnera toutes les versions de bureau, aussi longtemps que vous n'avez pas l'usage d'une NOUVELLE fonction qui n'est pas dans les anciennes versions.

Par exemple, au lieu de cela:
```
Dim _xlApp As Excel.Application
Dim _xlBook As Excel.Workbook
```
Essayez ceci:
```
Dim _xlApp As Object 'Excel.Application
Dim _xlBook As Object 'Excel.Workbook
```
Tout fonctionne de la même (sauf pas de intellisence) à l'exception de l'instanciation de l'application excel:
```
_xlApp = CreateObject("Excel.Application") 'New Excel.Application
```
J'ai fait de cette manière pour 15 ans sans jamais changer mon code en se basant sur les différentes versions.
- +1 à Noter que cette opération est appelée "liaison tardive."
- Merci pour votre réponse . je vais essayer cette .. laissez u savoir si toute l'aide nécessaire .
- De travail ! j'ai complètement perdu mon esprit .. j'ai utilisé cette méthode(liaison tardive) de nombreuses fois en VB6 ..
InformationsquelleAutor Steve
1

Il y a un moyen pour que votre demande de travail, même si il n'y a pas d'excel est installé à tous. Vous pouvez utiliser excel natif bibliothèques, il y a des gratuit .Bibliothèques NET que vous pouvez utiliser à cette fin.

Pour format XLS que vous pouvez utiliser NPOI et EPPlus pour XLSX, inconvénient de cette approche est qu'il vous faudra changer votre code existant si vous décidez d'aller dans cette voie.

EPPlus exemple de l'exportation de la DataTable à excel, à partir de cette SORTE question :
```
using (ExcelPackage pck = new ExcelPackage(newFile))
{
  ExcelWorksheet ws = pck.Workbook.Worksheets.Add("Accounts");
  ws.Cells["A1"].LoadFromDataTable(dataTable, true);
  pck.Save();
}
```
Pour NPOI exemple regardez ici :

http://dotnetslackers.com/DataSet/re-511450_Export_an_ADO_NET_DataTable_to_Excel_using_NPOI.aspx
- Merci pour votre réponse ..Est-il des exemples de code que u peut fournir(je suis nouveau à cela)
- mise à jour de ma réponse, mais si vous ne voulez pas changer votre code existant, la réponse de Steve est le chemin à parcourir
- J'ai travaillé sur des échantillons qui fonctionnait très bien .. Mais je ne suis pas dans la situation de changer tout le code de mon projet .. peut être je utiliser cette méthode dans les projet à venir.. merci beaucoup pour votre temps 🙂
InformationsquelleAutor Antonio Bakula

Merci pour votre aide @Steve et @Antonio Bakula

Voici ma liaison tardive code qui fonctionne sur toutes les version d'excel ..

 Try
            Dim app As Object
            Dim xlbook As Object
            Dim xlsheet As Object
            app = CreateObject("Excel.Application")
            xlbook = app.Workbooks.Add()
            xlsheet = xlbook.ActiveSheet
            app.Visible = True
            Dim iX As Integer
            Dim iY As Integer
            Dim iC As Integer
            Dim iz As Integer
            For iC = 0 To DataGridView1.Columns.Count - 1
                xlsheet.Cells(1, iC + 1).Value = DataGridView1.Columns(iC).HeaderText
            Next
            iz = 1
            For iX = 0 To DataGridView1.Rows.Count - 1
                For iY = 0 To DataGridView1.Columns.Count - 1
                    Dim a As String = DataGridView1(iY, iX).Value
                    If a <> Nothing Then xlsheet.Cells(iz + 1, iY + 1).value = DataGridView1(iY, iX).Value.ToString
                Next
                iz = iz + 1
            Next

            MsgBox("Export Done", MsgBoxStyle.Information, "MODEL AND WARRANTY")

            app.Visible = True
            app.UserControl = True
            releaseobject(app)
            releaseobject(xlbook)
            releaseobject(xlsheet)
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try

La libération de l'objet excel une fois l'extraction faite .

Sub releaseobject(ByVal obj As Object)
    Try
        System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
        obj = Nothing
    Catch ex As Exception
        obj = Nothing
    End Try
End Sub

InformationsquelleAutor Sathish K

Vous devez vous connecter pour publier un commentaire.