שימוש פשוט ב-File System Object יקל על העבודה שלך.
Private Sub List2Text() Dim fso: Set fso = CreateObject("scripting.filesystemobject") Dim file: Set file = fso.createTextfile(App.Path & "\listtext.txt", True) For i = 0 To List1.ListCount - 1 file.writeline List1.List(i) Next End Sub
1. תרשום את רשימת הפריטים בפנקס רשימות, כל פריט בשורה נפרדת. ואז תעשה גזור והדבק לתוך תיבת הרשימה. 2. תשתמש בממשק של מיקרוסופט ותעבור שורה(פריט) ברשימה על ידי טאב ולא על ידי אנטר.