vba实用操作代码(打印工作表)

代码诗人
• 阅读 2930

hetong文件下打印所有"专项经费使用范围"工作表

Sub Macro1()
  Dim fn As String, wb As Workbook, ws As Worksheet, i As Long
  fn = Dir("C:\Users\fuxingyu\Desktop\hetong\*.xlsx")
  Do While fn <> ""
    Set wb = Workbooks.Open("C:\Users\fuxingyu\Desktop\hetong\" & fn)
    For Each ws In wb.Worksheets
        If Right(Trim(ws.Range("A1")), 8) = "专项经费使用范围" Then
            ws.PrintOut copies:=1
        End If
    Next ws
    wb.Close
    fn = Dir
  Loop
  
  End Sub
点赞
收藏
评论区
推荐文章
Souleigh ✨ Souleigh ✨
4年前
34 个 JavaScript 代码优化技巧
1. 含有多个条件的if语句我们可以在数组中存储多个值,并且可以使用数组的includes方法。//longhandif (x  'abc' || x  'def' || x  'ghi' || x 'jkl') {    //logic}//shorthandif ('abc', 'def
Easter79 Easter79
3年前
sql注入
反引号是个比较特别的字符,下面记录下怎么利用0x00SQL注入反引号可利用在分隔符及注释作用,不过使用范围只于表名、数据库名、字段名、起别名这些场景,下面具体说下1)表名payload:select\from\users\whereuser\_id1limit0,1;!(https://o
Wesley13 Wesley13
3年前
java 快速开发平台 有代码生成器 springmvc SSM后台框架源码
!(https://oscimg.oschina.net/oscnet/201a7ab76d3d9f0ebc422770a34cf4c7370.png)A代码编辑器,在线模版编辑,仿开发工具编辑器,pdf在线预览,文件转换编码B集成代码生成器\正反双向\(单表、主表、明细表、树形表,快速开发利器)快速表单
Easter79 Easter79
3年前
springboot+mybatis+达梦数据库
准备工作:首先,安装达梦6数据库。安装完之后如下建表!(https://oscimg.oschina.net/oscnet/56a34f632f1f61e6c38a1027a560fb69ead.png)然后,很重要的一点(写法一定要这样写,否则无限报错)达梦数据库查表方式:select \ from  "库名"
Wesley13 Wesley13
3年前
java获取配置文件信息
两个类!(https://oscimg.oschina.net/oscnet/51b1ff34c4c62c7cc0e0ce996c09752e4da.jpg)!(https://oscimg.oschina.net/oscnet/bd2d74279a56ca8de6c42d190305db9cde8.jpg)packagecom.
Kent_Sun Kent_Sun
4年前
java中List数组遍历删除
List数组遍历删除环境jdk8junit单元测试正解java//正解1,jdk自带的addAll方法@Testpublicvoidtest18(){Stringstrs{"12","34","56","78","90"};List<StringlistAr
Stella981 Stella981
3年前
C++ stat判断路径是文件还是目录
Cstat判断路径是文件还是目录1include<iostream2include<sys/stat.h34usingnamespacestd;56voidfoo(constcharpath){7structst
Wesley13 Wesley13
3年前
Java8为什么提供LocalDate、LocalTime、LocalDateTime 时间类
Java8为什么提供LocalDate、LocalTime、LocalDateTime时间类?Date不格式化打印可读性差。TueSep1009:34:04CST2019使用SimpleDateFormat对时间进行格式化,但SimpleDateFormat是线程不安全
Stella981 Stella981
3年前
R语言的xtabs函数
今天在做一个列联表独立性检验的时候,总是无法处理好要求的数据类型,偶然的机会,看到了xtabs()函数,感觉很适合用来做列联表,适合将一列数据转换成列联表。shifou<c("yes","yes","no","no")xinbie<c("nan","nv","nan","nv")freq<c(34,38,28
Wesley13 Wesley13
3年前
Java学习之集合(HashSet)
HashSet的实例1importjava.util.HashSet;2importjava.util.Iterator;34publicclassHashSetDemo{56publicstaticvoidmain(Stringargs){
Stella981 Stella981
3年前
Android蓝牙连接汽车OBD设备
//设备连接public class BluetoothConnect implements Runnable {    private static final UUID CONNECT_UUID  UUID.fromString("0000110100001000800000805F9B34FB");