ملفات الاستيراد

[أيسم إبراهيم]

السلام عليكم

أستاذنا الفاضل

تفضل الملفين

الملف المستورد إليه وبه كود الاستيراد

http://www.4shared.com/file/111076258/4e20.../Copy_of__.html

الملف المستورد منه

http://www.4shared.com/file/111075566/954f5303/__online.html

تحياتي

[عبدالله باقشير]

السلام عليكم

الروابط هذه لا تعمل عندي

[cat101]

السلام عليكم

أستاذنا الفاضل

تفضل الملفين

الملف المستورد إليه وبه كود الاستيراد

http://www.4shared.com/file/111076258/4e20.../Copy_of__.html

الملف المستورد منه

http://www.4shared.com/file/111075566/954f5303/__online.html

تحياتي

ماهو المطلوب من هذه الملفات حتى تكون الاستفادة عامة وليست شخصية

[أيسم إبراهيم]

السلام عليكم

أستاذنا الغالي

الروابط تعمل بشكل جيد.لسه مجربها حالا

الأخ cat101

الأستاذ سيتكرم على بضبط ملف لاستيراد بيانات بالكود الموجود بالمنتدى منذ فترة .

ياريت حد تاني يقولنا الروابط شغاله ولا لأ. أرجو الرد

تم تعديل يونيو 11, 2009 بواسطه aysam

[عبدالله باقشير]

السلام عليكم

عفوا اخي عصام

بعد اعادة تشغيل الاكسبورت

استطعت تحميل المرفقات

[أيسم إبراهيم]

جزاك الله خيرا أستاذنا

أتتأسف ونحن نثقل على كاهلك بعمل لنا

والله إنها لشيم الكرام

حقا نتعلم منكم العلم والأدب

[عبدالله باقشير]

السلام عليكم

استبدل هذا الكود في فورم الاستيراد

 Sub KHCOPYMYRANGE_Click()

  On Error Resume Next

  Dim MySheet As Workbook

  Dim M As Integer, N As Integer, NN As Integer, C As Integer

  Dim lRows As Integer

  If RefEdit1.Text = "" Then GoTo 1

  On Error GoTo 1

  kh_focopy.Hide

  Application.ScreenUpdating = False

  Application.Calculation = xlManual

	With Range([RefEdit1])

		M = .Rows.Count

		For lRows = 1 To M

			If .Cells(lRows, 1) <> "" Then

				'=======================================================

				' كل صفين يتم اضافة البيانات

				N = N + 2

				'=======================================================

				' تسلسل  البيانات المرحلة

				NN = N / 2

				MyCell.Cells(N, 1) = NN + Last_Count

				'=======================================================

				' سلسلة اعمدة البيانات تمتد من 1 الى 92  بداية من عمود الاسماء

				For C = 1 To 92

						'  ترحيل البيانات

					MyCell.Cells(N, C + 1) = .Cells(lRows, C)

				Next C

			   '=======================================================

			End If

		Next lRows

	End With

	'=======================================================

	MsgBox "تم استيراد عدد " & Chr(32) & NN & Chr(32) & " من السجلات بنجاح", 524288 + vbMsgBoxRtlReading, "الحمدلله"

	'=======================================================

	Application.Calculation = xlAutomatic

	Application.ScreenUpdating = True

	Mybook.Activate

	End

	GoTo 2

1:

	MsgBox "استخدام خاطىء", 524288, "تنبيه"

	On Error GoTo 0

2 

End Sub

[أيسم إبراهيم]

السلام عليكم

أستاذنا

جاري التجريب و إخباركم بالنتيجة إن شاء الله

تحياتي