[算表] 請問在excel vba寫另存新檔成.xls

作者: ppppppppp (A_A)   2018-01-04 00:10:53
軟體:Excel
版本:2010
想請問 我寫了一個excel vba檔案(*.xlsm)進行一些資料處理的動作
之後想把其中一個工作表另存為Excel 97-2003活頁簿(*.xls)的格式
Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "ABC.xls"
n = Workbooks(1).Worksheets("資處用-提單").Range("B65536").End(xlUp).Row
Workbooks(1).Worksheets("資處用-提單").Range("A1:T" & n + 1).Copy
ActiveWorkbook.Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll
ActiveWorkbook.Save
ActiveWorkbook.Close
檔案是可以存
但是那個ABC.xls打開來時
他會說格式不符 無法使用
請問怎樣把其中一個工作表另存成.xls的格式
謝謝
作者: ppppppppp (A_A)   2018-01-04 00:25:00
啊我會了 檔案名稱後面加上檔案格式的語法, FileFormat:=56
作者: c90195h (阿呆)   2018-01-04 07:35:00
推一個
作者: linnderna (晴晴)   2018-01-04 09:36:00
沒人理你
作者: japing (上進心)   2018-01-04 18:11:00
不錯喔 學到一招
作者: ppppppppp (A_A)   2018-01-05 00:20:00
0//////0

Links booklink

Contact Us: admin [ a t ] ucptt.com