'Save text file Dim f%, i% f = FreeFile Open "C:\Documents and Settings\All Users\Desktop\New location: " & Format(Now, "yymmddhhmmss") For Output As #f file_name = "New location: " & Format(Now, "yymmddhhmmss") For i = 0 To List1.ListCount - 1 List1.Selected(i) = True Print #f, List1.List(List1.ListIndex) Next Close #f FreeFile f
|Need Help,, i m beginner in vba,, i'm writing a code for exporting the data from Userform to Access Database||13||105|
|VBA to copy paste columns form one file to other||20||85|
|VB6 - Convert HH:MM into Decimal||8||51|
|Passing a Text Box name to a Sub||6||74|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!