兰色幻想vba-作业1

代码如下：

Public Sub copy_table()

Sheets("日报表模板").Visible = True

    Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)

    Set sh = ActiveSheet

        sh.Name = CStr(Sheets.Count - 2) & "日报表"

    Sheets("日报表模板").Visible = False

End Sub

Public Sub saveas_table()

Dim ipath As String, sht As Worksheet, str_name As String, x As Integer

    Application.ScreenUpdating = False

    ipath = ThisWorkbook.Path & "\"

    For x = 3 To Sheets.Count

Sheets(x).Copy

Set wb = ActiveWorkbook

wb.SaveAs ipath & Sheets(x).Name & ".xlsx"

        wb.Close True

    Next
    Application.ScreenUpdating = True
End Sub

有问题欢迎大家交流进步，邮箱xgf05191995@gamil.com

兰色幻想vba-作业1相关推荐

VBA完整学习笔记1-39集（共60集）
目录第1集:宏与VBA 1 什么是VBA,它有什么作用 2 VBA在哪里存放的?怎么运行的 3.什么是宏?宏和VBA有什么关系? 4.录制一个宏 5.编写第一个宏第2集:VBA中的语句.对象.方法 ...
截取指定字符前_VBA学习笔记35-1:字符串拆分与组合
学习资源:<Excel VBA从入门到进阶>第35集 by兰色幻想本课的示例都在立即窗口展示运行结果,要在立即窗口展示的话要使用"Debug.Print". Debu ...
select * from where 三个条件_VBA学习笔记70: Select语句基础
学习资源:<Excel VBA从入门到进阶>第72集 by兰色幻想这节课来详细讲解Select语句. Select 字段 from 表 where 条件例:从sheet1中筛选全部数据 ...
kendo treeview 修改节点显示值_VBA学习笔记60-1: Treeview控件
学习资源:<Excel VBA从入门到进阶>第60集 by兰色幻想本节讲Treeview控件. TreeView控件是以树形结构显示数据的控件.利用TreeView控件,可以设计出树形结 ...
递归调用层数太多_VBA学习笔记46:组合之递归算法(没写后补）
学习资源:<Excel VBA从入门到进阶>第46集 by兰色幻想 1 什么是递归? 递归算法是一种直接或者间接调用自身函数或者方法的算法. 2,用递归有什么好处? 简化代码,让程序更简捷 ...
建立数组并写入数据_VBA学习笔记19:数组1
学习资源:<Excel VBA从入门到进阶>第20集 by兰色幻想一.什么是VBA数组? VBA数组就是储存一组数据的数据空间,数据类型可以数字,可以是文本,可以是对象,也可以是VBA数 ...
Excel学习路径总结
本片涉及从入门到Excel的各个方向,包含众多资料和自己学习的心得,希望您可以仔细阅之: 入门篇: 无论是软件,还是编程,最好的入门就是通过看视频来学习,视频优点为很容易看清楚,手把手教授,不容易发困 ...
vb.net listview 删除选定行_VBA学习笔记59-1: listview控件
学习资源:<Excel VBA从入门到进阶>第59集 by兰色幻想本节学习Listview控件,它可以用多种视图方式显示项目的控件.由于其外形美观而且非常实用,所以使用频率很高. Lis ...
c++find函数_Excel中八大经典函数组合，帮你整理齐了
来源:Excel精英培训作者:兰色幻想-赵志东在Excel公式中,有些函数是独行侠,而有些函数经常是成对出现的,今天小编就带大家一起盘点Excel表格中八大经典函数组合. 1.IF + And 作 ...

兰色幻想vba-作业1

兰色幻想vba-作业1相关推荐

最新文章

热门文章