عمل export

هذه الشيفرة تفتح الـ Notepad وتصدر القائمتان إليها.

Dim strExportList As String, n As Integer
strExportList = "List1" & vbTab & "List2" & vbCr
For n = 0 To 25
    strExportList = strExportList & List1.List(n) & vbTab & List2.List(n) & vbCr
Next
Shell "notepad.exe", vbNormalFocus
SendKeys strExportList, True

وهذا ملف كامل لرؤية أوضح.

ListsExport.zip

السلام عليكم ورحمة الله وبركاتة

مثال رائع أخ MMSs بارك الله فيك

الف شكر اخي العزي على المساعدة

wdg wrtgrtrw t4t

أخي الكود اللي انت وضعته عظيم و لكن ملف notbad يظل مفتوح ألا تكمل جميلك و تعطيني الكود الذي يقوم بعمل save للمحتويات و غلق الملف

حسن، تكرم عينك، أضف الشيفرة التالية إلى بداية الشيفرة المذكورة في الأعلى:

Dim strNameOfFile As String
strNameOfFile = "C:\Lists.txt"
Open strNameOfFile For Output As #1
Close #1

ثم أضف السطر التالي إلى نهاية الشيفرة المذكورة في الأعلى:

SendKeys "%{F4}{Enter}" & strNameOfFile & "{Enter}{Tab}{Enter}"

ملاحظة: يمكنك تغير C:\Lists.txt إلى اسم الملف مع الدليل الكامل الذي تريده لحفظ الملف.