如何写文件

Question

把一个近似二维表的内容逐行写到文本文件里,每个字段用TAB分开
比如:
a sdds  kdjsfjj  dfasd
dd ddfd  kdsfja  dsafjkdskj请问如何操作啊?

Answer 1

dim i as integer 
 dim j as integer
open "D:\10.txt" for output as #1
    for i =  0 to ubound(a,1)
      for j = 0 to ubound(a,2)
        print #1 , a(i,j) & vbtab & ;
      next
        print #1,vbcrlf            ‘ 换行
   next
close #1
看看对不对，没有调试