open "text.csv" for output as 1
for i=1 to x
Print #1,a(1,i)+";"+a(2,i)+";"+a(3,i)
next
close
میشه یه کیورد برا سرچ بهم بدین!به نقل از saeedsmk :خوب يه راحش استفاده از فايل تكسي كه با نام .csv كه تمامي اطلاعات هر سطر پشت سر هم با يك ; از هم جدا ميشن كه نوشتنش راحته
اما راه ديگه استفاده از ole و تغيير سلولهاي اكسل با برنامه نويسي نمونه اش زياده توي اينترنت يه سرچ بزن پيداش ميكنيکد:open "text.csv" for output as 1 for i=1 to x Print #1,a(1,i)+";"+a(2,i)+";"+a(3,i) next close