مساعدة : كيف يمكن ربط فيجيوال بيسك ب اكسل من اجل تغيير خانات في اكسل

[oudathothefa]

مساعدة : كيف يمكن ربط فيجيوال بيسك ب اكسل من اجل تغيير خانات في اكسل

[oudathothefa]

او اذا ممكن كيف اقدر ان اجعل اكسل ياخذ قرائة تعتمد على الوقت

[Dr.Aoudi]

 Dim Obj As Object
Set Obj = CreateObject("excel.application")
Obj.workbooks.Open (مكان الفايل واسمه )
Obj.Visible = False
Obj.worksheets(1).cells(Row, Column).Value = 827    ===> Row = صف Column = عمود
Obj.activeworkbook.Save
Obj.quit 
  

هذا ما لدي اخي الكريم آمل ان اكون قد افدتك
تحياتي

[oudathothefa]

 Dim Obj As Object
Set Obj = CreateObject("excel.application")
Obj.workbooks.Open (مكان الفايل واسمه )
Obj.Visible = False
Obj.worksheets(1).cells(Row, Column).Value = 827    ===> Row = صف Column = عمود
Obj.activeworkbook.Save
Obj.quit 
  

هذا ما لدي اخي الكريم آمل ان اكون قد افدتك

تحياتي

تسلم يا اخي ما قصرت ولاكن للاسف ما يحل مشكلتي
شكرا الك
احترامي

[Dr.Aoudi]

اخي يمكنك مراسلتي على الخاص وتخبرني بما تحتاج وانا بساعدك