多个excel表,每天自动打开,数据自动更新,写了vbs自动保存关闭,但打开后如不先选中下excel,vbs运行没效果

每天表格自动打开更新后,vbs设定了自动运行,不过运行后没效果,总需要手动切换到表格界面,在切回来,运行vbs,才能生效,哪位大神知道这是为什么,问题出在哪on error resume nextSet excelApp=getObject(,"excel.application")if err.number=0 thenon error goto 0excelApp.DisplayAlerts=falsefor i=excelApp.workbooks.count to 1 step -1excelApp.workbooks(i).saveexcelApp.workbooks(i).closenextexcelApp.quitset excelApp=Nothingend if这是写的vbs
2026年09月27日 08:58
有3个网友回答
网友(1):

1

选中所有数据。

  • 2

    点击上方工具栏的“插入”。

  • 3

    然后点击“数据透视表”。

  • 4

    弹出窗口后,勾选“现有工作表”,随意选择一个单元格,然后点击确定。

  • 5

    然后将上方选项按照自己的需求拖动到下方矩形框中。

  • 6

    输入新数据后右键点击,选择“刷新”即可。

网友(2):

这要看你的vba是怎么写的

网友(3):

没看见文件没法帮你分析呀