手动打开excel文件允许运行公式,使用VBScript或PowerShell打开excel文件或者Python的win32com不打开

2019年8月4日 207次阅读

我有一个脚本没有更新excel文件的问题,我把它减少到以下问题：

如果我打开一个excel文件,我可以转到公式选项卡并单击“立即计算”,它将花费一些时间来更新所有计算.

如果我只是为了打开文件而运行VBScript(参见下面的代码),如果我转到“公式”选项卡并单击“立即计算”,它将立即刷新,不会发生任何变化.

Dim objXLApp, objXLWb, objXLWs

Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = True
Set objXLWb = objXLApp.Workbooks.Open(file_path.xls)

我尝试过各种各样的东西：

objXLApp.Calculation = xlAutomatic
objXLApp.Calculate
objXLApp.CalculateFull
objXLApp.CalculateFullRebuild
objXLWb.RefreshAll
objXLWs.EnableCalculation = True
objXLWs.Calculate

但这些似乎与转到选项卡并单击“计算”相同,导致只是快速刷新,而excel页面根本没有尝试更新.

使用python的win32com模块时也是如此.我无法在打开的文件中运行计算.

import win32com.client as win32

excel = win32.Dispatch('Excel.Application')
excel.Visible = True
excel_workbook = excel.Workbooks.Open(file_path.xls)

使用PowerShell也是如此.

$excel = New-Object -com excel.application
$excel.Visible = $True
$workbook = $excel.Workbooks.Open( $file_path )

那么为什么打开这些语言的文件会以某种方式关闭计算公式的能力呢？

最佳答案 试试这个.只是为了测试.

' Launch Excel...
CreateObject("WScript.Shell").Run "excel.exe"

' Wait for it to load...
WScript.Sleep 5000

' Get the running instance...
Set Excel = GetObject(, "Excel.Application")

' Open your workbook...
Excel.Workbooks.Open strPath

' Now go and click the Calculate button and see if it works.
点赞