<1> : 文件夹创建:

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(文件夹全路径名)) Then

'存在

else

'不存在,则创建文件夹

Set f = fso.CreateFolder(文件夹全路径名)

endif

<2> : 判断文件是否存在:

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.fileexists(全路径文件名) then

'存在

else

'不存在

endif

<3> : 具体参考 : http://iceflesh.blog.163.com/blog/static/32423232201071214633409/

<4> : 开始excel操作:

　　Dim xlApp As Excel.Application '定义EXCEL类
            Dim xlBook As Excel.Workbook '定义工件簿类
            Dim xlsheet As Excel.Worksheet '定义工作表类
            Dim usecol As Integer
           
            Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
            xlApp.Visible = False '设置EXCEL不可见,不然运行后会启动excel软件将文件打开.
            Set xlBook = xlApp.Workbooks.Open(GATERESULT.CRESFILEDIR) '打开EXCEL工作簿
            Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
            xlsheet.Activate '激活工作表
'            xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
           
            usecol = xlsheet.UsedRange.Rows.count
           
'            For j = 1 To 7
           
                For i = 1 To GTestItemNum
                                   
                    'xlsheet.Cells(1 + usecol, i) = ATE.MSFlexGrid1.TextMatrix(i, 4)'向excel表单中增加内容
                
                Next
               
'            Next
            xlBook.Save
            xlBook.Close
            xlApp.Quit
           
            Set xlsheet = Nothing
            Set xlBook = Nothing
            Set xlApp = Nothing