在EXCEL表格中将PDF文件作为对象插入即可,然后只要在有EXCEL和PDF阅读器的电脑上就可打开这些PDF文件。具体 *** 作请参照以下步骤。
1、首先在电脑上打开一个EXCEL文件,进入到主界面中。
2、然后在上方菜单栏中找到“插入”选项,进行点击。
3、然后在出现的选项卡中,找到“对象”选项进行点击。
4、然后在出现的窗口中,点击“由文件创建”选项,再勾选“显示为图标”选项,点击“浏览”按钮。
5、然后在电脑中找到目标PDF文件选中,点击“插入”按钮。
6、然后点击“更改图标”按钮,在出现的窗口中可进行命名和图标更换。
7、然后点击确定退出插入设置界面,将PDF文件放置到EXCEL中合适的位置。
8、完成以上设置后,即可在EXCEL表格里插入PDF文件,而且在别人电脑上能打开这些PDF文件。
步骤:1、新建一个word文档,啥都没有的那种哦,
2、点击开发工具,
3、点击宏,
4、创建宏
5、遍历文件夹
Sub 批量插入对象()
Dim fs, f, f1, fc
Dim num As Integer
Dim Str(100) As String
num = -1
Set fs = CreateObject("scripting.filesystemobject")
Set f = fs.getfolder("C:\Users\adol\Desktop\mike")
Set fc = f.Files
Debug.Print "该文件夹里的所有文件有:"
For Each f1 In fc
num = num + 1
'输出一下文件名,注释符是 英文状态下的‘号
Debug.Print f1
Next
Debug.Print "文件总数:" &num
End Sub
6、在编辑器里键入以下代码,遍历并插入对象;
Sub 批量插入对象()
Dim fs, f, f1, fc'定义变量
Dim num As Integer'
Dim Str(100) As String '
num = -1
Set fs = CreateObject("scripting.filesystemobject") '文件流
Set f = fs.getfolder("C:\Users\adol\Desktop\mike") '获取文件名集合,文件夹路径
Set fc = f.Files '文件集合
Debug.Print "该文件夹里的所有文件有:"
For Each f1 In fc
num = num + 1'计数
Selection.InlineShapes.AddOLEObject ClassType:="Visio.Drawing.11", _
FileName:=f1, LinkToFile:=False, _
DisplayAsIcon:=False
Debug.Print f1 &"已插入文件"
Next
Debug.Print "文件总数:" &num
End Sub
1、在电脑里面将需要插入文件的表格双击打开。
2、打开了表格之后,点击表格左上角这箭头所示的图标,将整个表格选中。
3、选中了表格之后,右键单击鼠标点击取消隐藏,将隐藏了的单元格显示出来这样再重新在此单元格插入文件即可。
4、如果还无法解决问题,可以点击工具栏上面的审阅选项。
5、在审阅选项里面找到保护工作薄,将保护功能取消,这样就可以了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)