اسلام الكباب قام بنشر مايو 28, 2022 مشاركة قام بنشر مايو 28, 2022 كيف يمكن بكود الvb6 عمل تعديلات فى بعض خلايا ملف اكسيل2010 ثم حفظ هذه التعديلات فيه بحيث اذا فتحت هذا الملف بعد ذلك يفتح مباشرة وأجد هذه التعديلات قد تمت فيه لدى مثلآ ملف اكسيل اسمه book1.xlsx أريد كود الزرCOMMAND1 لتعديل قيمة الخلية C2 الى 346 ، وتعديل قيمة الخلية E5 الى 1286 ، وكود الزرCOMMAND2 لتعديل قيمة الخلية F1 الى 598 بحيث اذا أغلقت بعدها برنامج الVB وفتحت ملف الاكسيل يفتح وبه هذه التعديلات دون أى رسالة عن ال WRITE-RAD أو أى رسالة أخرى لأنى حاولت ولكن دائمآ تظهر لى أثناء تشغيل برنامج الvb6 احدى هتين الرسالتين file:///F:/Users/Muslim/Desktop/%D8%B1%D8%B3%D8%A7%D9%84%D8%AA%D8%A7%20%D8%AE%D8%B7%D8%A3/New%20folder/%D8%B1%D8%B3%D8%A7%D9%84%D8%A9%20%D8%AE%D8%B7%D8%A3%202.png أو تظهر لى بعد غلق برنامج الvb6 وفتح ملف الاكسيل هذه الرسالة ولكم ألف شكر رابط هذا التعليق شارك More sharing options...
أسامة البراوى قام بنشر يوليو 5, 2022 مشاركة قام بنشر يوليو 5, 2022 السلام عليكم رجاء ارفاق جزء من الكود للمراجعه وبالنسبه لموضوع الملف المفتوح يجب اضافه امر لاغلاق الاكسيل بعد انتهاء العمل مرفق جزء من كود يوضح التعامل مع الاكسيل عسى ان يكون مفيدا Private Sub ExportToExcel_Click() On Error Resume Next 'GoTo errhand Dim appXL As New Excel.Application Dim wbk As Excel.Workbook Set wbk = appXL.Workbooks.Add(Template:=App.Path & "\Templates\MyTemplate") DatPayments.Recordset.MoveFirst SSPanel1.Visible = True ProgressBar1.Value = 0 With wbk.Sheets(1) .Cells(3, 3).FormulaR1C1 = ": " & Me.VP_SelectProject.Text ' .DatPayments.Recordset!ProjectCode.Value .Cells(4, 3).FormulaR1C1 = ": " & Me.VPprojectName.Caption .Cells(6, 3).FormulaR1C1 = ": " & Me.VvenName .Cells(7, 3).FormulaR1C1 = Me.lblConValue.Caption With .Range("A" & 9 + 1 & ":m" & 9 + i - 1) .Borders(xlEdgeLeft).LineStyle = xlDouble .Borders(xlEdgeTop).LineStyle = xlDouble .Borders(xlEdgeBottom).LineStyle = xlDouble .Borders(xlEdgeRight).LineStyle = xlDouble .Borders(xlInsideVertical).Weight = xlThin .Borders(xlInsideVertical).LineStyle = xlContinuous .Borders(xlInsideHorizontal).Weight = xlThin .Borders(xlInsideHorizontal).LineStyle = xlContinuous End With End With wbk.Name = "aaa" 'Close objects and component and free memory. wbk.Save wbk.Close appXL.Quit Set appXL = Nothing Exit Sub End Sub 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.