精华内容
下载资源
问答
  • VBA-新建工作簿

    2020-02-26 12:09:43
    新建工作簿 这节内容介绍如何应用VBA自动创建工作簿,并修改部分内容后保存关闭。和创建工作表类似,创建工作簿仍然使用add方法。下面是一个较为完整的创建例子: Sub addnewbook() Dim i As Integer Dim shtname ...

    新建工作簿

    这节内容介绍如何应用VBA自动创建工作簿,并修改部分内容后保存关闭。和创建工作表类似,创建工作簿仍然使用add方法。下面是一个较为完整的创建例子:

    Sub addnewbook()
        Dim i As Integer
        Dim shtname As Variant
        Dim newbook As Workbook
        Dim arr As Variant
        Dim sht As Worksheet
        
        shtname = Array("a", "b", "c", "d") '新建工作簿中工作表名称
        arr = Array("1", "2", "3", "4", "5", "6") '工作表中内容
        
        Set newbook = Workbooks.Add '创建工作簿
        With newbook
            .ActiveSheet.Name = shtname(0)
            For i = 2 To 4
                .Sheets.Add after:=.Sheets(newbook.Sheets.Count) '创建工作表
                .ActiveSheet.Name = shtname(i - 1) '更改工作表名字
            Next
            
            For Each sht In .Worksheets
                sht.Range("a1").Resize(1, 6) = arr '修改工作表中内容
            Next
            .SaveAs Filename:="D:\data\1.xlsx" '设置保存路径
            .Close savechanges = True '确定可以更改
        End With
    End Sub
    
    展开全文
  • 问题描述:若干个工作簿,每个工作簿里有一个工作表,如何利用VBA把若干工作簿里的表保存到一个新建工作簿里,并单独成表?
  • NO.139-NO.142内容是:NO.139:如何做到显示工作簿的路径NO.140:如何做到显示工作簿的名称和完全路径NO.141:关闭当前宏代码运行的工作簿,不保存对工作簿的任何更改NO.142:建立新的工作簿并对新建工作簿进行操作...

    8cb7b4a56751d45192bdba6fc2082b9b.png

    分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容多是取至我的“VBA代码解决方案”教程中内容。NO.139-NO.142内容是:

    NO.139:如何做到显示工作簿的路径

    NO.140:如何做到显示工作簿的名称和完全路径

    NO.141:关闭当前宏代码运行的工作簿,不保存对工作簿的任何更改

    NO.142:建立新的工作簿并对新建工作簿进行操作。

    a56e2c6b6101571d69f55e0bd7d1f361.png

    VBA过程代码139:如何做到显示工作簿的路径。

    Sub mynz()

    MsgBox "名称为:" & Workbooks("book21.xlsm").Path

    End Sub

    代码的解析说明:上述过程过程显示工作簿“book21”的路径。

    cabc3ed2bbf7128eb17bf24a1d8047b7.png

    VBA过程代码140:如何做到显示工作簿的名称和完全路径

    Sub mynz()

    MsgBox "第一个打开的工作簿名字为:" & Workbooks(1).Name

    MsgBox "包括完整路径的工作簿名称为:" & Workbooks(1).FullName

    End Sub

    代码的解析说明:上述过程过程用 MsgBox 对话框显示"第一个打开的工作簿名字。

    68714892d82609bf020d4ebfddb03f3a.png

    VBA过程代码141:关闭当前宏代码运行的工作簿,不保存对工作簿的任何更改

    Sub mynz()

    ThisWorkbook.Close SaveChanges:=False

    End Sub

    代码的解析说明:上述过程过程使用Close方法关闭当前宏代码运行的工作簿,不保存对工作簿的任何更改。

    注意 本属性仅可在 Microsoft Excel内使用。不能使用此属性访问任何其他应用程序的工作

    VBA过程代码142:建立新的工作簿并对新建工作簿进行操作

    Sub mynz()

    Dim Nowbook As Workbook

    Dim ShName As Variant

    Dim Arr As Variant

    Dim i As Integer

    Dim myNewWorkbook As Integer

    myNewWorkbook = Application.SheetsInNewWorkbook

    ShName = Array("余额数", "单价数", "数量", "金额数")

    Arr = Array("1月", "2月", "3月", "4月", "5月", "6月", "7月", "8月", "9月", "10月", "11月", "12月")

    Application.SheetsInNewWorkbook = 4

    Set Nowbook = Workbooks.Add

    With Nowbook

    For i = 1 To 4

    With .Sheets(i)

    .Name = ShName(i - 1)

    .Range("B1").Resize(1, UBound(Arr) + 1) = Arr

    .Range("A2") = "品名"

    End With

    Next

    .SaveAs Filename:=ThisWorkbook.Path & "" & "库存.xlsx"

    .Close Savechanges:=True

    End With

    Set Nowbook = Nothing

    Application.SheetsInNewWorkbook = myNewWorkbook

    End Sub

    代码的解析说明:上述过程使用Add方法建立新的工作簿并对新建工作簿进行操作。

    代码将Application对象的SheetsInNewWorkbook属性设置为4,在新建工作簿时插入4张工作表。使用Add方法建立新的工作簿,应用于Workbooks对象的Add方法新建工作簿,新建的工作簿将成为活动工作簿。代码使用SaveAs方法将新建工作簿重命名为“库存.xls”保存在同一目录中。代码使用Close方法关闭工作簿。

    VBA实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA教程,这些是我多年编程经验的记录,也是我“积木编程”思想的体现。每一讲都是较大块的“积木”,可以独立的完成某些或者某类的过程,有需要的朋友可以联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。

    1. 第一套“VBA代码解决方案”PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备。
    2. 第二套“VBA数据库解决方案”PDF教程。数据库是数据处理的利器,对于中级人员应该掌握这个内容了。
    3. 第三套“VBA数组与字典解决方案”PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。
    4. 第四套“VBA代码解决方案”视频教程。目前正在录制,“每天20分钟,半年精进VBA”,越早参与,回馈越多。现在录制到第二册的84讲,第二级阶段的优惠期即将结束。
    展开全文
  • VBA-如何用代码打开工作簿

    万次阅读 2018-05-21 20:19:28
    1.代码很简单,只要把文件路径写清楚就好了Option ExplicitSub 打开工作表()Dim wb As WorkbookSet wb = Workbooks.Open(&...其他的工作簿操作Sub 其他作业()Dim w As Workbook'新建工作表 Set w = Workbooks.Add ...

    1.代码很简单,只要把文件路径写清楚就好了

    Option Explicit
    Sub 打开工作表()
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:/Users/oyq/Desktop/作业/工作簿1.xlsx")

    End Sub

    2.其他的工作簿操作


    Sub 其他作业()
    Dim w As Workbook
    '新建工作表
      Set w = Workbooks.Add
      ' 保存为
      w.SaveAs ""
     
    End Sub



    展开全文
  • 今天我们一起来学习如何VBA快速搞定多个工作簿合并成1个工作簿,让你的效率快到飞起来!操作步骤:1、首先将要合并的工作簿放在同一个文件夹内,比如:2、新建一个excel,命名为合并工作簿模板。单击开发工具——...

    bd1e1fb67236bd25bbcc9cfd48b2b2cf.png

    当我们需要将多个工作簿合并成1个工作簿,可以使用power query,当然也能用SQL、WPS智能工具箱,更可以使用VBA。今天我们一起来学习如何用VBA快速搞定多个工作簿合并成1个工作簿,让你的效率快到飞起来!操作步骤:1、首先将要合并的工作簿放在同一个文件夹内,比如:e39d1da848fed17c123d0e9ca08dd01b.png2、新建一个excel,命名为合并工作簿模板。单击开发工具——插入按钮,命名为:合并工作簿,输入代码:Sub 合并工作簿()    Dim Wb As Workbook, MyPath As String, File, Sh_n As String    Application.ScreenUpdating = False    Rem 关闭屏幕刷新    MyPath$ = ThisWorkbook.Path & "\"    Rem 获取当前工作簿路径    File = Dir(MyPath & "*.xls*")    Rem 获取路径下所有Excel文件    Do While File <> "" '遍历所有文件        If File <> ThisWorkbook.Name Then '不合并当前工作簿            Set Wb = Workbooks.Open(MyPath & File)            Rem 依次打开工作簿            Sh_n = StrReverse(Mid(StrReverse(Wb.Name), InStr(StrReverse(Wb.Name), ".") + 1))            Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)            ActiveSheet.Name = Sh_n            Rem 将第一个表复制到当前工作簿的最后一个工作表            Wb.Close False '关闭工作簿 不保存        End If        File = Dir        Rem 循环下一个工作簿    Loop    Application.ScreenUpdating = False    Rem 打开屏幕刷End SubGIF如下:87ce19e2711115adff5f86115124841f.gif3、点击按钮运行,就能看到excel已经合并多个工作簿。我们可以为宏指定代码,也可以进行编辑代码。也可以在后台直接运行VBA代码。一般是通过插入按钮,来快速执行VBA代码。5aa8bc96fd2a7ea80a7e318f04cb913b.gif你学会了吗?赶紧动手练一下吧。看完有收获,请点亮:在看,分享给身边好友,一起学习,一起进步。

    786fcfa42a77e52e9a411714b9c73c00.png

    展开全文
  • 工作中,我们除了将不同工作簿中的内容合并到一个工作簿外,在同一个工作簿中,...新建一个空白工作表“汇总表”遍历当前工作簿中的所有工作表,当工作表名称不是“汇总表”和 指定工作表时,则将对应内容复制(含格...
  • 1 Workbooks.Add 方法 1.1 语法 新建一个工作表。新工作表将成为活动工作表。 语法 ... Template 可选 Variant 确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串,...
  • 1、 打开VBA编辑前,新建一个模块命名:模块1,输入以下代码实现隐藏工作簿窗口:Public Sub 隐藏工作簿窗口()Dim wb As WorkbookDim wd As WindowSet wb = Workbooks("046隐藏工作簿窗口 (1).xlsm")Set wd = wb....
  • 1、新建一个工作薄,将其命名为你合并后的名字。 2、打开此工作薄。 3、在其下任一个工作表标签上点击右键,选择“查看代码”。 4、在打开的VBA编辑窗口中粘贴以下代码: Sub 工作薄间工作表合并() Dim FileOpen ...
  • 一个Excel工作簿是由多个工作表组成,现在需要将Excel工作簿中的工作表单独提取出来并新建一个工作簿。如果Excel工作簿中的工作表数量比较少,通过右键菜单“移动或复制工作表”就能够快速完成。倘若Excel工作簿中的...
  • 』,我们用数据透视表中的报表筛选器可以快速批量新建工作表,这次介绍把工作表快速转换成工作簿的方法。工作簿本质是一个文件,如果要把工作表变成工作簿其实就是要生成出新的Excel文件出来,Office中并没有生成文件的...
  • 】方法:1、新建一个Excel工作薄,工作簿名称任你定义。2、打开此工作薄,将其中一个Sheet重命名为"汇总"。3、在其下任一个工作表标签上点击右键,选择“查看代码”。4、在打开的VBA编辑窗口中粘贴以下代码:Sub 多...
  • VBA的全称Visual Basic for Applications。在Office等许多软件中...如何学习VBA首先来谈一谈学习VBA的目的,也就是想把VBA学到什么程度,我的想法是:对于跨工作表和工作簿的操作,可以用VBA来完成;对于新建一个用...
  • 假设工作簿中按顺序新建3张表叫1月和2月和3 月。如何切换到第2张表? Sheet2.select //sheet2是表的默认名称。重命名只是给sheet2起一个别名 Sheets(2).select //sheets(2)指工作簿的第2张表 Sheets(“2月”)....
  • 如果表格少,操作如下:选中要导出表格的标签名--鼠标邮件--移动或复制表格--新建工作簿。当如果表格太多呢,以上方法就太罗嗦了。简单方法用VBA,步骤如下:1、创建一个文件夹,将要分离的工作簿放到该文件夹里,...
  • VBA的全称Visual Basic for Applications。在Office等许多软件中...如何学习VBA首先来谈一谈学习VBA的目的,也就是想把VBA学到什么程度,我的想法是:对于跨工作表和工作簿的操作,可以用VBA来完成;对于新建一个用...
  • 1、打开excel2010可以看到右下角小三角,拖住小三角移动,可以改变窗口的的大小(任意修改),那...3、在模块1中输入以下程序:Public Sub 设置工作簿窗口大小()Dim wd As WindowDim myWState As Long, myWidth As Dou...
  • 1、打开excel2010可以看到右下角小三角,拖住小三角移动,可以改变窗口的的大小(任意修改),那...3、在模块1中输入以下程序:Public Sub 设置工作簿窗口大小()Dim wd As WindowDim myWState As Long, myWidth As Dou...
  • 我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建...Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As
  • 工作簿名为“A公司”新建表格,然后把该公司要打卡所有员工信息贴进去,如未在sheet1中找到这个公司要打卡的人姓名,则I列表示N.A 【逻辑】 遍历文件夹中名称不等于自身的表格。 总名单表格为arr 新建的表格...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧41 新建工作簿文件 12 技巧42 打开指定的工作簿 12 技巧43 判断指定工作簿是否打开 12 43-1 遍历Workbooks集合方法 12 43-2 错误处理方法 12 技巧44 禁用宏则关闭工作簿 12 技巧45 关闭工作簿不显示保存对话框 ...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧41 新建工作簿文件 101 技巧42 打开指定的工作簿 103 技巧43 判断指定工作簿是否打开 106 43-1 遍历Workbooks集合方法 106 43-2 错误处理方法 106 技巧44 禁用宏则关闭工作簿 107 技巧45 关闭工作簿不显示保存...
  • Excel VBA自定义功能区

    2021-04-07 21:18:17
    我们新建一个 Excel 文档,另存为启用宏的工作簿 (xlsm) 格式(文件名:工作簿1.xlsm),将文件名更名为:工作簿1.xlsm,zip。忽略警告。用 winrar 软件打开可以看到 xlsm 的内部文件结构如下: 在 _rels 文件夹下面...
  • 文件要打开看过后就自动删除,如何通过VBA程序来实现呢? 解决方案:将文件的ChangeFileAccess属性设置为只读,即xlReadOnly,...第一步:新建一个工作簿(也可以打开已经存在的工作簿),按Alt+F11组合键打开VBE窗...
  • Step1:首先把我们的工作簿另存为带有宏的工作簿(.xlsm) Step2:定义名称,单击【公式】选项卡,在定义的名称选项组中选择“定义名称”,然后在弹出的“新建名称”对话框中,在名称栏定义一个名称,在引用位置®:...
  • 今天在用Excel编辑资料,想让它总在窗口前显示,上网搜到了解决办法,试了一下,很有效,分享出来! 在使用Excel办公时我们需要让Excel窗口总是显示在最前面而不被别...1、新建一个工作簿,按Alt+F11,打开VBA编辑器。
  • 新建一个空白工作e69da5e887aa3231313335323631343130323136353331333365663531簿,在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境,如下...
  • 很多初学者在学习VSTO时,觉得很迷茫,举一个简单的例子,在VBA中,添加SheetChange的事件,非常容易。 ...新建一个Excel工作簿,然后,双击ThisWorkbook,然后选择事件,再接下来,找到SheetCh...
  • 本文实例介绍了如何使用python win32com模块操作Excel(具体功能...xlWb=xlApp.Workbooks.Add() # 新建工作簿 xlWsh=xlWb.Worksheets.Add() # 创建工作表 xlWsh.Name=MySheet # 为工作表取名 xlRng=xlWsh.Range(A1:D5

空空如也

空空如也

1 2
收藏数 37
精华内容 14
关键字:

vba如何新建工作簿