精华内容
下载资源
问答
  • Sub exportpic() '将当前活动工作表中的图片保存到以工作表名称命名的文件夹内 Dim sn, path As String, j% sn = ActiveSheet.name path = "C:\Lx\all\" For j = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes...
    Sub exportpic() '将当前活动工作表中的图片保存到以工作表名称命名的文件夹内
    Dim sn, path As String, j%
    sn = ActiveSheet.Name
    path = "E:\家具图片"       '修改为以当前sheet命名文件夹的上一层文件夹路径
    For j = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(j).Select
    If ActiveSheet.Shapes(j).Type = 13 Then
    Selection.CopyPicture
    With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
    .Paste
    .Export path & "\" & sn & "\" & sn & j & ".jpg", "jpg"   '图片保存并命名为sheet名加上序号
    .Parent.Delete
    End With
    End If
    Next
    End Sub
    展开全文
  • 1.保存当前工作簿Public Sub保存当前工作簿() Dim wb As Workbook Set wb = ThisWorkbook '可指定任意工作簿 wb.Save Set wb = Nothing End Sub如果是第一次保存工作簿,请使用SaveAs方法为该文件指定文件名...

    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
    展开全文
  • 【关键步骤】从开发工具里打开Visual Basic,...Public Sub 一键获取本文件夹工作表()Application.ScreenUpdating = FalseDim f As String, i As IntegerDim wb As Excel.WorkbookDim sh, sh1 As Excel.WorksheetSet ...

    【关键步骤】从开发工具里打开Visual Basic, 新建模块1,将以下代码复制到里面,保存,关闭代码窗口。

    Public Sub 一键获取本文件夹工作表()

    Application.ScreenUpdating = False

    Dim f As String, i As Integer

    Dim wb As Excel.Workbook

    Dim sh, sh1 As Excel.Worksheet

    Set sh1 = ThisWorkbook.Worksheets("导入清单")

    If Range("a65536").End(xlUp).Row > 1 Then

    sh1.Range("a2:b" & Range("a65536").End(xlUp).Row).Clear

    End If

    f = Dir(ThisWorkbook.Path & "\*xls*")

    Do While f <> ""

    If f <> ThisWorkbook.Name Then

    Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)

    For i = 1 To Sheets.Count

    sh1.Range("a" & sh1.Range("a65536").End(xlUp).Row + 1) = wb.Name

    sh1.Range("b" & sh1.Range("b65536").End(xlUp).Row + 1) = Sheets(i).Name

    Next

    Worksheets.Copy Before:=Workbooks(ThisWorkbook.Name).Sheets(1)

    wb.Close True

    End If

    f = Dir

    Loop

    sh1.Select

    Application.ScreenUpdating = True

    MsgBox "已为您成功导入" & Sheets.Count - 1 & "张工作表", , "VBA交流QQ15678768"

    End Sub

    展开全文
  • '依次打开当前文件夹中所有的工作簿并且向该工作簿中的工作表中写入内容后并保存 Sub OpenAndSave() Dim myPath$, myFile$, AK As Workbook Dim sh As Worksheet Dim i As Integer i = 2 Dim fname As ...
    '依次打开当前文件夹中所有的工作簿并且向该工作簿中的工作表中写入内容后并保存
    Sub OpenAndSave()
    
    
            Dim myPath$, myFile$, AK As Workbook
            Dim sh As Worksheet
            
            Dim i As Integer
            i = 2
            
            Dim fname As String
            
            Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动
            
            myPath = "C:\Users\DELL\Desktop\新建文件夹 (2)\" '把文件路径定义给变量
            
            myFile = Dir(myPath & "*.xlsx") '依次找寻指定路径中的*.xlsx文件
            
            Do While myFile <> "" '当指定路径中有文件时进行循环
                If myFile <> ThisWorkbook.Name Then
                
                    Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
                    
                    Debug.Print AK.Name
                    
                    Set sh = AK.Sheets(1)
                    
                    
                      With sh
                      
                      .Range("A1").Value = "测试123"
                      
                      
        
                      End With
                    
                    
                    i = i + 1
                
                    AK.Save
                    AK.Close
                    Set AK = Nothing
                
                End If
                
                myFile = Dir '找寻下一个*.xlsx文件
                
            Loop
            Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
            
    
    
    End Sub
    

     

    展开全文
  • 不定期地总会有朋友问到Excel文件拆分或汇总的问题,毕竟大家都不会喜欢大量重复而又机械的操作。考虑到不一定会有Python...拆分工作簿详细描述将一个工作簿中的所有工作表分别保存至单独的工作簿中,且新保存的工作...
  • 取消隐藏所有的行和列对所有合并单元格取消合并以当前时间为名字保存工作簿将每张工作表单独保存为一个PDF文件将工作簿保存为一个PDF文件保护所有带公式的单元格给选定区域交替高亮显示,增加可读性高亮显示所有带...
  • 大家好,我们今日继续讲解VBA代码解决方案的第77讲内容:如何导出文件,形成一个文本文件,如果需要将工作表中的数据保存为文本文件,可以创建一个文本文件用于保存数据。应用于FileSystemObject对象的...
  • 大家好,今天继续和大家分享VBA编程中常用的简单“积木”过程代码第76-80讲,内容是:保存当前工作簿的副本到其它位置备份;不显示警告框;关闭屏幕刷新;获取工作表的行数及当前工作表中已使用的行数;将当前工作表...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧48 保存指定工作表为工作簿文件 12 技巧49 打印预览时不触发事件 12 技巧50 设置工作簿文档属性信息 12 技巧51 不打开工作簿取得其他工作簿数据 12 51-1 使用公式 12 51-2 使用GetObject函数 12 51-3 隐藏...
  • vba常用英文

    2014-10-26 17:02:30
    vba语句 (1) Option Explicit '强制对模块内所有变量进行声明 (2) Option Base 1 '指定数组的第一个下标为1 (3) On Error Resume Next '忽略错误继续...(14) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表
  • ActiveWorkbook.Save '保存当前工作簙 ActiveWorkbook.Close '关闭当前工作簙 Next i '打开下一个工作簙 Else MsgBox "没有找到任何工作簿文件" '提示没有找到任何工作簿文件 End If End With End Sub 另
  • Excel VBA技巧实例手册

    2016-07-28 22:29:39
    技巧025引用其他工作表的单元格 技巧026引用命名的单元格区域 技巧027在命名的单元格区域内循环 技巧028调整单元格区域的大小 技巧029引用单元格交叉区域 技巧030引用区域内的单元格 技巧031l引用数据列的最后一列...
  • 保存时的当前工作表是谁,下次打开还是谁。 如果你想强制指定一个工作表(例如 封面)作为打开后首先显示的工作表,可以通过vba实现。 按ALT+F11 双击thisworkbook 粘贴下面的代码 Private Sub Workbook_Open() ...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧48 保存指定工作表为工作簿文件 116 技巧49 打印预览时不触发事件 118 技巧50 设置工作簿文档属性信息 120 技巧51 不打开工作簿取得其他工作簿数据 121 51-1 使用公式 121 51-2 使用GetObject函数 122 51-3 隐藏...
  • 很简单的一个功能,网上也有很多在线生成器,也有小工具可以下载,这儿用VBA做一个,结果就保存当前工作表中,简单、快速。生成函数也可以放到其它程序中使用。
  • Excel_VBA教程

    2014-09-22 11:36:34
    第五课 利用VBA设置工作表使用权限 15 1.使用WITH语句。 17 2.使用对象变量。 17 方法3:减少对象的激活和选择 17 方法4:关闭屏幕更新 18 第六课 提高EXCEL中VBA的效率 19 方法1:尽量使用VBA原有的属性、方法和...
  • VBA研究】生成随机密码

    千次阅读 2015-08-11 17:19:37
    很简单的一个功能,网上也有很多在线生成器,也有小工具可以下载,这儿用VBA做一个,结果就保存当前工作表中,简单、快速。生成函数也可以放到其它程序中使用。函数实现的流程是:用一个变量保存所有用到的字符,...
  • 修改文件日期VBA程序

    2006-03-16 00:00:00
    它可以批量指定文件,并记录到当前工作表,可一次性修改这些文件的日期。 工作薄保存后,可以多次使用,省去多次修改,多次指定的烦琐。多个工作表可以保存不同修改日期的文件列表。使用时,需要“启用宏”。您也...
  • 本文将实现这样一个功能:当工作表中的嵌入图表被激活时,就在Excel的状态栏显示 “正在将图表另存为图片,请稍等……”,并自动将图表保存为图片格式存在当前工作簿的路径下,然后点击工作表中除图表外...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    第五课 利用VBA设置工作表使用权限 15 1.使用WITH语句。 17 2.使用对象变量。 17 方法3:减少对象的激活和选择 17 方法4:关闭屏幕更新 18 第六课 提高EXCEL中VBA的效率 19 方法1:尽量使用VBA原有的属性、方法和...
  • 02048引用当前工作簿窗口 02049引用新建的工作簿窗口 02050引用特定工作簿的窗口 02051获取工作簿窗口的拆分状态 02052获取工作簿窗口的窗格信息 02053获取工作簿窗口的冻结窗格状态 02054获取工作簿窗口的各种显示...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    目 录 一、VBA语言基础...................................................................................................................1 第一节 标识符....................................................
  • 2.再另外打开你自己需要操作的另一个Excel文件,并保持你要操作的工作表做为当前活动工作表; 3.在你的文件中按Ctrl+I (或在你的文件中手动执行宏,然后选择本EXCEL文件中的宏InsertPic3); 4.然后会出现文件夹选择...
  • EXCEL VBA 之录制宏

    2018-02-28 09:46:58
    3宏的名字命名为“不及格红色显示”,保存当前工作簿确定。这样就进入录制状态。你还可以为这个宏制定快捷键,注意不要和其他快捷键冲突,也可以不设置。4录制过程如下:单击格式---条件格式,条件选择单元格数值...
  • 创建文字样式能够获得当前计算机中可用的字体列表;文字按插入点自动对齐提供了对自定义数据类型的数组进行排序的一个思路;提取多行文字中的文字内容对AutoCAD中多行文字的格式代码进行了分析。使用ObjectDBX实现的...
  • 07 - VBA常用操作(01)

    2020-10-26 13:57:59
    目录1. 基本操作1.1 自动保存表格1.2 某个单元格的值1.3 当前文件的全路径1.4 当前文件所在文件夹1.5 当前的Sheet页2 高级操作2.1 自动...更严谨些:指定哪个工作表(SheetName)-哪个单元格(B2) ThisWorkbook.Sheets("S
  • 【excel vba】自动触发事件

    千次阅读 2020-08-02 22:15:38
    还原放入工作表的change自动更新自动备份 Worksheet_SelectionChange选中触发事件 Worksheet_Change更改触发事件 Worksheet_Activate当前触发事件 Workbook_BeforeSave提前保存事件 Workbook_Open打开触发事件 ...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    一、VBA语言基础...................................................................................................................1 第一节标识符...........................................................
  • 机构编码+文件主名称+日期,日期是自动取的当前日期,机构编码单独存放在名为shopid的sheet页里,位置可以自由修改,当然对应的代码中也要修改,代码最后的一部分是将所有数据转存的代码,我写的是保存为总代码为...

空空如也

空空如也

1 2 3 4
收藏数 64
精华内容 25
热门标签
关键字:

vba保存当前工作表