将MsFlexGrid控件中显示的内容输出到文本文件

'outdatatotext
'将msflexgrid控件中显示的内容输出到文本文件
public sub outdatatotext(flex as msflexgrid) 
    dim s as string
    dim i as integer
    dim j as integer
    dim k as integer
    dim strtemp as string
    on error goto ert
    me.mousepointer = 11
    on error resume next
    doevents
    dim filenum as integer
    filenum = freefile
    open "d:\aa.txt" for output as #filenum
        with flex
            k = .rows
            for i = 0 to k - 1
                strtemp = ""
                for j = 0 to .cols - 1
                    doevents
                    strtemp = strtemp & .textmatrix(i, j) & ","
                next j
                print #filenum, left(strtemp, len(strtemp) - 1)
            next i
        end with
    close #filenum
    me.mousepointer = 0
    msgbox "导出成功"
ert:
    msgbox err.description
    me.mousepointer = 0
end sub