如題,我想裝xls后綴的excel檔案轉換成xlsm(excel2007/2010)后綴的檔案,請知道的回答一下,最好是用java實作
uj5u.com熱心網友回復：
.....用java實作 到vb版來問什么
uj5u.com熱心網友回復：
我是說最好能用java實作,即VB/VBA也行啊uj5u.com熱心網友回復：
Set xlapp = CreateObject("excel.application") Set xlbook = xlapp.Workbooks.Open(App.Path & "\jcd.xls")
xlapp.Visible = False
xlapp.DisplayAlerts = False
xlbook.saveas App.Path & "\jcd.xlsm", fileformat:=52
xlbook.Close (False)
xlapp.quit
uj5u.com熱心網友回復：
3樓你好,我想問下有沒什么辦法可以判斷一個excel里是否有宏,我只想把沒有宏的xls檔案轉換成xlsm,謝謝
uj5u.com熱心網友回復：
你直接轉換成xlsx格式就沒有宏存在了啊。xlsm是可以保存宏的。
On Error GoTo errline:
xlApp.Run ("Macro1 ")'運行一下宏
exit
errline:
If Err.Number = "1004" Then'如果沒宏存在就保存為xlsx
xlbook.saveas App.Path & "\jcd.xlsx", fileformat:=51
xlbook.Close (False)
xlApp.quit
End If
uj5u.com熱心網友回復：
剛開始上班我遇到了同樣的問題，不會寫這個代碼啊！！！！！！！1神救救我吧轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/125015.html
標籤：VBA
上一篇：調色板會影響光柵操作？？？
下一篇：VB中ADODC控制元件連接資料庫后怎么斷開？？？標題一定要長！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！