+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في فتح ملف اكسيل موجود في Resources (/showthread.php?tid=14012)
مساعدة في فتح ملف اكسيل موجود في Resources - salahalmasry - 04-12-15
السلام عليكم ورحمة الله وبركاتة
زي مهوة واضح عاوز افتح ملف اكسيل موجود في 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
RE: مساعدة في فتح ملف اكسيل موجود في Resources - HASAN6.0 - 04-12-15
(04-12-15, 12:25 AM)salahalmasry كتب : وطبعا على خبرتي المنيلة مش عارف الباقي صح ولاههههه والله انك ظريف , عموما اخي معظم الناس من مبرمجين وغيره يبحثون عن حلول لمشاكلهم في الانترنت وغيره .
وطالما انك تبحث فهذا شيء جميل .
لكن لم افهم شيء . انت تريد فتح ملف الـ Excel من الـ Resource وحفظ التعديلات . ام فقط فتح الملف ؟
RE: مساعدة في فتح ملف اكسيل موجود في Resources - salahalmasry - 04-12-15
الي احتاجة
1-فتح الملف بدون الحفظ
2 -تصدير الملف ل PDF بعدين الاغلاق الملف وبرنامج الاكسيل
RE: مساعدة في فتح ملف اكسيل موجود في Resources - myalsailamy - 04-12-15
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)
و بعد ما تكمل الاجراءات تبعك على الملف قم بحذف الملف
RE: مساعدة في فتح ملف اكسيل موجود في Resources - salahalmasry - 04-12-15
السلام عليكم اخي myalsailamy جربت الكود حقك بس بيجيني خطأ هنا
xlWorkBook = xlApp.xlWorkSheet.Open(filePath)
RE: مساعدة في فتح ملف اكسيل موجود في Resources - myalsailamy - 04-12-15
ضع هنا رسالة الخطا التي تظهر لك
RE: مساعدة في فتح ملف اكسيل موجود في Resources - hassan - 05-12-15
(مستحيل التعديل على ملف في الريسورس وحفظه )
RE: مساعدة في فتح ملف اكسيل موجود في Resources - salahalmasry - 05-12-15
انا مش عاوز احفظ الملف الهدف كلة ادخال بيانات معينة وتصدير النموزج ل pdf وبعدين اغلاق الملف بدون الحفظ