ارجو المساعدة تسمية ملف نصي من قاعدة بيانات بقيمة موجودة في احد الجداول

هذه طريقة إنشاء ملف نصي والكتابة فيه

Sub CreateFile()
  Dim fs As Object
  Dim A As Object
  Dim FileName As String

  FileName = Application.CurrentProject.Path & "\testfile.txt"

  Set fs = CreateObject("Scripting.FileSystemObject")
  Set A = fs.CreateTextFile(FileName, True)

  A.WriteLine ("الفريق العربي")

  A.Close
End Sub

تفضل اخي الكريم

تصدير الجدول الى ملف نصي ويكون اسم الملف النصي بناء على احد الإختيارات التي تقوم بإختيارها

الاختيار الأول هو : تصدير الملف النصي بواسطة الإسم وتاريخ اليوم وسيكون اسم ناتج الملف النصي بهذا الصيغة ( محمد سالم 2007-08-09 ) طبعا حسب اختيارك من الإسماء الموجوده في النموذج عندما تتنقل بين السجلات فأختر اي سجل ومن ثم قم بتصديره

الإختيار الثاني هو تصدير الملف النصي بواسطة الإسم والرقم وتاريخ اليوم وسيكون اسم ناتج الملف النصي بهذا الصيغة ( محمد سالم 1234 2007-08-09 )

za_TextName_UP.rar

الاخت الفاضلة الأستاذة زهرة اشكر لكي اهتمامك بسؤالي شكراً عميقاً- واسف على التأخير في الرد ولكن السؤال هو أن لدي جدول به بيانات سأقوم باستخراج هذه البيانات عن طريق الماكرو سواء transfer text او output ولكن السؤال المطلوب هو هل يمكن اسم الملف الناتج من هذه العملية هو عبارة عن قيمة موجودة في جدول بالإضافة إلى تاريخ اليوم

وأكرر شكري الجزيل متمنياً لكي دوام التفوق

سالم