[算表] 请问在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