在excel的使用过程中，有时候我们需要将同目录下有着相同标题的多个excel工作簿合并到一个excel工作簿中，比如下面这种情况，5个年级的学生名单合并到一个表里面去。

常用的做法是手工打开每个文件，复制粘贴到学生名单汇总一个表里去。

这里介绍一个偷懒的方法，用VBA代码自动合并。代码分4段，第1段是主代码，后面3段是自定义函数。建议把代码复制粘贴到个人工作簿的模块里，方便调用。打开学生名单汇总.xlsx ALT+F8运行该代码。

以下是具体代码，复制粘贴

Sub 同目录下合并多个excel工作簿()

'On Error Resume Next '// 发生错误，自动执行下一句，就是忽略错误

Application.ScreenUpdating = False '//关闭屏幕刷新

Application.DisplayAlerts = False '//关闭系统提示

t = Timer '//开始时间

Set SH0 = ActiveWorkbook.Worksheets(1)

SH0.Cells.Clear '//清空保存区域，全部数据第一行是标题行，且只占一行，无合并单元格

ARR = FileAllArr(ActiveWorkbook.Path, "*.xlsx", ActiveWorkbook.Name, False) '//详见函数说明

SHName = "sheet1" '//要求所有工作簿内需要统计的工作表名称相同，

For i = 0 To UBound(ARR)

Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ARR(i) '//Excel2007

' Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';data source=" & & ARR(I) '//OFFICE2003，根据情况选择

StrSQL = "SELECT *,'" & GetPathFromFileName(ARR(i), False) & "' AS 来自工作簿 FROM [" & SHName & "$]" '//SQL语句自己发挥吧，这里是精髓。

IROW = SH0.Range("A1048576").End(3).Row + 1

If IROW <= 2 Then

IROW = 1

Crr = GET_SQLCoon(StrSQL, Str_coon, True) '//第一次，带上标题

Else

Crr = GET_SQLCoon(StrSQL, Str_coon, False)

End If

SH0.Range("A" & IROW).Resize(UBound(Crr, 1) + 1, UBound(Crr, 2) + 1) = Crr '//粘贴查询结果

Next

Application.ScreenUpdating = True '//恢复屏幕刷新

Application.DisplayAlerts = True '//恢复系统提示

MsgBox "汇总用时：" & Format(Timer - t, "#0.0000") & " 秒", , "北极狐提示!!" '//提示所用时间

End Sub

Rem 下面是为方便整理的自定义函数，上面的代码执行必不可少哟！！

'*******************************************************************************************************

'功能： 查找指定文件夹含子文件夹内所有文件名或文件夹名（含路径）

'函数名： FileAllArr

'参数1： Filename 需查找的文件夹名 不含最后的"\"

'参数2： FileFilter 需要过滤的文件名，可省略，默认为：[*.*]

'参数3： Liwai 剔除例外的文件名，可省略，默认为：空，一般为：ThisWorkbook.Name

'参数4： Files 是否只要文件夹名，可省略，默认为：FALSE

'返回值： 一个字符型的数组

'使用方法：arr = FileAllArr(ThisWorkbook.Path, "*.xls", ThisWorkbook.Name,false)

'*******************************************************************************************************

Public Function FileAllArr(ByVal Filename As String, Optional ByVal FileFilter As String = "*.*", Optional ByVal Liwai As String = "", Optional ByVal Files As Boolean = False) As String()

Set Dic = CreateObject("Scripting.Dictionary") '创建一个字典对象

Set Did = CreateObject("Scripting.Dictionary")

