Excel VBA工作簿与工作表的操作

Excel VBA 专栏收录该内容
6 篇文章 1 订阅

1.保存当前工作簿

Public Sub保存当前工作簿()
    Dim wb As Workbook
    Set wb = ThisWorkbook    '可指定任意工作簿
    wb.Save
    Set wb = Nothing
End Sub

如果是第一次保存工作簿,请使用SaveAs方法为该文件指定文件名

Public Sub 另存工作簿()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.SaveAs ("C:\Users\Lenovo\Desktop\另存工作簿.xlm")
End Sub

如果用户希望工作簿在保存为另一文件名后,能继续编辑原工作簿,那么可以使用SaveCopyAs方法

Public Sub 保存工作副本()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.SaveCopyAs("C:\Users\Lenovo\Desktop\保存工作簿副本.xlm"

2.获取打开Excel程序的默认路径

Public Sub 默认路径()
    MsgBox "打开Excel文件时使用的默认路径是: " & Application.DefaultFilePath
End Sub

工作表操作


1、 判断A工作表文件是否存在

Sub s1()
 Dim X As Integer
  For X = 1 To Sheets.Count
    If Sheets(X).Name = "A" Then
      MsgBox "A工作表存在"
      Exit Sub
    End If
  Next
  MsgBox "A工作表不存在"
End Sub

2 、excel工作表的插入

Sub s2()
Dim sh As Worksheet
Set sh = Sheets.Add
sh.Name = “模板”
sh.Range(“a1”) = 100 End Sub


3、 excel工作表隐藏和取消隐藏

Sub s3()
Sheets(2).Visible = True
End Sub


4 、excel工作表的移动

Sub s4()
Sheets(“Sheet2”).Move before:=Sheets(“sheet1”) ‘sheet2移动到sheet1前面
Sheets(“Sheet1”).Move after:=Sheets(Sheets.Count) ‘sheet1移动到所有工作表的最后面 End Sub


5 excel工作表的复制

Sub s5() ‘在本工作簿中
Dim sh As Worksheet
Sheets(“模板”).Copy before:=Sheets(1)
Set sh = ActiveSheet
sh.Name = “1日”
sh.Range(“a1”) = “测试”
End Sub


   Sub s6()                        '另存为新工作簿
  Dim wb As Workbook
   Sheets("模板").Copy
   Set wb = ActiveWorkbook
      wb.SaveAs ThisWorkbook.Path & "/1日.xls"
      wb.Sheets(1).Range("b1") = "测试"
      wb.Close True    End Sub

6 保护工作表

Sub s7()
Sheets(“sheet2”).Protect “123”
End Sub


Sub s8() ‘判断工作表是否添加了保护密码
If Sheets(“sheet2”).ProtectContents = True Then
MsgBox “工作簿保护了”
Else
MsgBox “工作簿没有添加保护”
End If End Sub


7、工作表删除

 Sub s9()
   Application.DisplayAlerts = False
     Sheets("模板").Delete
   Application.DisplayAlerts = True
 End Sub

8 工作表的选取

     Sub s10()
       Sheets("sheet2").Select
     End Sub
  • 0
    点赞
  • 0
    评论
  • 8
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:技术工厂 设计师:CSDN官方博客 返回首页

打赏作者

Christopher Cheung

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值