[تنبيه - عنوان غير مناسب : ]التعامل مع إكسل

العنوان غير مناسب

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

مش فاهم السؤال

هل تريد ذلك بكود VB.Net مثلاً...؟

نعم اخي Adel_N كود VB.net

يتم من خلالة التعديل على خلية معين في ملف إكسل

		Dim MyExcel As Excel.Application
		Dim MyWorkBook As Excel.Workbook
		Dim MySheet As Excel.Worksheet
		Dim MyRange As Excel.Range
		Dim SheetName As String, SheetNo As Integer

		' Test to see if there is a copy of Microsoft Excel already running.
		' Getobject function called without the first argument returns a
		' reference to an instance of the application. 
		' If the application is not running, an error occurs.
		Try
			MyExcel = CType(GetObject(, "Excel.Application"), Excel.Application)
		Catch ex As Exception
			Try
				MyExcel = CType(CreateObject("Excel.Application"), Excel.Application)
			Catch eex As Exception
				MsgBox("ُExcel is not installed")
				Exit Sub
			End Try
		End Try

		'Save old Locale( do this if you dont have the arabic kit )
		Dim oldCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
		'
		'Change Locale to English
		System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
		'
		'Open New WorkBook
		'MyWorkBook = MyExcel.Workbooks.Add
		'MySheet = CType(MyWorkBook.ActiveSheet, Excel.Worksheet)
		'
		'Open an existing Workbook
		MyWorkBook = MyExcel.Workbooks.Open(WorkbookName)
		'
		'Open Selected sheet by No or by name then set it as the active sheet
		MySheet = CType(MyWorkBook.Worksheets(1), Excel.Worksheet)
		MySheet.Activate()

		'Clearing Cell (D8)
		MySheet.Range("D8").Select()
		MySheet.Application.Selection.Delete(Shift:=Excel.XlDirection.xlToLeft)
		'
		'Deleting Column E
		MySheet.Columns("E:E").Select()
		MySheet.Application.Selection.Delete(Shift:=Excel.XlDirection.xlToLeft)
		'
		'Move to the Top of the Sheet
		MySheet.Application.ActiveWindow.ScrollRow = 1
		MySheet.Application.ActiveWindow.ScrollColumn = 1
		'
		'MyWorkbook.Save
		MyExcel.Visible = True
		'MyExcel.Parent.Windows(1).Visible = True
		'
		'MySheet.SaveAs("C:\Crouchie1998 Example.xls")
		'
		MyRange = Nothing
		MySheet = Nothing
		MyWorkBook = Nothing
		'objExcel.Quit()
		MyExcel = Nothing
		'
		'Restore old Locale
		System.Threading.Thread.CurrentThread.CurrentCulture = oldCI