[salahalmasry]

السلام عليكم ورحمة الله وبركاتة 

زي مهوة واضح عاوز افتح ملف اكسيل موجود في Resources
واغير بعض خلايا بداخلة بس يجي عند مرحلة فتح الملف ويجيب خطأ ممكن حد يصلح الكود 
 
الخطأ بيكون في السطر دة  خبرتي قليلة في مجال الفيجول بيسك ارجو المساعدة وطبعا على خبرتي المنيلة مش عارف الباقي صح ولا 

PHP كود :

 xlWorkBook = xlApp.xlWorkSheet.Open("MyProgram.Resources", System.Reflection.Assembly.LoadFile("test")) 


PHP كود :

Imports Excel = Microsoft.Office.Interop.Excel
Public Class insertdataar1
    Dim Myrs As New Resources.ResourceManager("MyProgram.Resources", System.Reflection.Assembly.GetExecutingAssembly)
    Dim xlApp As New Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button1.Click

        xlWorkBook = xlApp.xlWorkSheet.Open("MyProgram.Resources", System.Reflection.Assembly.LoadFile("test"))
                                            
        xlApp.Visible = False
        xlWorkSheet = xlWorkBook.Sheets("START")
        With xlWorkSheet
            .Range("A2").Value = T1.Text
            .Range("A3").Value = T2.Text
            .Range("A4").Value = T3.Text
            .Range("D5").Value = T4.Text
            .Range("K5").Value = T5.Text
        End With
        insertdataar2.Show()
        Me.Hide()

    End Sub 


[HASAN6.0]

(04-12-15, 12:25 AM)salahalmasry كتب :  وطبعا على خبرتي المنيلة مش عارف الباقي صح ولا 

ههههه والله انك ظريف , عموما اخي معظم الناس من مبرمجين وغيره يبحثون عن حلول لمشاكلهم في الانترنت وغيره .
وطالما انك تبحث فهذا شيء جميل .

لكن لم افهم شيء . انت تريد فتح ملف الـ Excel من الـ Resource  وحفظ التعديلات . ام فقط فتح الملف ؟

[salahalmasry]

الي احتاجة
1-فتح الملف بدون الحفظ
2 -تصدير الملف ل PDF بعدين الاغلاق الملف وبرنامج الاكسيل

[myalsailamy]

Dim filePath As String = Application.StartupPath & "\test.xlsx"
If System.IO.File.Exists(filePath) = False Then System.IO.File.WriteAllBytes(filePath, My.Resources.test)
xlWorkBook = xlApp.xlWorkSheet.Open(filePath)

و بعد ما تكمل الاجراءات تبعك على الملف قم بحذف الملف

[salahalmasry]

السلام عليكم اخي myalsailamy جربت الكود حقك بس بيجيني خطأ هنا
xlWorkBook = xlApp.xlWorkSheet.Open(filePath)

[myalsailamy]

ضع هنا رسالة الخطا التي تظهر لك

[hassan]

(مستحيل التعديل على ملف في الريسورس وحفظه )

[salahalmasry]

انا مش عاوز احفظ الملف الهدف كلة ادخال بيانات معينة وتصدير النموزج ل pdf وبعدين اغلاق الملف بدون الحفظ