方法一:VBA代碼法
新建一個文件,然後拷貝以下代碼到VBA模塊中,運行代碼,選擇含有Flash的Excel文件確定,即可獲取swf文件。
方法二:UE修改法
作者:laoyebin(Paladin.lao)
出處:http://www.cnblogs.com/laoyebin/
個人網站英文出處:http://mrvsto.com/
個人網站中文出處:http://cn.mrvsto.com/
新建一個文件,然後拷貝以下代碼到VBA模塊中,運行代碼,選擇含有Flash的Excel文件確定,即可獲取swf文件。
作者:laoyebin(Paladin.lao)
出處:http://www.cnblogs.com/laoyebin/
個人網站英文出處:http://mrvsto.com/
個人網站中文出處:http://cn.mrvsto.com/
Sub getfoldername() '獲取指定路徑下的文件夾名稱 Dim fs As Object n = 1 Set fs = CreateO
Sub adjustpic() '根據合併單元格大小調整圖片大小 Dim Pic As Shape For Each Pic In ActiveS
Rows.Count 顯示所有行的數目 Columns.Count 顯示所有列的數目 Cells(Rows.Count, 1).End(