使用ActiveWorksheet而非filepath VBA访问excel文档的文件属性

使用ActiveWorksheet而非filepath VBA访问Excel文档的文件属性是指通过VBA代码来获取当前活动的工作表（Worksheet）的文件属性，而不是通过文件路径（filepath）来访问。

在VBA中，可以使用ActiveWorksheet对象来引用当前活动的工作表。通过ActiveWorksheet对象，可以获取工作表的各种属性，包括文件属性。

文件属性是指与Excel文档文件相关的信息，例如文件路径、文件名、创建日期、修改日期等。通过获取文件属性，可以对Excel文档进行更加灵活和精确的操作。

下面是获取当前活动工作表文件属性的示例代码：

Sub GetWorksheetFileProperties()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 获取文件路径
    Dim filePath As String
    filePath = ws.Parent.FullName
    
    ' 获取文件名
    Dim fileName As String
    fileName = ws.Parent.Name
    
    ' 获取创建日期
    Dim createdDate As Date
    createdDate = FileDateTime(filePath)
    
    ' 获取修改日期
    Dim modifiedDate As Date
    modifiedDate = FileDateTime(filePath)
    
    ' 输出文件属性
    MsgBox "文件路径：" & filePath & vbCrLf & _
           "文件名：" & fileName & vbCrLf & _
           "创建日期：" & createdDate & vbCrLf & _
           "修改日期：" & modifiedDate
End Sub

这段代码首先通过ActiveSheet获取当前活动的工作表对象，然后使用Parent属性获取该工作表所属的工作簿对象。通过工作簿对象的FullName属性和Name属性，可以获取文件路径和文件名。同时，使用FileDateTime函数可以获取文件的创建日期和修改日期。

最后，通过MsgBox函数将文件属性输出到消息框中。

推荐的腾讯云相关产品和产品介绍链接地址：

• 腾讯云对象存储（COS）：提供高可靠、低成本的云端存储服务，适用于存储和处理各种非结构化数据。产品介绍链接
• 腾讯云云服务器（CVM）：提供弹性、安全、稳定的云服务器，可满足各种计算需求。产品介绍链接
• 腾讯云数据库MySQL版：提供高性能、可扩展的MySQL数据库服务，适用于各种规模的应用。产品介绍链接
• 腾讯云人工智能平台（AI Lab）：提供丰富的人工智能服务和开发工具，帮助开发者快速构建和部署AI应用。产品介绍链接
• 腾讯云物联网平台（IoT Hub）：提供可靠、安全的物联网连接和管理服务，支持海量设备接入和数据传输。产品介绍链接
• 腾讯云移动推送（TPNS）：提供高效、稳定的移动推送服务，帮助开发者实现消息推送和用户管理。产品介绍链接