转载:http://www.51testing.com/?uid-235643-action-viewspace-itemid-222904
'################################################
'## 功 能:打开指定路径的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
'***********************************************************************
'函数说明:更改单元格字体的颜色
'参数说明:
' (1)Set_wkSheet工作表名称
' (2)row:列的序号;
' (3)column:行的序号;
' (4)lx:类型,(zt:字体;dyg:单元格),空或
其他为字体。
' (5)color:将字体改变为什么颜色
'
'常数 值 描述
'vbBlack &h00 黑色
'vbRed &hFF 红色
'vbGreen &hFF00 绿色
'vbYellow &hFFFF 黄色
'vbBlue &hFF0000 蓝色
'vbMagenta &hFF00FF 紫色
'vbCyan &hFFFF00 青色
'vbWhite &hFFFFFF 白色
'
'***********************************************************************
Function AlterColor(Set_wkSheet,row,column,lx,Color)
Dim wksheet1
Dim cell
Set wkSheet1 = wkBook.Worksheets(Set_wkSheet)
Set cell=wkSheet1.Cells(row, column)
Select Case lcase(lx)
Case "zt" cell.Font.Color=color '改变字体颜色
Case "dyg" cell.Interior.Color=color '改变单元格颜色
Case Else cell.Font.Color=color
End Select
set wkSheet1 = Nothing
End Function
'***********************************************************************
'函数说明:打开Excel文件。
'参数说明:
' path:要调用的Excel文件的路径 .如("c:\test.xls")
' open: 是否打开Excel程序打开文件,Y为使用,空或其他为不使用
'***********************************************************************
Sub OpenExcel(path,open)
Set ExcelApp = CreateObject("Excel.Application")
Set wkBook = ExcelApp.workbooks.open(path)
If pen="y" Then
ExcelApp.Application.Visible=True
End If
End Sub
***********************************************************************
'函数说明:向excelSheet单元格输入值。
'参数说明:
' (1)Set_wkSheet工作表名称
' (2)row:列的序号;
' (3)column:行的序号;
' (4)value:要输入的值
'***********************************************************************
Function SetCellValue(Set_wkSheet,row,column,value)
Dim wksheet1
Set wkSheet1 = wkBook.Worksheets(Set_wkSheet)
wkSheet1.Cells(row, column) = value
Set wkSheet1
End Function