23、[VBA入门到放弃笔记] 新建工作簿

  • Workbooks.add方法新建一个工作簿,ActiveWorkbook引用该工作簿,SaveAs 另存为其他路径。
Sub 新建工作簿() 
    Workbooks.Add'新建工作簿
 '工作簿另存到其他路径,  \ 后面是工作簿名称：小强.xlsx
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\vba笔记\15.操作工作簿\小强.xlsx"  
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\vba笔记\15.操作工作簿\小李.xlsx"
    Workbooks("小李.xlsx").Activate '激活小李这个工作簿
    '此时两个工作簿都是打开的
End Sub
  • 通过对象变量来新建工作簿
Sub 新建工作簿1() 
    Dim wkb1 As Workbook
    Dim wkb2 As Workbook
    
    Set wkb1 = Workbooks.Add  '新建工作簿
    Set wkb2 = Workbooks.Add
    wkb1.Activate   '激活工作簿
    wkb2.SaveAs Filename:="C:\Users\Administrator\Desktop\vba笔记\15.操作工作簿\小雄.xlsx"  '工作簿另存为其他路径上
End Sub
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容