منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] فتح ملف اكسيل داخل vb.net 2008 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] فتح ملف اكسيل داخل vb.net 2008 (/showthread.php?tid=3315)

فتح ملف اكسيل داخل vb.net 2008 - abdo_awad - 24-06-14

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

RE: فتح ملف اكسيل داخل vb.net 2008 - abdo_awad - 24-06-14

المشروع

RE: فتح ملف اكسيل داخل vb.net 2008 - vbnet - 24-06-14

.....

كود :
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

.....

RE: فتح ملف اكسيل داخل vb.net 2008 - abdo_awad - 24-06-14

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

RE: فتح ملف اكسيل داخل vb.net 2008 - vbnet - 24-06-14

.....

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

.....