admin管理员组文章数量:1536098
2024年6月20日发(作者：)
Excel函数 操作EXCEL 数据表格 表单 编辑EXCEL 工作表
Dim ExcelApp 'As ation
Dim excelSheet 'As eet
Dim excelBook 'As ok
Dim fso 'As scrīstemObject
' *********************************************************************************************
' 函数说明：创建一个Excel应用程序ExcelApp,并创建一个新的工作薄Workbook;
' 参数说明：无
' 调用方法:
' CreateExcel()
' *********************************************************************************************
Function CreateExcel()
Dim excelSheet
Set ExcelApp = CreateObject("ation")
e = True
Set CreateExcel = ExcelApp
End Function
' *********************************************************************************************
' 函数说明：关闭Excel应用程序;
' 参数说明：
' (1)ExcelApp:Excel应用程序名称;
' 调用方法:
' CloseExcel(ExcelApp)
' *********************************************************************************************
Sub CloseExcel(ExcelApp)
Set excelSheet = Sheet
Set excelBook = Workbook
Set fso = CreateObject("scrīstemObject")
On Error Resume Next
Folder "C:Temp"
File "C:"
"C:"
Set ExcelApp = Nothing
Set fso = Nothing
Err = 0
On Error GoTo 0
End Sub
' *********************************************************************************************
' 函数说明：保存工作薄;
' 参数说明：
' (1)ExcelApp:Excel应用程序名称;
' (2)workbookIdentifier:属于ExcelApp的工作薄名称;
' (3)path:保存的路径;
' 返回结果：
' (1)保存成功，返回字符串：OK
' (2)保存失败，返回字符串：Bad Worksheet Identifier
' 调用方法:
' ret = SaveWorkbook(ExcelApp, "Book1", "D:")
' *********************************************************************************************
Function SaveWorkbook(ExcelApp, workbookIdentifier, path) 'As String
Dim workbook
On Error Resume Next '启用错误处理程序
Set workbook = oks(workbookIdentifier)
On Error GoTo 0 '禁用错误处理程序
If Not workbook Is Nothing Then
If path = "" Or path = me Or path = Then
Else
Set fso = CreateObject("scrīstemObject")
'判断路径中是否已添加扩展名.xls
If InStr(path, ".") = 0 Then
path = path & ".xls"
End If
'删除路径下现有同名的文件
On Error Resume Next
File path
Set fso = Nothing
Err = 0
On Error GoTo 0
path
End If
SaveWorkbook = "OK"
Else
SaveWorkbook = "Bad Workbook Identifier"
End If
版权声明：本文标题：Excel函数 操作EXCEL 数据表格 表单 编辑EXCEL 工作表 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1718828164a730419.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论