本帖最后由 elliott_love 于 2013-3-19 14:12 编辑
get property of g_excel 'ACTIVEWORKBOOK' = g_workbook.
call method of g_workbook 'SAVEAS'
EXPORTING
#1 = 'D:\OLETEST.XLS'
#2 = 1
#4 = '111111'.
free object g_sheet.
free object g_workbook.
free object g_excel.复制代码有弊端 需另存文件 这个 逻辑控制的好 也有解决办法;
另一个就是模板加密码 每次写入时 输入密码
ps:#4是密码
vba中的参数说明,其中用到了WriteResPassword :
SaveAs([Filename As VARIANT],
[FileFormat As VARIANT],
[Password As VARIANT],
[WriteResPassword As VARIANT],
[ReadOnlyRecommended As VARIANT],
[CreateBackup As VARIANT],
[AccessMode As ETSaveAsAccessMode],
[ConflictResolution As VARIANT],
[AddToMru As VARIANT],
[TextCodepage As VARIANT],
[TextVisualLayout As VARIANT]) |