如何更新Excel数据?(刷新所有查询)
我有一个包含几个查询的Excel xlsm文件。
目前,我每天都打开它,然后单击"Data"选项卡中的"Refresh All"命令。我希望这是自动完成的。我用Python写了一个脚本(我是Python的新手)。问题是,在刷新数据并保存Excel文件后,刷新的数据不可见(我知道刷新是有效的,因为如果我阻止保存和关闭Excel文件,则刷新的数据在文件中可见)
奇怪的是,保存也很有效,因为当我尝试从"config"修改单元格B2时,单元格被更改了.
问题出在哪里?
import win32com.client
import datetime
from datetime import date, timedelta
yesterday = date.today() - timedelta(1)
office = win32com.client.Dispatch("Excel.Application")
wb = office.Workbooks.Open(r'\serverCC_source.xlsm')
office.DisplayAlerts = True
office.Visible = True
wb.RefreshAll()
sh = wb.Worksheets("config")
sh.Cells(2,2).Value = wczoraj
wb.Close(True)
也许有人可以推荐另一个脚本?例如,PowerShell?PHP? 或Python3的其他库?
PowerShell
既然您请求了另一个脚本来执行此操作,我建议您使用推荐答案。作为一个简单的测试,我创建了一个Excel文档SheetToRechres.xlsx,它具有到一个简单XML文件的数据连接。但是,下面的脚本将适用于Excel文档连接到的任何数据源。我已经在我自己的计算机上对此进行了测试,数据刷新和保存如预期的那样持续存在。
刷新Excel.ps1
#Set the file path (can be a network location)
$filePath = "C:ScriptsSheetToRefresh.xlsx"
#Create the Excel Object
$excelObj = New-Object -ComObject Excel.Application
#Make Excel visible. Set to $false if you want this done in the background
$excelObj.Visible = $true
#Open the workbook
$workBook = $excelObj.Workbooks.Open($filePath)
#Focus on the top row of the "Data" worksheet
#Note: This is only for visibility, it does not affect the data refresh
$workSheet = $workBook.Sheets.Item("Data")
$workSheet.Select()
#Refresh all data in this workbook
$workBook.RefreshAll()
#Save any changes done by the refresh
$workBook.Save()
#Uncomment this line if you want Excel to close on its own
#$excelObj.Quit()
相关文章