PowerShell获取当前工作簿修改时间

把文件地址替换为实际文件地址的全路径

宏编辑器里复制粘贴下面代码

function Workbook_act(){

Range("I3").PasteSpecial()

//'C:\\Users\\Computer\\Documents\\工作簿2.xlsm'

}

function Workbook_Activate(){

let a = Shell(`powershell -command "$lastSaved = (Get-Item 'C:\\Users\\Computer\\Documents\\工作簿2.xlsm').LastWriteTime

Set-Clipboard -Value $lastSaved"`,jsHide)

Application.OnTime(new Date(Date.now()+1500).toTimeString().split(" ")[0],"Workbook_act")

}

补充：也可以这样:

function Workbook_act(){
       Range("I3").PasteSpecial()           
}

function Workbook_Activate(){    
    let a = Shell(`powershell -command "$lastSaved = (Get-Item "${ThisWorkbook.FullName}").LastWriteTime
Set-Clipboard -Value $lastSaved"`,jsHide)
    Application.OnTime(new Date(Date.now()+1500).toTimeString().split(" ")[0],"Workbook_act")
}