منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

المشروع

.....

كود :

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

.....

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

.....

تذكرت أمر أسهل لا تحتاج لمرجع 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

.....

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

abdo_awad

abdo_awad

vbnet

abdo_awad

vbnet