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格式的文檔。