调用Excel中的宏
来源:互联网 发布:linux nfs nobody 编辑:程序博客网 时间:2024/06/03 05:08
'过程名称:ExcelFl
'功能描述:调用EXCEL表的宏
'接收参数:sExcelPath:Excel文件的路径,MacroName:调用宏的名称
'返回参数:Ture:执行成功,False:执行失败
'创建人员及日期:zzz@2007-01-15
'注意事项:暂无
Public Function ExcelFl(ByVal sExcelPath As String, ByVal MacroName As String) As Boolean
Dim oXL As Microsoft.Office.Interop.Excel.Application
Dim oWB As Microsoft.Office.Interop.Excel.Workbook
Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim oRng As Microsoft.Office.Interop.Excel.Range
Try
oXL = CreateObject("Excel.Application")
oXL.Visible = True
oWB = oXL.Workbooks.Open(sExcelPath)
oXL.Run(MacroName)
oWB.Close(True)
oXL.Quit()
ExcelFl = True
Catch ex As Exception
Throw New Exception("Error In ExcelFl!!!" & vbCrLf & _
"Source:" & ex.Source.ToString() + " Message:" + ex.Message.ToString())
ExcelFl = False
Finally
oXL = Nothing
oWB = Nothing
oSheet = Nothing
oRng = Nothing
End Try
End Function
'功能描述:调用EXCEL表的宏
'接收参数:sExcelPath:Excel文件的路径,MacroName:调用宏的名称
'返回参数:Ture:执行成功,False:执行失败
'创建人员及日期:zzz@2007-01-15
'注意事项:暂无
Public Function ExcelFl(ByVal sExcelPath As String, ByVal MacroName As String) As Boolean
Dim oXL As Microsoft.Office.Interop.Excel.Application
Dim oWB As Microsoft.Office.Interop.Excel.Workbook
Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim oRng As Microsoft.Office.Interop.Excel.Range
Try
oXL = CreateObject("Excel.Application")
oXL.Visible = True
oWB = oXL.Workbooks.Open(sExcelPath)
oXL.Run(MacroName)
oWB.Close(True)
oXL.Quit()
ExcelFl = True
Catch ex As Exception
Throw New Exception("Error In ExcelFl!!!" & vbCrLf & _
"Source:" & ex.Source.ToString() + " Message:" + ex.Message.ToString())
ExcelFl = False
Finally
oXL = Nothing
oWB = Nothing
oSheet = Nothing
oRng = Nothing
End Try
End Function
- 调用Excel中的宏
- jacob调用Excel中的宏
- 通过VBS代码调用Excel中的宏
- c#调用excel中的vba宏
- delphi 调用 Excel 宏
- delphi 调用 Excel 宏
- EXCEL按钮调用“宏”
- EXCEL用窗体调用宏
- C#调用Excel VBA宏
- Excel创建按钮调用宏
- C#调用Excel VBA宏
- C#调用Excel的宏
- 通过java调用VBS,再用VBS执行Excel中的宏的例子
- 通过java调用VBS,再用VBS执行Excel中的宏的例子
- 通过java调用VBS,再用VBS执行Excel中的宏的例子
- [转载]怎样在VB 中调用Excel 2003 中的数据?
- 如何在aSP中通过OccC调用Excel中的数据
- C#中编程创建、调用Excel 宏
- 使用NUnit在.Net编程中进行单元测试
- 得到文件的版本号
- JComboBox的removeAllItems()方法我遇到的一个异常以及解决
- 使用VMware虚拟机迁移现有的服务器及网络(2)
- SQL Server数据导入、导出需要注意的问题
- 调用Excel中的宏
- OpenCms开发之——自定义结构化类型
- 使用VMware虚拟机迁移现有的服务器及网络(3)
- CppUnit(C++单元测试)--前言
- 通过实例具体讲述事件委托
- 卡巴斯基查杀瑞星卡卡 导致大量用户无法升级
- 备份和还原SQL数据库
- 使用VMware虚拟机迁移现有的服务器及网络(4)
- 打开TXT文件