اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عمل تعديلات فى بعض خلايا ملف اكسيل2010


اسلام الكباب

الردود الموصى بها

كيف يمكن بكود ال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
585627109_2.png.e7f4476b4932717efd7cfa748865bf43.png585627109_2.png.e7f4476b4932717efd7cfa748865bf43.png
 
أو تظهر لى بعد غلق برنامج الvb6 وفتح ملف الاكسيل هذه الرسالة
314432120_3.png.d035828d83a7c7f95e5eacaa3be1f508.png


ولكم ألف شكر

رسالة خطأ.png

رابط هذا التعليق
شارك

  • 1 month later...

السلام عليكم

رجاء ارفاق جزء من الكود للمراجعه

وبالنسبه لموضوع الملف المفتوح يجب اضافه امر لاغلاق الاكسيل بعد انتهاء العمل

مرفق جزء من كود يوضح التعامل مع الاكسيل عسى ان يكون مفيدا

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

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information