Dic.Add (Filename & "\"), ""

i = 0

Do While i < Dic.Count

Ke = Dic.keys '开始遍历字典

MyName = Dir(Ke(i), vbDirectory) '查找目录

Do While MyName <>""

If MyName <> "." And MyName <> ".." Then

If (GetAttr(Ke(i) & MyName) And vbDirectory) = vbDirectory Then '如果是次级目录

Dic.Add (Ke(i) & MyName & "\"), "" '就往字典中添加这个次级目录名作为一个条目

End If

End If

MyName = Dir '继续遍历寻找

Loop

i = i + 1

Loop

Dim arrx() As String

i = 0

If Files = True Then '//是否只输出文件夹名

For Each Ke In Dic.keys '以查找总表所在文件夹下所有excel文件为例

ReDim Preserve arrx(i)

If Ke <> Filename & "\" Then '//自身文件夹除外

arrx(i) = Ke

i = i + 1

End If

Next

FileAllArr = arrx

Else

For Each Ke In Dic.keys '以查找总表所在文件夹下所有excel文件为例

MyFileName = Dir(Ke & FileFilter) '过滤器：EXCEL2003为：*.xls,excel2007为：*.xlsx

Do While MyFileName <>""

If MyFileName <> Liwai Then '排除例外文件

ReDim Preserve arrx(i)

arrx(i) = Ke & MyFileName

i = i + 1

End If

MyFileName = Dir

Loop

Next

FileAllArr = arrx

End If

End Function

'****************************************************************

'*'****************************************************************************************************

'函数: GetPathFromFileName 根据全路径获得文件名

'参数1：strFullPath 完整路径

'参数2：kzm true 返回字符串含扩展名

'参数3：strSplitor 各级文件夹分隔符

'作用: 从完整路径获取返回: 文件名(true带扩展名)

'使用方法: msgbox GetPathFromFileName("C:\windows\text.txt",true)

'*'****************************************************************************************************

Public Function GetPathFromFileName(ByVal strFullPath As String, Optional ByVal kzm As Boolean = True, Optional ByVal strSplitor As String = "\") As String

Dim FileName1 As String

Dim FNAME As String

FileName1 = Left$(strFullPath, InStrRev(strFullPath, strSplitor, , vbTextCompare))

FileName1 = Replace(strFullPath, FileName1, "")

If kzm = False Then

GetPathFromFileName = Left(FileName1, InStr(FileName1, ".") - 1)

Else

GetPathFromFileName = FileName1

End If

End Function

'*'****************************************************************************************************

'*****************************************************************************************

'函数名： GET_SQLCoon

'函数功能： 获得指定SQL的查询结果，自定义连接字符串，可以连接各种数据库

'返回值： 返回一个二维数组

'参数1： StrSQL 字符类型 SQL查询语句

'参数2： Str_coon 字符类型 数据库连接语句

'参数3： Biaoti 可参数选 是否输出标题，默认带有标题

'使用方法： Arr = GET_SQLCoon(StrSQL,Str_coon,true)

' Arr(0,1) '//数组第一行为标题行，从i=1 开始是数据

' Sh2.Range("A2").Resize(UBound(ARR, 1) + 1, UBound(ARR, 2) + 1) = ARR

'*****************************************************************************************

Public Function GET_SQLCoon(ByVal StrSQL As String, ByVal Str_coon As String, Optional Biaoti As Boolean = True) As Variant()

On Error Resume Next ' 改变错误处理的方式。

Dim Cn, RS

Err.Clear

Set Cn = CreateObject("Adodb.Connection") '//新建一个ADO连接

Set RS = CreateObject("adodb.recordset")

Cn.Open Str_coon

RS.Open StrSQL, Cn, 1, 3

If RS.RecordCount > 0 Then '//如果找到数据

If Biaoti = True Then

ReDim ARR(0 To RS.RecordCount, 0 To RS.Fields.Count - 1)

For a = 0 To RS.Fields.Count - 1 '//导入标题

ARR(0, a) = RS.Fields(a).Name

Next

For i = 0 To RS.RecordCount - 1 '//导入数据

For a = 0 To RS.Fields.Count - 1

ARR(i + 1, a) = RS.Fields(a).Value

Next a

RS.MoveNext

Next

Else

ReDim ARR(0 To RS.RecordCount - 1, 0 To RS.Fields.Count - 1)

For i = 0 To RS.RecordCount - 1 '//导入数据

For a = 0 To RS.Fields.Count - 1

ARR(i, a) = RS.Fields(a).Value

Next a

RS.MoveNext

Next

End If

Else '//如果没有找到数据

ReDim ARR(1, 1)

ARR(0, 0) = ""

End If

GET_SQLCoon = ARR

Cn.Close '//关闭ADO连接

Set RS = Nothing

Set Cn = Nothing '//释放内存

End Function

'*****************************************************************************************

关键步骤：

１、在“工具——文件夹选项——高级”，把“隐藏已知文件类型的扩展名”前面的“√”去掉：

2、在C2单元格里输入公式“="ren"&B2&".jpg"&A2&B2&".jpg"”。ren是EXCEL里的改名命令。用法注意事项，如下图：

3、和图片在同一个文件夹下，建立一个记事本文档，把第二步改名命令得出的结果复制到这个文档，保存，如下图，然后关闭；

4、把文本文档扩展名强行改成“.bat”,变成批处理文档：

5、双击运行批处理文档，即可图片改名，结果如下：

韩老师视频：

根据微软2016年威胁情报报告，98%的Office目标威胁使用宏来实现的。那么，难道我们就只专注于检测利用宏的威胁吗？当然不是，攻击者都在不断创新。

找到绕过现有安全解决方案的方法，并使恶意软件易于执行，是攻击者的首要任务。

利用漏洞实现代码执行是一种很好的方法，但对于大多数攻击者来说，它们的实现技术太高，而且成本太高。较不常见的文件类型提供了便于攻击者使用的传递方法，不需要受害者采取太多的行动，也可以逃避检测。

如果文件类型尚未被恶意软件广泛使用，那么很有可能安全产品对正确分析文件类型的支持有限。为此，可以利用一些很少使用的Office文件类型和特性来实现此目的。在这篇博文中，我们将重点介绍一些技术，这些技术使用了大多数被遗忘的特性来通过Microsoft Office提供恶意软件。

4种通过Microsoft Office提供恶意软件的技术

除了常见的VBA和利用漏洞的方式之外，Office还支持文件类型，这些文件类型大多被遗忘，通常不会在正常环境中使用。如果Excel支持该文件类型(例如，IQY、SLK)，它将在Windows中显示一个熟悉的Excel图标，从而降低受害者变得可疑，并更有可能打开该文件的可能性。使用Excel打开后，使用DDE(DynamicDataExchange，动态数据交换)协议，如果在受害者的计算机上启用，可以轻松执行代码。

使用对象链接和嵌入(ObjectLinkandEmbedded，OLE)是利用Windows支持的文件类型感染用户计算机的一种常见技术。让受害者打开Word文档要比直接让可执行文件更容易。攻击者面临的问题是Office 2016默认阻止某些文件扩展名的执行。安全研究员MattNelson发现了一种文件类型-SettingContent-MS-它可以执行代码，但不在Office实现的阻止执行黑名单中，因此不会像OLE那样被阻止执行。

另一种滥用Office功能的方法是使用Word或Excel的，众所周知但很少使用的启动路径。如果支持的文件放置在此文件夹中，则将在应用程序下一次启动时自动打开该文件。

1）IQY-Excel Web查询

2）SLK-符号链接

3）启动路径

4）嵌入式设置内容现在，让我们来看看利用这些投递技术的四个示例。IQY-Excel Web查询

查看VMRayAnalyzer报告

SHA 256：ca0da220f7691059b3174b2de14bd41ddb96bf3f02a2824b2b8c103215c7403c

Excel Web查询是用于将内容从Web查询并填充到Excel单元格的简单文本文件。这些文件包含一个URL，在Excel中打开该文件后，URL的内容将被下载到工作簿中。从那时起，DDE就可以轻松地执行代码了。

Excel已支持该文件类型超过十年，但公开发布的恶意软件直到5月底才开始使用此技术.

然后在6月初发布了一份详细介绍利用此种方式进行攻击行动的报告:

恶意软件分析: Excel Web Query (iqy)文件下载FlawedAmmyy远控 (VirusTotal5/59)https://t.co/GJAnsfwwOg #infosec18 pic.twitter/PCpm3O1Pfe

示例本身非常简单，只是一个文本文件，其中包含要下载的链接。

图1：IQY文件的内容

打开文件时，Excel下载2.dat，并将文件的内容复制到单元格中。

图2：Excel下载下一阶段

图3：下载的2.dat文件的内容

2. dat的内容以=cmd|。这是一个简单的DDE方法，用于简单地获得后面代码执行。管道使用cmd.exe执行后的字符串，并将使用PowerShell下载下一阶段(1.dat)。在执行命令之前，Excel中会弹出警告。

图4：Office 2016的警告

图5: 第二阶段的内容, 1.dat

1.dat是一个简单的PowerShell下载程序，它下载并执行FlawinAmmyy远控。

图6：下载和执行FlawinAmmyy的IQY文件的处理图

SLK-符号链接

查看VMRayAnalyzer报告

SHA 256：3d479d661bdf4203f2dcdeaa932c3710ffb4a8edb6b0172a94659452d9c5c7f0

SLK文件格式是为在电子表格之间交换信息而设计的。与IQY一样，它也是Office支持的另一种格式，它可以与DDE相结合，以一种简单的方式执行代码。尽管该文件的内部文件是无文档的，但可以轻松地修改现有的SLK文件，而不需要了解格式，并且有非正式的文件尝试。

对于攻击者来说，实现代码执行的唯一方法是用动态表达式替换SLK文件中的单元格，比如以“=cmd\”开头的单元格。以下示例(地址)使用此技术开始使用联机XSL。攻击者可以直接在这里下载有效载荷，但可以使用“SquiblyTwo”SubTee技术，利用WMIC实现代码执行的技术。

图7：使用自定义电子表格启动wmic.SLK。

图8：SLK启动WMIC的过程图

启动文件夹

查看VMRayAnalyzer报告

SHA 256：83b0d7926fb2c5bc0708d9201043107e8709d77f2cd2fb5cb7693b2d930378d2

打开Word或Excel时，它们会解析某些文件夹，查找文件，并在默认情况下打开它们。这个特性有很详细的文档记录，一些组织在默认情况下使用它来打开默认的模板。

该特性也可以被恶意软件用作持久化机制或沙箱逃逸技术。技术实施起来简单，就只需将一个文件放到其中一个文件夹中。除非下一次启动相关的Office程序，否则不会打开该文件，沙箱可能不会自动打开该文件。

示例(地址)是一个rtf文件，该文件利用Word的等式编辑器漏洞(CVE-2017-11882)将XLS拖放到扩展名为xlam的默认ExcelXLSTART文件夹中。

图9：删除文件到XLSTART的检测

图10：被丢弃的XLS的Yara匹配

释放的XLS有经过混淆的宏，下一次启动Excel时，它将打开已删除的文件，并执行宏，最后将DLL删除到AppData文件夹，并将其链接到系统启动时运行。查看释放的XLS的VMRay Analyzer报告

图11：删除XLS的检测

嵌入式设置内容

查看VMRayAnalyzer报告

SHA 256：3c6a74d216e10e4ff158716cfa72984230995041c4bbb7596b8c8aaa461d76c5

本质上，SettingContent-Ms文件类型是一个XML，它有一个名为“Deeplink”的标签。Deeplink可以指向任何可运行的文件，当文件打开时，指定的文件将被执行。

当使用Office的连接打开文档中嵌入的文档时，Office可以禁用或警告打开嵌入的文件(如果它们是可执行的)。可执行文件黑名单中缺少了这个扩展名，因此它绕过了这个安全特性，这意味着使用Office文档执行代码要容易得多。在该漏洞被公开披露后，安全研究人员创建了测试样本，其中许多最终在VirusTotal上结束。这种方法也被野生的恶意软件所使用，让LokiBot掉了下来。从那时起，它就被广泛应用于恶意软件的运动中，它的变化是将文件嵌入到PDF文件中，而不是DOC文件。

VMRay Analyzer检测文件结果:

图12：VMRayAnalyzer检测文件

结语

攻击者在不断寻找新的攻击载体。在Office文档中使用宏很容易检测，而且由于它们需要一些技能来实现，因此无法访问它们。然而，Office确实提供了许多现在未使用和被遗忘的特性，可以利用这些特性来创建成功的攻击。重新发现这些Office功能需要努力和技巧，但是一旦有了概念的证明，就有了一个窗口，可以用很少的技能创建高效的攻击。

（作者：曲速未来安全区，内容来自链得得内容开放平台“得得号”；本文仅代表作者观点，不代表链得得官方立场）

【前期信息】

很多公司喜欢对办公室内的打印机配置一台共享PC，该PC机同时用于共享打印机和作为共享存储使用。内部文件可直接存储在这台pc机上，这样对于办公室文件共享及传输十分方便，但也有一个风险存在，一旦这台电脑硬盘出现故障，那么整个公司的文件都会受到影响，如果这台电脑真的出现故障了应该怎么恢复大家的数据呢？下面教给大家一种共享pc机硬盘损坏导致文件无法打开的恢复方法（适用于个人电脑）：

【适用于此方法的故障表现】

1、磁盘中文件的名称、路径、时间等完全正确。磁盘占用空间也正确。但文件无法打开。2、jpg图片文件打开都提示：“windows照片查看器无法打开此图片，因为照片查看器不支持此文件格式，或者您没有照片查看器的最新更新”；3、所有的doc格式文件打开时都提示："请选择使文档可读的编码"，选择任何一个编码后文件都是错误的。；4、所有的docx格式打开时都提示："无法打开文件，因为内容有错误"；5、所有的xls打开时都提示：“您尝试打开的文件的格式与文件扩展名指定的格式不一致，打开文件前请验证文件没有损坏且来源可信”6、所有的xlsx打开时都提示："您无法打开文件，因为文件格式或文件扩展名无效，请确定文件未损坏，并且文件扩展名与文件的格式匹配"7、所有的PDF文档打开时均提示：“打开文档时发生错误,文档已损坏且无法修复”8、其他所有类型文件均无法正常打开。(键入上述错误提示的目的在于网友可以根据错误提示搜索到本文，没有稿费，不凑字数)

【可能出现该类故障的情况分析】

1、如果出现故障的设备为raid阵列，那么有可能是RAID旧盘同步数据后导致的故障，本文将的是单盘，这里可以忽略这种可能。2、硬盘有物理故障，直接表现为硬盘链接电脑有异响、访问十分缓慢、提示IO错误等。3、硬盘被加密后丢失加密链接、采用第三方软件（例如：Q(Norton PartitionMagic)、DiskGenius, Acronis Disk Director Suite）做过分区大小调整、合并导致分区错误。4、操作系统故障、病毒挟持可执行文件、黑客攻击等。

【举例讲解数据恢复方法】

把出现故障的硬盘连接到一个不会加载盘符、不自动写入数据的只读设备中，以一个PDF文件为例，在WINHEX中打开时如下图：图一：

一个正常的PDF文件，二进制结构一定是以0x46445025(即ASCII的“%PDF”)做为开头标志。这个文件的开头以0x71736712开始。两者比较，显然是一种异或转换，通过计算，两者相差(异或)0x37。观察本PDF文件的尾部，发现同样做了篡改。于是，在WINHEX中选中文件所有内容，对选中块以0x37做字节异或(xor)：图二：

保存出来后，打开，文件正常。接下来对其他文件做分析，发现篡改的算法均是全部文件对某个值xor，但此值不确定，按字节概率计算，应该有256种可能，加上文件数量及类型众多，显然不能手动进行修正。需要分析其xor加数的生成规律。分析过程如下：1、推断是否与路径相关：在同一路径下打开不同的文件分析篡改的异或加数，发现不尽相同，排除。2、推断是否与文件名称相关：查找所有文件，按名称排序，找到相同文件名称但大小不同的文件，打开后分析篡改的异或加数，发现不相同，排除。3、推断是否与类型相关：找到同一类型的几个不同文件，分析篡改的异或加数，发现不相同，排除。4、推断是否与存储的物理位置相关：在WINHEX中按不同文件起始位置进行分析篡改的异或加数，未发现相关性，排除。5、推断是否与文件头部相关：查找头部相同的文件(有同一文件的不同更新，头部是相同的)，进行分析，也排除。6、推断尾部相关的可能性不大。(当然如果后面分析仍无法得到规律，则需返回此项再做验证)7、推断是否与文件创建时间相关：分别查找相同创建时间、相同访问时间、相同最后一次访问时间的2个文件，进行分析，发现与此无关，排除。8、推断是否与大小相关：简单验证后，未举出反例推翻，但需要完全证明与大小相关，同时要得到算法，需要有足够多的样本。对是否与大小相关的验证：首先通过命令方式打印所有文件的大小，WINDOWS很不擅长此操作，改用LINUX处理：find ./ |xargs ls -ld 2>/dev/null|awk '{printf($5"\t\t"$9"\n");}' >../list.txt之后用excel打开此列表文件，图三：

因篡改的异或加数只有一个字节，故推断，如果与大小相关，极有可能是对文件大小mod 256后关系对应，于是在excel中计算所有文件大小值 的mod 256，图四：

对mod 256的值进行排序，excel可能可以直接实现，不过，至少可以复制整列，再以数字方式粘贴：排序后如下图：图五：

对相同mod 256的文件进行篡改验证，未发现不符合规律者，基本断定篡改值与文件大小mod 256的值存在完全映射关系。对所有可能做抽样分析后，得到篡改异或加数的生成规律：图六：

至此，篡改算法得到，同时修正算法也自然就容易多了。

【解决方案】

通过VS2010下编写程序解决，修复程序源码如下：图七：

【验证】

程序运行完成后，对文件进行抽检，无报错，为进一步确定可靠性，查找所有JPG文件，显示缩略图，无异常。查找所有doc文件，显示作者，标题(这两个信息是通过内容部分得到的)，未发现异常(只是OS盗版的痕迹挺重，呵呵)，至此，确定算法正确。数据恢复完成。图八

关闭Apple音乐 iMusic自动续费步骤如下所示：

1、首先，打开iPhone的「音乐」

2、点击左上角的头像

3、再选择「查看 Apple ID」

4、打开账户设置后，找到「订阅」，点击订阅下的「管理」

5、可以看到免费订阅的到期日期，找到「自动续订」

6、将「自动续订」后的开关关闭，即可关闭自动续订

（本文内容由百度知道网友北京李金风贡献）

　　创建文本文件的方法：

　　1、在桌面点击鼠标右键，点击“新建”-“文本文档”，命名该文件名，然后点击桌面一下即可完成，打开即可输入文字；

　　2、点击打开“开始”菜单，点击“所有程序”，找到“附件”并点击，在附近里点击“记事本”打开，便可以进入记事本编辑界面，输入文字等，然后另存为即可。

（本文内容由百度知道网友贡献）

正常情况下，不建议修改Excel文档的扩展名，可能会导致文档无法正常开启。

如高版本保存为低版本可按下述方法进行：

工具：Office 2007

1、打开EXCEL文档（默认为xlsx格式），点击左上方的Office图标。

2、之后，点击下方的”另存为“---Excel 97-2003工作簿。

3、在弹出的保存页面，点击确定即可。

注：如低版本保存为高版本，可直接用高质量的Office打开后直接另存为xlsx格式即可。

（本文内容由百度知道网友lj60235300贡献）

如下：

1、确定OFFICE Excel所开启的是正常的EXCEL文件，扩展名为xls、xlsx、cvs等。

2、另外，安装的EXCEL软件是否正常，可开启其他Excel文档进行测试。

3、Office是否为低版本，如果打开的EXCEL为高版本生成，可安装兼容包或者重新安装高版本Office再进行尝试。（如：2003无法开启2007以上版本的excel文件）

4、文件损坏，可重新下载或让同事传送。

5、如文件被人为加密可以尝试更改扩展名打开，如：doc、txt、rar等。

（本文内容由百度知道网友贡献）

1.根据系统给出的提示先了解分析出现文件打不开问题原因，如下图提示的是文件格式或文件扩展名无效。

2.知道原因后我们要先看一下文件的后缀，打开“我的电脑”在右上角找到“组织”点开，找到文件夹很搜索选项。

3.在对话框中选择第二项“查看”，在高级选项中找到“隐藏已知文件类型的扩展名”把前面的勾去掉

4.现在我们就可以看到文件的后缀了，右键点击文件“重命名”把文件后缀改成“xls”

是因为Dword值是十进制的，改成十六进制的即可。

1、先关闭所有的office应用程序，然后打开注册表, 在运行中输入regedit ，可以用快捷键win+R打开运行窗口。

2、找到以下位置：HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security

点[编辑]菜单上的[新建],单击DWORD值，然后输入ExtensionHardening，最后回车ENTER.

3、右键ExtensionHardening，点击修改，然后输入值为0。点击上面菜单中的退出即可。

（本文内容由百度知道网友贡献）