[abdo_awad]

في هذا المشروع يتم فتح ملف اكسيل فارغ ولكن كيف يمكن فتح ملف عن طريق opendialog واختيار اي ملف اكسيل من علي جهاز وفتحه ليس الملف الموجود في المشروع .

[abdo_awad]

المشروع

[vbnet]

.....

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using op As New OpenFileDialog
        op.Filter = "Excel files (*.xls,xlsx)|*.xls;*.xlsx"

        If op.ShowDialog = DialogResult.OK Then
            Dim xlsApp As New Excel.Application
            Dim xlsWorkBook As Excel.Workbook

            xlsWorkBook = xlsApp.Workbooks.Open(op.FileName)
            xlsApp.Visible = True

        End If
    End Using
End Sub

.....

[abdo_awad]

شكرا علي هذا المجهود رائع

[vbnet]

.....

تذكرت أمر أسهل لا تحتاج لمرجع Reference

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using op As New OpenFileDialog
        op.Filter = "Excel files (*.xls,xlsx)|*.xls;*.xlsx"
        If op.ShowDialog = DialogResult.OK Then

            Process.Start(op.FileName)

        End If
    End Using
End Sub

.....