Discussion :

[emable]

Aidez moi SVP
j'ai un formulaire ou il ya un bouton qui me permet de ouvrir une fenetre de dialogue pour chercher un fichier excel.
Le problème c'est que l'utilisateur peut chercher un fichier excel dont le nom de la première feuille peut être différent de celui dans ma chaîne de connexion.
alors je veux savoir comment récupérer le nom de la première feuille du fichier excel sélectionné.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mycon As System.Data.OleDb.OleDbConnection
        Dim Dst As System.Data.DataSet
        Dim mycomd As System.Data.OleDb.OleDbDataAdapter
 
        Dim selectedFile As String = String.Empty
 
        ' Pour afficher l'OpenFileDialog 
        OpenFileDialog1.ShowDialog()
 
        ' Pour insérer l'emplacement du fichier choisi dans le TextBox 
        selectedFile = OpenFileDialog1.FileName
        Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & selectedFile & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes"""
        mycon = New System.Data.OleDb.OleDbConnection(conString)
        mycomd = New System.Data.OleDb.OleDbDataAdapter("select * from [Feuil1$]", mycon)
        mycomd.TableMappings.Add("Table", "TestTabe")
        Dst = New System.Data.DataSet
        mycomd.Fill(Dst)
 
    End Sub

[shayw]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Imports excel = Microsoft.Office.Interop.Excel
  Private dr As New DataSet
    Private Connection As New OleDbConnection
    Private objexcel As New excel.Application
    Private xlWorkBooks As excel.Workbooks
    Private xlBook As excel.Workbook
    Private xlworksheet As excel.Worksheet 
 
 Private Sub Initdb(ByVal path As String)
        Try
            Connection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.12.0;" + path & ";Extended Properties=""Excel 12.0;HDR= YES""")
            Connection.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
Private Function GetDataFromExcel(ByVal path As String) As DataSet
        Dim sql As String
        Dim ObjetCommand As New OleDbCommand
        Dim da As OleDb.OleDbDataAdapter
        Dim ds As New DataSet
 
        Dim sheetname As String
        xlWorkBooks = objexcel.Workbooks
        xlBook = xlWorkBooks.Open(path)
        xlworksheet = CType(xlBook.ActiveSheet, excel.Worksheet)
        sheetname = xlworksheet.Name
        sql = "select * from [ sheetname] "
        Try
            ObjetCommand = New OleDbCommand(sql)
            ObjetCommand.Connection() = Connection
            da = New OleDbDataAdapter(ObjetCommand)
            Connection.Close()
            da.Fill(ds, "Table")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Return ds
    End Function
 
    Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Initdb(DirectCast(sender, OpenFileDialog).FileName)
        dr = GetDataFromExcel(DirectCast(sender, OpenFileDialog).FileName)
    End Sub

le problème avec ce code c'est qu'un processus excel.exe est crée et qu'il faut le fermer
ici