VBS] Excel文件操作

'################################################
'## 功    能：打开指定路径的Excel文件              ##
'## 输入参数：Excel路径                          ##
'## 输出参数：无                                ##
'## 创建日期：2010-01-24                        ##
'## 修改日期：2010-01-24                         ##
'################################################

Function xls_OpenExcelFile(FilePath)

Dim ExcelApp

Dim ExcelBook

Set ExcelApp = CreateObject("Excel.Application")       '创建Excel对象
Set ExcelBook = ExcelApp.Workbooks.Open (FilePath)     '打开指定路径的Excel表格

    ExcelApp.Visible = true                   'true 为显示excel对象，false为不显示

Set ExcelSheet = ExcelApp.Sheets.Item(1)      '选择指定Sheet页

'
'单元格操作代码区域
'
'

      ExcelBook.Save                          '保存工作表
      ExcelApp.Quit                           '退出Excel对象
Set ExcelApp = nothing                        '释放Excel对象

End Function

'################################################
'## 功    能：创建指定路径的Excel文件             ##
'## 输入参数：Excel文件路径                      ##
'## 输出参数：无                                ##
'## 创建日期：2010-01-24                        ##
'## 修改日期：2010-01-24                        ##
'################################################

Function xls_CreateExcelFile(FilePath)

Dim ExcelApp

Dim ExcelSheet

Set ExcelApp = CreateObject("Excel.Application")    '定义一个excel对象
    ExcelApp.Workbooks.Add                          '新建一个excel实例
    ExcelApp.Visible = true                         '显示excel对象
Set ExcelSheet = ExcelApp.Sheets.Item(1)            '获取工作簿的第一个Sheet页
'   ExcelApp.Sheets.Item(1).Select                  '获取工作簿的第一个Sheet页,同样效果

''''单元格操作代码区域

'''''例如:    ExcelSheet.cells(1,1).value = "abcd"               

    ExcelApp.ActiveWorkbook.SaveAs FilePath         '保存工作表
    ExcelApp.Quit                                   '退出Excel对象
Set ExcelApp = nothing                              '释放Excel对象

End Function