在excel工作表中插入并重命名文档对象

在Excel中，我们可以在工作表中插入文档对象并设置链接，这样可以直接单击该对象即可打开相应的文档。因此，我们可以将与此工作表相关的文档当作文档对象放置在工作表中，在需要时单击快速打开，非常方便。

插入文档对象的操作方法如下。

在功能区“插入”选项卡的“文本”组中，单击“对象”按钮，如下图1所示。

图1

打开“对象”对话框，在“由文件创建”选项卡中，单击“浏览”按钮，如下图2所示。

图2

在“浏览”对话框中，找到想要插入的文档，如下图3所示。

图3

单击“插入”“确定”，即在工作表中插入了文档对象，如下图4所示。

图4

单击该对象，即可迅速打开该文档，如下图5所示。

图5

如果在上图2所示的“对象”对话框中选中了“显示为图标”复选框，则插入的文档对象显示如下图6所示。

图6

当然，也可以使用VBA代码来完成文档对象的添加，并且同时修改该对象的名称。代码如下：

Sub LoadExcelDoc()

如何快速将多列数据转换成多行数据

在我的工作表中，同一行是某学生测试项目和课外兴趣班的全部信息，如下图1所示。 图1：在工作表“InputData”列A至列C中存储学生一般信息，列D至列列W存储着学生测试项目信息。测试项目信息分为“测试项目、测试日期、分数、等级”列，共重复5次（即有5个测试项目）。 图2：在工作表“InputData”列X

Dim myWorkbook As Object

Dim strFilename As String

On Error Resume Next

‘使用文件对话框选择想要的文件

strFilename = Application.GetOpenFilename _

(Title:=”请选择要打开的文件”, _

FileFilter:=”Excel文件 *.xls* (*.xls*),”)

‘添加文档对象

Set myWorkbook = ActiveSheet.OLEObjects.Add_

(Filename:=strFilename, _

Link:=False, _

DisplayAsIcon:=True, _

IconFileName:= _

“C:\Windows\Installer\{90160000-000F-0000-0000-0000000FF1CE}\xlicons.exe”,_

IconIndex:=0, _

IconLabel:=strFilename)

‘修改添加的对象的名称

myWorkbook.Name = “我的工作簿”

End Sub

注意，代码中IconFileName参数的图标编码可能不同，你可以先按照上文使用Excel对象功能插入文档的操作宏制宏，然后查看宏代码确认你的计算机上的图标编码。

运行代码，将弹出选择文件对话框，选取要插入的文件后，结果如下图7所示。

图7

使用VBA实现栈结构

栈是一种常见的基础数据结构，用来实现后进先出的目的。比如，在桌子上摞了一堆书，最后放的书一定在最上面，最先拿走的也是最上面的书。 栈中的元素只能从栈顶进入，称为入栈，如下图1所示。栈中的元素只能从栈顶删除，称为出栈，如下图2所示。 图1 图2 在一些高级编程语言，例如C中，利用指针可以很容易实现栈结构。