使用VBScript从动态列中获取EXCEL工作表中文件大小的总和

' 创建Excel对象
Set objExcel = CreateObject("Excel.Application")

' 打开Excel文件
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\your\excel_file.xlsx")

' 选择工作表
Set objWorksheet = objWorkbook.Worksheets("Sheet1")

' 获取动态列的范围
Set objRange = objWorksheet.Range("A1").End(-4162) ' -4162表示向上查找

' 定义变量用于存储文件大小总和
totalSize = 0

' 遍历动态列中的每个单元格
For Each objCell In objRange
    ' 获取文件路径
    filePath = objCell.Value
    
    ' 检查文件是否存在
    If objFSO.FileExists(filePath) Then
        ' 获取文件大小
        Set objFile = objFSO.GetFile(filePath)
        fileSize = objFile.Size
        
        ' 累加文件大小到总和
        totalSize = totalSize + fileSize
    End If
Next

' 关闭Excel文件
objWorkbook.Close

' 释放对象
Set objFile = Nothing
Set objRange = Nothing
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing

' 输出文件大小总和
WScript.Echo "文件大小总和：" & totalSize & " 字节"