1. excel扩展名xlsm怎样转换成xls
文件另存为Excel97-2003工作簿(*.xls)就没问题
2. 如何使用VBA调用EXCEL里面的图片和数据生成PPT里面的图片和数据
本次案例来自网友提问:需要从600个Excel文件中导出每个文件中的2个图片,之前由于时间原因,回复比较简单没有给出具体实现方法,今天花时间整理写成图文,希望小伙伴们都可以学会。
一、 数据模拟
为了更加真实的还原提问者遇到的问题,我们需要准备600个且都包含有2个图片的Excel文件。一两个文件我们可以手动新建就可以了,这可是600个文件呐!
别担心,既然我们是用VBA来解决问题,解决这种事情重复机械的劳动,当然不是什么难事。图片我们用以下两个代替,放到当前文件目录下,分别命名为test1.png和test2.png,模拟数据时将test1.png插入到第一个表,test2.png插入到第二个工作表。
test1.png
test2.png
分步操作过程:
第一步:新建一个Excel文件,将它另存为.xlsm格式。
启用宏工作簿
第二步:打开新建好的.xlsm文件,按快捷键ALT+F11进入VBE界面。
进入VBE界面
第三步:在VBE工程种插入一个模块。
插入模块
第四步:在刚刚新建的模块中粘贴以下代码。
Sub 生成600个含图片的Excel文件()
'关闭刷新,防止屏幕抖动
Application.ScreenUpdating = False
'定义变量i
Dim i As Integer
'定义i从1循环到600
For i = 1 To 600
'新增一个工作簿
Workbooks.Add
'往工作簿的第一个工作表中插入图片test1.png
ActiveWorkbook.Sheets(1).Pictures.Insert(ThisWorkbook.Path & "\test1.png").Select
'往工作簿的第二个工作表中插入图片test2.png
ActiveWorkbook.Sheets(2).Pictures.Insert(ThisWorkbook.Path & "\test2.png").Select
'将工作簿存储到当前路径下
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & i & ".xlsx"
'关闭工作簿
ActiveWorkbook.Close
'继续循环新建其他工作簿
Next
'恢复屏幕刷新
Application.ScreenUpdating = True
'处理完成给出提示
MsgBox "600个含图片的Excel文件生成完成!", vbInformation, "提示信息"
End Sub
第五步:执行VBA代码,生成我们需要的600个Excel文件。
执行VBA代码
连贯操作演示:
操作演示
二、 图片导出
600个案例文件已经准备好了,接下来就是导出文件中的图片。
解决思路:
1. 一个个的找出当前目录下的所有Excel文件。
2. 打开找到的Excel文件。
3. 一个个的找出Excel文件中的工作表。
4. 找出工作表中的所有图片对象。
5. 把找到的每一个图片导出到当前目录下。
如果文件不多的情况下,按上面的思路手动操作导出也是可以的,其实通过VBA来解决问题也是要先把复杂问题进行简单化,一步步进行分解问题,最终形成完整解决方案。VBA代码使用方式在上面数据准备过程中已经有详细描述了,本次我们直接来运行下代码,实现导出文件中的图片。
Sub 导出当前路径下工作簿中的图片()
Dim wk$ '定义为工作簿文件
Dim i As Integer '定义工作簿中的工作表数量
Dim ii As Integer '定义为工作表中的对象个数
'关闭刷新,防止抖动
Application.ScreenUpdating = False
'遍历第一个工作簿文件
wk = Dir(ThisWorkbook.Path & "\*.xlsx")
'遍历到的文件名不等于空的情况下
Do While wk <> ""
'如果文件名称和当前的名称是不一样的。
If wk <> ThisWorkbook.Name Then
'打开遍历到的工作簿
Workbooks.Open (ThisWorkbook.Path & "\" & wk)
'对打开的工作簿文件进行以下操作
With ActiveWorkbook
'循环出工作簿中的每一个工作表
For i = 1 To .Sheets.Count
'循环出工作表中的每一个对象shape
For ii = 1 To .Sheets(i).Shapes.Count
'临时变量,统计shape的个数
k = k + 1
'复制shape对象
.Sheets(i).Shapes(ii).Copy
'创建一个图表对象,宽高与与对象保持一致
With .Sheets(i).ChartObjects.Add(0, 0, .Sheets(i).Shapes(ii).Width, .Sheets(i).Shapes(ii).Height).Chart
'把图片插入进去
.Paste
'通过图表对象的导出方法,把图片导出到当前目录下
.Export ThisWorkbook.Path & "\" & wk & "_" & k & ".png"
'删除图表
.Parent.Delete
End With
Next
Next
'关闭打开的工作簿
.Close False
End With
End If
'继续遍历下一个工作簿
wk = Dir
Loop
'开启屏幕刷新
Application.ScreenUpdating = True
End Sub
图片导出演示
3. Excel批量转成PDF的问题。
将excel转换为pdf格式时,其实并不困难。只要将excel另存为,再存储过程中将文件格式设置为pdf格式就能完成转换。但是当excel表格数量较多时,如何将excel批量转pdf。
先在网络搜索引擎当中搜索查找安装转换工具,然后双击打开进入界面。在界面里先单击选中其他文件转PDF选项,接着再单击选中下方的Excel转PDF选项。
接下来大家使用鼠标单击添加文件选项,在显示的窗口内选中要转换得excel,再单击右下角的打开选项,就能将excel添加到转换器中了。
紧接着大家使用鼠标单击选中开始转换选项,转换器就会开始文件的转换。等到转换完成后,再使用鼠标左击打开选项下方的文件夹图标就能查看转换后的pdf文件了。
转换工具:【迅捷PDF转换工具】
4. excel另存为格式只有一个xlsm怎么将其转换成xls格式
另存为EXCEL97-2003格式就是扩展名为XLS格式文件
5. 一个word文档模板,如何将一个EXCEL表格内容和另外的多个JPG照片共同按序合并到新word
1、数据准备。
用Excel表做一个人员信息的表格。保存为“通讯录数据”。
12、保存文件。
此操作在Office 2013中测试通过。
6. Xlsm格式文件如何修改dxf
下载一个转换器。
方法:插入菜单---OLE对象----打开对话框,选由文件创建,找到你的Excel文件,然后调整一下,保存,或发发布成成DXF文件。如果你还没有现在的Excel文件,在插入OLE对象的对话框里,按默认的新建,然后在对象类型的框内选择Excel。
7. EXCEL如何在多个工作表的同一位置的单元格导入图片·
可以使用INDIRECT函数来返回引用。如果表名有规律,如Sheet1、Sheet2……SheetN,可以直接引用,如果表名没规律,得先用宏表函数取出表名,再引用。
以下图为例,假设工作表分别为Sheet1-Sheet5,各表的A1单元格分别为1-5,汇总表在后面,要把各分表的A1单元格取到汇总表。
知识扩展:
1、GET.WORKBOOK(1)是4.0宏表函数,以“[工作簿1.xlsm]Sheet1”的形式返回所有工作表名的水平数组,再用REPLACE函数把工作簿名去掉,只保留所有工作表名,再用INDEX函数逐个取出。
2、由于使用了4.0宏表函数,因此,工作簿必须保存为启用宏的工作簿(*.xlsm),不能保存为不启用宏的工作簿格式(*.xlsx)。
3、INDIERECT函数的用途就是,返回由文本字符串指定的引用,如=INDIRECT("Sheet1!A1"),就是返回Sheet1工作表的A1单元格的值,工作表名用“!”表示。
8. 如何将xlsm转换为xlsx
你好。
有两个办法可以转换。
1.OFFICE2003可以下载2007格式兼容包,然后就可以打开了,然后保存为xlsx格式即可。
2.卸载office2003
,安装
office2007
及以上版本,即可打开xlsm格式的文件,重新保存为xlsx即可。
Microsoft
Office
2007启用宏由Microsoft
Excel电子表格程序,以及在应用程序(VBA)语言的Visual
Basic编程的嵌入式宏安排表,在Microsoft
Office
2007引入的Open
XML格式保存。
XLSM文件XLSX文件都是excel2007文件,但前者是含有宏启用,Excel中默认情况下不自动启用宏。
Excel不会执行宏XLSX文件,即使它们包含宏代码,因此含有宏的文件可以保存为xlsm文件。
简而言之,*.xlsm文件:基于XML且启用宏的Excel
2007工作簿。
.
xlsm文件的默认图标,带有一感叹号,保存含有宏文件的工作簿后,如果这样的xlsm文件图标没有感叹号,只有可以正常打开,可以正常运行其中的宏,就没有问题。因为不同系统下,系统分配的文件图标(ICO)有所不同。
延伸:文件图标修改方法:我的电脑——工具——文件夹选项——文件类型,在“已注册的文件类型”找到“XLSM
Microsoft
Excel启用宏的工作表”,单击下面的“高级”,打开“编辑文件类型”对话框,选择“更改图标”。这样就可以为xlsm文件更改图标。
既然是excel2007版以上的文件,就可以用EXCEL2007或者excel2010版本打开xlsm文件。
以上,望采纳。
9. excel中xlsm怎么转换为xls格式
1、打开WPS 2019版本,然后点击打开xlsm格式的文档。