需求描述

目前的状况是这样的,我有1个总表,26个子表.26个子表是按照总表的某个字段拆分出来的.然后我需要生成26个子表的照相机图片

VBA

Private Sub pictureSheet()    Dim Sht As WorksheetDim iSht As WorksheetDim iCnt%,eRow%,eCol%IMG_NAME = "img"    '用于存放图片的工作表iCnt = 1            '图片编号.不需要图片名称的可以忽略Set iSht = ActiveWorkbook.Sheets(IMG_NAME)For Each Sht In ActiveWorkbook.SheetsIf Sht.Name <> "总表" And Sht.Name <> "base" And Sht.Name <> "img" Then '这里排除不需要生成图片的表名If Sht.Visible = xlSheetVisible Then    '这里是防止报错中断的时候,接着前面的图继续生成而做的措施With ShteCol = .Cells(2,.Columns.Count).End(xlToLeft).ColumneRow = .Cells(.Rows.Count,1).End(3).Row.ActivateApplication.Wait Now + TimeValue("00:00:01")        '因为调用剪切板的时候Excel经常会报错,故需休眠1秒,下面两处同理.Range(.Cells(1,1),.Cells(eRow,eCol)).CopyPictureApplication.Wait Now + TimeValue("00:00:01")iSht.SelectApplication.Wait Now + TimeValue("00:00:01")iSht.PasteSelection.Name = iCntSelection.Formula = "='" & Sht.Name & "'!" & .Range(.Cells(1,1),.Cells(eRow,eCol)).AddressApplication.CutCopyMode = FalseiCnt = iCnt + 1End WithEnd IfEnd IfNext
End Sub

通过这段代码可以将26张图片自动存放在img工作表,并按生成时间自动编号.

实际过程中经常会报错,这时候就需要你手动调整了

如何在Excel中用VBA批量生成“照相机“图片相关推荐

在Excel中用VB批量生成二维码
需要在excel中enable开发工具在文件-> 选项 -> 自定义功能中,勾上开发工具,然后保存. 在开发工具Tab下,点击Visual Basic Private Sub BarCo ...
电脑表格日期怎么修改原有日期_如何在Excel表中自动生成记录数据的日期和时间...
几天前有人问我: 在Excel表格中输入信息时,如何在日期单元格中自动生成日期和时间? 输入表格时,我们经常需要输入时间,而不是填写存储时间,为了减少输入工作量,您可以将日期设置为自动生成. 例如,当 ...
【Excel】VBA批量修改文件名
Excel:VBA批量修改文件名 Dim filePath As Variant '定义filepath为变量 Dim obj As Object '定义obj为变量对象 Dim fld, ff, g ...
datatable如何生成级联数据_如何把Excel表数据批量生成条形码
条形码属于一维条码,是将宽度不等的多个黑条和空白,按照一定的编码规则排列,用以表达一组信息的图形标识符,条形码的种类比较多,比如常用的Code128码,Code39码,Code93码,EAN-13码, ...
Excel与bat批量生成文件夹，修改文件夹名称
用Excel与bat批量生成文件夹,修改文件夹名称一.批量生成文件夹 excel一列输入文件名序列:另一列用公式生成要写入bat文件的序列,之后复制该列写入.txt文件,保存为.bat文件,双击运行 ...
利用Pajek软件批量处理excel数据，批量生成网络关系图
利用Pajek软件批量处理excel数据,批量生成网络关系图 Pajek软件大家想必都不陌生,但是我很陌生,因为我用它不是进行网络分析,而是用它来画关系图(类似网络图).但是Pajek软件手工操作时一 ...
Photoshop根据图片模板批量生成动态图片
需求:给定图片模板,在图片上面维护相关数据,把Excel表中的信息一个一个作到图中. 就技术角度而言,这样的操作并没有多少技术含量,然而却需要耗费大量的时间.如果提供的数据是上百条甚至上千条,你是否仍 ...
在excel中用VBA生成PPT图表
常常需要按照excel中的数据来在PPT中生成图表展示出来,有的方法是在excel生成好图表,再复制到ppt中,这里不采用. 这里先将excel数据读进数组,再在PPT中生成图表,将数组中的数据写进图 ...
Excel如何快速批量生成指定性别的随机姓名
在工作中我们可能要生成指定性别的随机姓名,比如生成男性的姓名或者女性的姓名.下面就给大家分享一种快速方法.(下图为完成操作过程) 1.如下图,我们要快速批量生成男生姓名和女生姓名. 2.点击DIY工具 ...

如何在Excel中用VBA批量生成“照相机“图片

需求描述

VBA

如何在Excel中用VBA批量生成“照相机“图片相关推荐

最新文章

热门文章