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

البحث في الموقع

Showing results for tags 'استيراد'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
  • قسم تطبيقات و لغات مايكروسوفت
    • قنوات تعليمية شخصية و دورات تدريبية مجانية و مدفوعة
    • إعلانات شخصية بأجر للاعضاء
    • المنتدى المفتوح
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • دعم أنظمة الويندوز المختلفة
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • منتدى الفيزيو Visio
    • منتدي مايكروسوفت بروجكت Ms Project
    • منتدى الفرنت بيج العام Frontpage
    • تطبيقات Power Apps
    • وان نوت One Note
    • الناشر بابليشر Publisher
    • Communicator
    • Expression Web
    • SQL Server
    • VB.net
    • C#.net
    • Asp.net
  • الغات و أدوات البرمجة الأخرى
    • حوارات الويب العامة
    • Delphi
    • PHP
    • برمجة الاندرويد
  • أقسام الإدارة و إدارة المشاريع و تطبيقاتها
    • الاستراتيجية وإدارة محافظ المشاريع
    • إدارة المشاريع
    • Scaled Agile SAFe
    • إدارة الجودة
    • القيادة و تنمية المهارات
    • Primavera Enterprise
    • Primavera 3.1
  • البحث العلمي و علوم البيانات
    • مناهج البحث العلمي
    • علم الإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
    • Orange
    • R
    • SPSS
    • Python
  • القسم العام
    • مشاركات المدونات
    • نرحب بزوار الموقع
    • قسم الاقتراحات و الملاحظات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • EFQM & DGEP
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

