vbs 关闭excel的piovt table自动刷新

2024-06-01 01:08

本文主要是介绍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自动刷新的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/1019561

相关文章

java中使用POI生成Excel并导出过程

《java中使用POI生成Excel并导出过程》:本文主要介绍java中使用POI生成Excel并导出过程,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录需求说明及实现方式需求完成通用代码版本1版本2结果展示type参数为atype参数为b总结注:本文章中代码均为

SpringBoot中封装Cors自动配置方式

《SpringBoot中封装Cors自动配置方式》:本文主要介绍SpringBoot中封装Cors自动配置方式,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录SpringBoot封装Cors自动配置背景实现步骤1. 创建 GlobalCorsProperties

idea中创建新类时自动添加注释的实现

《idea中创建新类时自动添加注释的实现》在每次使用idea创建一个新类时,过了一段时间发现看不懂这个类是用来干嘛的,为了解决这个问题,我们可以设置在创建一个新类时自动添加注释,帮助我们理解这个类的用... 目录前言:详细操作:步骤一:点击上方的 文件(File),点击&nbmyHIgsp;设置(Setti

GORM中Model和Table的区别及使用

《GORM中Model和Table的区别及使用》Model和Table是两种与数据库表交互的核心方法,但它们的用途和行为存在著差异,本文主要介绍了GORM中Model和Table的区别及使用,具有一... 目录1. Model 的作用与特点1.1 核心用途1.2 行为特点1.3 示例China编程代码2. Tab

利用Python开发Markdown表格结构转换为Excel工具

《利用Python开发Markdown表格结构转换为Excel工具》在数据管理和文档编写过程中,我们经常使用Markdown来记录表格数据,但它没有Excel使用方便,所以本文将使用Python编写一... 目录1.完整代码2. 项目概述3. 代码解析3.1 依赖库3.2 GUI 设计3.3 解析 Mark

一文详解SQL Server如何跟踪自动统计信息更新

《一文详解SQLServer如何跟踪自动统计信息更新》SQLServer数据库中,我们都清楚统计信息对于优化器来说非常重要,所以本文就来和大家简单聊一聊SQLServer如何跟踪自动统计信息更新吧... SQL Server数据库中,我们都清楚统计信息对于优化器来说非常重要。一般情况下,我们会开启"自动更新

Java利用poi实现word表格转excel

《Java利用poi实现word表格转excel》这篇文章主要为大家详细介绍了Java如何利用poi实现word表格转excel,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 一、每行对象类需要针对不同的表格进行对应的创建。package org.example.wordToEx

利用Python实现添加或读取Excel公式

《利用Python实现添加或读取Excel公式》Excel公式是数据处理的核心工具,从简单的加减运算到复杂的逻辑判断,掌握基础语法是高效工作的起点,下面我们就来看看如何使用Python进行Excel公... 目录python Excel 库安装Python 在 Excel 中添加公式/函数Python 读取

基于Python开发批量提取Excel图片的小工具

《基于Python开发批量提取Excel图片的小工具》这篇文章主要为大家详细介绍了如何使用Python中的openpyxl库开发一个小工具,可以实现批量提取Excel图片,有需要的小伙伴可以参考一下... 目前有一个需求,就是批量读取当前目录下所有文件夹里的Excel文件,去获取出Excel文件中的图片,并

Java导入、导出excel用法步骤保姆级教程(附封装好的工具类)

《Java导入、导出excel用法步骤保姆级教程(附封装好的工具类)》:本文主要介绍Java导入、导出excel的相关资料,讲解了使用Java和ApachePOI库将数据导出为Excel文件,包括... 目录前言一、引入Apache POI依赖二、用法&步骤2.1 创建Excel的元素2.3 样式和字体2.