EXCEL宏根据指定行数来切割excel文件内容成新文件宏内容Sub splitexcel()
Dim r, c, i, totalhangshu, fileshu, bt As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
tRow = Val(Application.InputBox("请您输入需要切割的行数？"))
If tRow = 0 Then MsgBox "您未输入行数，程序退出！": Exit Sub
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
bt = 1 'title
totalhangshu = tRow 'num
fileshu = IIf(r - bt Mod 20000, Int((r - bt) / totalhangshu), Int((r - bt) / totalhangshu) + 1)
For i = 0 To fileshu
Workbooks.Add
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(fileshu), 0)) & ".xlsx"
Application.DisplayAlerts = True
ThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1")
ThisWorkbook.ActiveSheet.Range("A" & bt + i * totalhangshu + 1).Resize(totalhangshu, c).Copy _
ActiveSheet.Range("A" & bt + 1)
ActiveWorkbook.Close True
Next
End Sub
执行过程打开待处理文件执行宏观察结果}

宏简介：应用程序也可以使用一种和宏类似机理的系统来允许用户将一系列（一般是最常使用到的操作）自定义为一个步骤。也就是用户执行一系列操作，并且让应用程序来“记住”这些操作以及顺序。更高级的用户可以通过内建的宏编程来来直接使用那些应用程序的功能。注：本演示环境使用虚拟环境模拟搭建，非真实攻击，请严格遵守国家安全法规！！实验环境：角色操作系统IP地址所需工具了解：Excel 4.0宏　　1992年发布用于Windows 3.0和3.1的电子表格软件Excel 4.0。对于自动化，可以通过所谓的宏工作表在此版本的Excel中使用XLM宏。X由于Microsoft很早就使用VBA宏（Visual Basic for Applications）来代替Excel 4.0宏技术，这导致Excel 4.0宏并不为大众所熟知。并且Excel 4.0宏存放在Excel 97 - 2003格式（.xls）文件中。1、插入宏工作表1.创建一个新的Excel工作簿。右键单击屏幕底部的“Sheet1”，然后单击“插入”。2.弹出一个窗口，允许您从要插入的各种对象中进行选择。选择“MS Excel 4.0 宏表”并单击“确定”。2、编写宏。已创建一个名为“Macro1”的新工作表。这是一种特殊的工作表类型，可以在其中输入XLM宏（所谓的宏表）。单击任何单元格并在此单元格和下面的后续单元格中输入公式=EXEC("calc.exe")，= ALERT("Hello world")和= HALT()。这里依次命令解释：打开计算器、弹出Hello world、停止。3、运行宏。要测试宏，请右键单击包含宏代码的第一个单元格，然后选择“运行”。将弹出一个新窗口。这应该包含包含宏代码的第一个单元格的名称（在我的例子中，第1行的默认“A1”，第1列）。单击“运行”以执行宏，然后观察计算器和MessageBox弹出窗口。4、自动运行宏。如果希望在打开工作簿时自动运行宏（类似于VBA宏的Sub AutoOpen（）），请将宏的第一个单元格重命名为Auto_open。5、隐藏宏。您可以通过在工作表名称（“宏1”）上单击鼠标右键并选择“隐藏”来隐藏宏工作表。Auto_open XLM宏仍将从隐藏的工作表运行。6、保存Excel，打开后将自动运行宏命令。注意：由于现在很多的Excel自动禁用宏，发给攻击对象时只要不点开启用宏那么宏是无效的，所以这里攻击对象为安全意识较差的人员。有兴趣的朋友可自行百度宏命令来寻找自己所需的代码。}

针对Excel中已经录制好的宏，我们可以有不同的方式来执行它，本期我们主要了解三种方法，在介绍这三种方法之前，我们先来了解一下关于宏安全性的一些知识。在上一期中，我们通过录制宏创建一个名为“Create_Timesheet”的宏，当关闭Excel工作簿后，重新打开时，我们可能会看到如图所示的黄色栏的警告信息“宏已被禁用”。此为Excel的一个安全特性，并且使非常重要的一个，因为宏代码存在对计算机安全造成隐患的潜在可能，所以当通过网络下载或从其他来源接收到一个带有宏的Excel工作簿，我们可能需要对其禁用。在此案例中，我们希望在执行宏之前，可以“启用内容”，这样不至于在每次操作时都要打开此功能。接下来看一下如何更改此安全设置。1. 点击黄色警告栏的“启用内容”按钮。2. 点击“开发工具”选项卡中“代码”区域的“宏安全性”。在“宏设置”选项，Excel勾选了“禁用所有宏，并发出通知”，这符合我们的要求，但我们需要设置一下“受信任位置”，即我们将含有宏的Excel工作簿放在指定的信任位置下（某个文件夹），这样在打开Excel工作簿时不用每次都点击黄色警告栏。3. 点击“受信任位置”，再点击“添加新位置”。4. 点击“浏览”，添加文件夹的位置，如该文件夹下还有子文件夹，可以勾选“同时信任此位置的子文件夹”。5. 在“受信任位置”中，我们可看到添加的新位置，点击“确定”。以上的操作即为设置“宏安全性”，我们接下来看一下执行宏的三种方法。01“开发工具” “宏” “执行”1. 在“开发工具”选项卡下，点击“宏”按钮。2. 打开“宏”对话框后，可看到我们已录制好的宏“Create_Timesheet”，确认选中该宏，点击“执行”按钮。3. 执行之后，我们可看到新增的工作表，以及“Weekly Timesheet”。02设置执行宏的快捷键1. 我们在录制“Create_Timesheet”宏时，已为其设置了一个快捷键：Ctrl+Shift+T。2. 通过此快捷键，我们可以快速执行此宏。03设置执行宏的按钮对于不熟悉宏或“开发工具”，以及不知道执行宏的快捷键的用户来说，通过点击一个设置好的按钮来执行宏则是更为简便的方法。1. 点击“Sheet1”工作表，我们在此工作表中设置一个执行宏的按钮。在“开发工具”选项卡下，我们可以通过“插入”一个表单控件（按钮类型）来实现此功能。2. 不过此种类型的按钮的不友好之处是无法轻易进行编辑。因此，我们使用另一种方式，添加一个形状。3. 我们可以根据需要调整形状的样式，并且添加相应的文字来说明此按钮的作用。4. 选择形状，鼠标右击，选择并点击“指定宏”。5. 在“指定宏”对话框中，选择“Create_Timesheet”，点击“确定”。6. 随意单击工作表中的一个单元格，然后将鼠标放在按钮上，当变成一个手指向上的标志时，点击按钮即可执行宏。通过本期的内容，我们了解到Excel中宏安全性的设置，以及最主要的三种执行宏的方式。那问题来了，当我们发现录制的宏并不能完全满足我们的要求时，我们该怎么办呢？下一期我们会继续介绍如何编辑宏里面的代码，敬请期待！本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。}