تم العثور علي 9 نتائج

  1. السلام عليكم. أنا أدين لهذا المنتدى بكل معرفتي المتواضعة جداً في الأكسس, ولطالما كان ملاذاً لي في حل كل المشاكل التي تواجهني, ودائما ما كنت أحصل على الحل من المشاركات السابقة, لكن المشكلة التي تواجهني لم أتمكن من إيجاد حل لها, وأنا طامع في أن تزودوني بالحل بأسرع ما يمكن. والمشكلة هي: يوجد عندي برنامج أساسي للفوترة إسمه "Host" ونفس البرنامج موجود مع شخصين مختلفين "User A, User B" وهذان الشخصان يقومان بإدخال بيانات الفواتير التي يقومون بها كل واحد على برنامجه, أريد أن أضع زر في برامج "User A, User B" لتصدير البيانات, وأن أضع في برنامج الـHost زر يُمكنه من إستيراد هذه البيانات المرسلة من قبل "User A, User B" والتي تكون على CD, مع مراعاة أن تتم زيادة البيانات الجديدة على البيانات السابقة في "Host" وتحديث البيانات السابقة التي طرأ عليها تغيير من قبل "User A, User B". مرفق نموذج صغير لهذه البرامج لتكون الفكرة واضحة وإن أمكن التعديل عليها برامج فوترة.zip
  2. السلام عليكم ورحمة الله وبركاته الأخوة الأفاضل أقوم بعمل استيراد للبيانات من الاكسيل لجدول بيانات بقاعدة البيانات، يحتوى على رقم السجل (لايتكرر) والاسم والرقم القومى (يجب أن يحتوى على 14 رقم) وكود النوع عند الاستيراد تظهر رسالة تم الاستيراد بنجاح ولكن قد يكون هناك خطأ حيث لم يستورد جميع البيانات بسبب الشروط الموجوده على الجدول مثل : عدم تكرار رقم السجل أو ان الرقم الوقومى اقل أو اكثر من 14 رقم . أريد إظهار رسالة توضح للمستخدم أن الاستيراد قد تم ولكن هناك خطأ فى الحقل الفلانى (الذى لم يتم الاستيراد بسبب مخالفة الشرط عليه) أو لم يتم الاستيراد إذا لم يتم الاستيراد مطلقا، بمعنى رسالة توضح نوع الخطأ . ومرفق قاعدة بيانات وملف اكسيل للتجربة عليه ولكم جزيل الشكر والسلام عليكم ورحمة الله وبركاته Import from Excel.rar
  3. السلام عليكم ورحمة الله وبركاته لدي برنامج وفيه نموذج ادخال بيانات من الاسم والعمر وتاريخ الميلاد .................الخ وهذه البيانات تطابق البيانات من الموقع الرسمي للوزارة ارغب عند فتح موقع الوزارة والدخول على بيانات مستفيد معين اذهب الى الاكسس واقوم بفتحه والضغط على زر يستورد بيانات ذلك المستفيد من النت الى قاعدة اكسس وشكرا لكم والسلام عليكم ورحمة الله وبركاته
  4. الاخوة الكرام السلام عليكم ورحمة الله وبركاته برجاء المساعدة اذا اردنا ان نستورد اكثر من ورقة عمل من نفس ملف الاكسيل بمعني انه فرضا عندي 10 ورقات عمل واريد استيراد 6 ورقات عمل فقط فما هي الطريقة لعمل ذلك انا قمت بعمل COMBO-BOX يظهر اسماء ورقات العمل ويكون من النوع MULTI-VALUE لكي نتمكن من اختيار اكثر من ورقة عمل في نفس الوقت واستيرادهم كيف يمكن كتابة كود لهذا الامر الملف المرفق يمكن استيراد ملف اكسيل كامل ولكن انا اريد امكانية استيراد مجموعة ورقات عمل او شيتات او استيراد الملف بالكامل مرفق الملف excel to access.rar
  5. السلام عليكم وكل عام وانتم بالف خبر بمناسبه قدوم رمضان الكود المرفق هو استيراد فايل اكسل الى الاكسس بكبسه من الفورم وشغال مثل الحلاوه اذا كان الجول غير موجود اما اذا كان الجدول موجود واريد استيراده مره اخرى فانه يضيفه على الجدول ويكون الجدول مكرر لذا اريد ان عمل الغاء للجدول الموجود بالاكسس قبل كبسه الاستيراد مرفق لكم الكود والداتا بيس ......... الرجاء التعديل على المرفق اذا ما فيها ازعاج Private Sub Command1_Click() Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String Dim strPassword As String ' Establish an EXCEL application object On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Change this next line to True if the first row in EXCEL worksheet ' has field names blnHasFieldNames = True ' Replace C:\Filename.xls with the actual path and filename strPathFile = "D:\test.xls" ' Replace tablename with the real name of the table into which ' the data are to be imported strTable = "test" ' Replace passwordtext with the real password; ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) strPassword = " vbNullString" blnReadOnly = True ' open EXCEL file in read-only mode ' Open the EXCEL file and read the worksheet names into a collection Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , _ strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount ' Close the EXCEL file without saving the file, and clean up the EXCEL objects objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount ' Delete the collection Set colWorksheets = Nothing ' Uncomment out the next code step if you want to delete the ' EXCEL file after it's been imported ' Kill strPathFile End Sub Import.rar
  6. الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته بحثت فى المنتدى عن طريقة استيراد بيانات من ملف إكسيل إلى جدول بالأكسيس ووجدت والحمد لله مثال لحل هذه المشكلة (ومرفق الملف الخاص بها) وتم تنفيذه بنجاح. ولكنى وجدت أن الكود يحدد نوع إصدار واحد لمف الاكسيل إما xls أو xlsx ، فهل من طريقة أو إضافة على الكود تجعل الاستيراد من أى إصدار من الاكسيل؟؟ فأرجو المساعدة فى تنفيذ هذه الخطوة ولكم جزيل الشكر والتقدير والسلام عليكم ورحمة الله وبركاته استيراد بيانات.rar
  7. مساعده لو سمحتو انا عندي جدول اكسل وعندي برنامج اكسس عايز من ضمن النموذج يوجد امر استيراد اذا ضغطنا على الامر يروح ماسح كل بيانات الجدول في اكسس ويضيف البيانات اللي في اكسل هل من الممكن لو سمحتو موظفين.rar
  8. السلام عليكم و شكرا لكم على المنتدى الجميل الذى تعلمنا منه الكثير لدى ملف نصى اريد استيراد لاكسل عن طريق ماكرو او كود فى بى و لقد وجدت احدى المشاركات و قمت بالتجربه و بدا ان الكود يعمل و لكن لم تتم الفرحه لانى عندما قمت بحمايه الورقه توقف عن العمل هل من طريقه لتجاوز المشكله او نصيحه او توجيه الى اكواد اخرى لانى اريد استيرادها فى خانات معينه و ليس من اول الشيت علما ان الملف النصى كله تكست و ايضا عن نجاح الاستيراج يقوم بمسح لون الخلفيه ( !!!) لا ادرى لماذا شكرا جزيلا لكم ملاحظه وضع الملف النصى فى مسار سى درايف او تغير مكانه من الكود مرفق التجربه شكرا ----استيراد ملف.rar
  9. السلام عليكم ورحمة الله وبركاته استيراد اسطر معينة من ملف نصي (مفكرة) بدلالة كلمات موجودة في اسطر الملف النصي وهو طلب لاحدهم جعلته هنا لتعم الفائدة http://www.officena....showtopic=43791 الكود : Option Explicit ''''''''''''''' ' اسم ملف النص Const tName As String = "QQQ.txt" ''''''''''''''''''''''''''''''' ' كلمة البحث عن سطر الكود كما هي في ملف النص Const S1 As String = "كود:" ''''''''''''''''''''''''''''''' ' كلمة البحث عن سطر الاجمالي كما هي في ملف النص Const S2 As String = "الأجــمــالي" ''''''''''''''''''''''''''''''' Sub kh_Import_Lines_of_TextFile() Dim MySplit Dim MyFile As String, MyText As String Dim iRow As Long '============================= ' مسح محتويات الجدول Range("A3:F14").ClearContents ''''''''''''''''''''''''''''''' ' tName الاسم الكامل لملف النص الموجود في مسار ملف الاكسل والذي تم تعيين اسمه في الثابت MyFile = ThisWorkbook.Path & ThisWorkbook.Application.PathSeparator & tName ''''''''''''''''''''''''''''''' ' اول صف لنقل البيانات iRow = 3 '============================= Application.ScreenUpdating = False '============================= Open MyFile For Input Access Read As #1 '============================= While Not EOF(1) Line Input #1, MyText ''''''''''''''' ' S1 اذا كان يحتوي السطر على الكلمة المعينة في الثابت If InStr(MyText, S1) Then ' معالجة السطر لاعطائنا الرقم فقط MyText = Mid$(MyText, InStr(MyText, S1)) MyText = Replace(MyText, S1, "") MyText = WorksheetFunction.Trim(MyText) Range("A" & iRow).Value = MyText End If ''''''''''''''''''''''' ' S2 اذا كان يحتوي السطر على الكلمة المعينة في الثابت If InStr(MyText, S2) Then ' معالجة السطر وتحويله الى اعمدة بالنص الرقمي المطلوب MyText = Replace(MyText, S2, "") MyText = WorksheetFunction.Trim(MyText) MySplit = Split(MyText) With Range("B" & iRow).Resize(1, UBound(MySplit) + 1) .Value = MySplit ' تحويل النص الرقمي في الخلية الى رقم .Replace ",", "." End With iRow = iRow + 1 End If ''''''''''''''''''''''' Wend Close #1 '============================= Application.ScreenUpdating = True '============================= End Sub المرفق ملف اكسل 2003-2007 ملف نصي + صورة استيراد اسطر معينة من ملف نصي.rar =========================================== المرفق الثاني امثلة لاستيراد وتصدير لجدول بيانات مرتب Dim MyCode As Double, MyCur As String, MyDate As Date Sub ExportRange() Dim r As Integer Open ThisWorkbook.Path & "\textfile.txt" For Output As #1 ''''''''''''''''''''' Do r = r + 1 With Range("B6") If Len(Trim(.Cells(r, 1))) = 0 Then Exit Do MyCode = .Cells(r, 1) MyCur = .Cells(r, 2) MyDate = .Cells(r, 3) End With ''''''''''''''''''''' Write #1, MyCode, MyCur, MyDate ''''''''''''''''''''' Loop ''''''''''''''''''''' Close #1 ''''''''''''''''''''' End Sub Sub ImportRange() Dim i As Integer Range("B6").Resize(1000, 3).ClearContents On Error GoTo 1 Open ThisWorkbook.Path & "\textfile.txt" For Input As #1 While Not EOF(1) Input #1, MyCode, MyCur, MyDate i = i + 1 ''''''''''''''''''''' With Range("B6") .Cells(i, 1) = MyCode .Cells(i, 2) = MyCur .Cells(i, 3) = MyDate End With '''''''''''''''''''' Wend Close #1 1: End Sub المرفق ملف اكسل 2003-2007 استيراد تصدير.rar
×
×
  • اضف...

Important Information