[asmarsou]

(26-08-22, 08:10 AM)سعود كتب : و عليكم السلام ورحمة الله و بركاته
بطريقة مباشرة لا اعرف لكن اضافة الى  DataTable ثم تصدير الى xml  ثم بعد ذلك تشغله عن طريق الاكسل.

جمعة مباركة للجميع
بالفعل التعامل مع الملف لا يتم مباشرة بل يجب انشاء نسخة ثانية بمسمى احر للتعديل عليها
بفد لي جزئية واحدة هي كيفية ملء الملف الاول بمحتوى الملف المنسوخ فكرت في اعادة التسمية عند غلق البرنامج او في حدث الفورم لود
لتعميم الفائدة هذا كود الاضافة للملف الثاني

كود :

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       Dim xlApp As Excel.Application
       Dim xlWorkBook As Excel.Workbook
       Dim xlWorksheet As Excel.Worksheet
       Dim lastRow As Long

       xlApp = New Excel.Application
       xlWorkBook = xlApp.Workbooks.Open((IO.Path.GetDirectoryName(Diagnostics.Process.GetCurrentProcess().MainModule.FileName) & "\NamesList2.xlsx"))
       xlWorksheet = xlWorkBook.Worksheets(1)
       'xlApp.Visible = True

       lastRow = xlWorksheet.Range("A" & xlApp.Rows.CountLarge).End(Excel.XlDirection.xlUp).Row + 1

       With xlWorksheet
           .Range("A" & lastRow).Value = Me.TextBox1.Text
           '.Range("B" & lastRow).Value = Me.ComboBox1.Text
           '.Range("C" & lastRow).Value = Me.textbox2.Text
           '.Range("D" & lastRow).Value = Me.textbox3.Text
           ListBox1.Items.Add(TextBox1.Text)
       End With

       xlWorkBook.Save()
       xlWorkBook.Close()

       releaseObject(xlWorkBook)
       releaseObject(xlWorksheet)
       xlApp.Quit()
       releaseObject(xlApp)
   End Sub

فهل ممكن طريفة لعمل هذا