vbs 关闭excel的piovt table自动刷新

代码如下（拷贝，将文件后缀修改为.vbs即可）：

注：如果在运行时包字节错误，此问题是vbs文件编码在电脑中没有。简单的解决办法就是修改文件的编码格式（用text打开，另存为，选择编码格式。这里可以挨个选择，看那个可以运行就保存哪个）。另外一种就是在电脑的Region里面去配置，安装和vbs编码相同的环境

Function FilesTree(sPath)
dim oExcel,oWb,oSheet
set oExcel= CreateObject("Excel.Application")

'for each in folder all file
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sPath)
Set oSubFolders = oFolder.SubFolders

Set oFiles = oFolder.Files
For Each oFile In oFiles
if instr(oFile,"~$") = 0 then
' WScript.Echo oFile.Path
'Set oWb = oExcel.Workbooks.Open(oFile,,false)


oExcel.DisplayAlerts = false
Set oWb = oExcel.WorkBooks.Open(oFile,false,false)
oExcel.DisplayAlerts = false

' Set oWb = myOBJ.WorkBooks.Open(FileName:= "XXX",, ReadOnly:=false)
'oWb.ActiveSheet.PivotTables("PivotTable1").PivotCache.RefreshOnFileOpen = false
oWb.Sheets("Summary report").PivotTables("PivotTable1").PivotCache.RefreshOnFileOpen = false
' set oFile = replace(oFile,"Test","Test2")

   ' oWb.SaveCopyAs(replace(oFile,"AAA","BBB"))
oWb.save
oWb.Close 'SaveChanges = true
'oExcel.Quit
'oFile.Delete
end if
Next

'For Each oSubFolder In oSubFolders
' WScript.Echo oSubFolder.Path
'oSubFolder.Delete
' FilesTree(oSubFolder.Path)'递归
'Next

Set oFolder = Nothing
Set oSubFolders = Nothing
Set oFso = Nothing
msgbox "run successfully"
End Function

FilesTree("文件路径") '

vbs 关闭excel的piovt table自动刷新相关推荐

html增删改后让table自动刷新,vue如何实现表格增删改查效果
vue如何实现表格增删改查效果发布时间:2021-04-23 14:34:54 来源:亿速云阅读:90 作者:小新小编给大家分享一下vue如何实现表格增删改查效果,相信大部分人都还不怎么了解,因 ...
关闭子窗口父窗口自动刷新
function clsoseForm() { window.opener.location.href=window.opener.location.href; window.opener.locat ...
EasyAdmin弹出层关闭后如何自动刷新当前页面
找到easy-admin.js 搜索$('body').on('click', '[data-open]', function () 下面内容替换这个方法 $('body').on('click', ...
Python win32com 控制excel自动刷新保存数据并截图发送到企业微信
Python win32com 控制excel自动刷新保存数据并截图发送到企业微信业务需求功能模块爬虫运行excel宏,刷新保存excel数据指定区域截图发送图片到企业微信业务需求每天 ...
【PowerQuery】Excel 自动刷新PowerQuery连接
Excel集成的PowerQuery提供了数据的手动刷新功能之外,也提供了数据的自动刷新功能.需要注意的是,PowerQuery提供的自动刷新功能是针对连接的,也就是说在PowerQuery自动刷新功 ...
vbs 对excel的操作删除、修改单元格，设置字体、背景色 .
vbscript 中对excel常见操作 dim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") S ...
VBS遍历Excel工作表的方法
这篇文章主要介绍了VBS遍历Excel工作表的实现代码,需要的朋友可以参考下核心代码 '****************************************** '拖拽文件,获取文件路径 ...
141_Power Query之获取钉钉审批流自动刷新Power BI报告
博客:www.jiaopengzi.com 焦棚子的文章目录请点击下载附件一.背景钉钉办公给很多企业带来了很多方便,比如审批流线上化,通用化.线上化填写后,数据自动获取又是一个硬伤了,虽然数据可 ...
layui标签页切换并自动刷新
layui每打开一个页面就会以标签页的形式保留在导航条上,然而我们在其他的标签页改了数据,再切换回去页面数据还是以前的,这里就需要一个切换标签页显示并自动刷新当前标签页咯,保证每次切换回来就能看到新数 ...

vbs 关闭excel的piovt table自动刷新

vbs 关闭excel的piovt table自动刷新相关推荐

最新文章

热门文章