<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
