611
社区成员
发帖
与我相关
我的任务
分享dw_1.saveas(‘？？？？’,htmltable!,true)能选择保存路径吗？
dw_1.saveas(‘？？？？’,htmltable!,true)能选择保存路径吗？
只能在‘？？？？’处写上一个死路径吗？
只能在‘？？？？’处写上一个死路径吗？
...全文
请发表友善的回复…
发表回复
online 2003-05-28
- 打赏
- 举报
看看GetFileSaveName()
jjweid 2003-05-28
- 打赏
- 举报
GetFileSaveName()
具体参考帮助
具体参考帮助
boyliulang 2003-05-28
- 打赏
- 举报
li_value = GetFileSaveName("Select File",ls_docname, ls_named, "xls", + &
"Excel Files (*.xls),*.xls," + " Excel Files (*.xls), *.xls")
if li_value = 1 then
lb_exist = FileExists(ls_docname)
IF lb_exist THEN
li_ret = MessageBox("Ìáʾ",ls_named+"ÒѾ´æÔÚ£¬ÊÇ·ñ¸²¸Ç¸ÃÎļþ?", Question!, YesNo!)
if li_ret <> 1 then goto label
end if
else
return
end if
ll_return = dw_output.SaveAs(ls_docname, Excel!, FALSE)
if ll_return = 1 then
messagebox("³É¹¦","µ¼³öÊý¾Ý³É¹¦!")
else
messagebox("ʧ°Ü","µ¼³öÊý¾Ýʧ°Ü!")
end if
"Excel Files (*.xls),*.xls," + " Excel Files (*.xls), *.xls")
if li_value = 1 then
lb_exist = FileExists(ls_docname)
IF lb_exist THEN
li_ret = MessageBox("Ìáʾ",ls_named+"ÒѾ´æÔÚ£¬ÊÇ·ñ¸²¸Ç¸ÃÎļþ?", Question!, YesNo!)
if li_ret <> 1 then goto label
end if
else
return
end if
ll_return = dw_output.SaveAs(ls_docname, Excel!, FALSE)
if ll_return = 1 then
messagebox("³É¹¦","µ¼³öÊý¾Ý³É¹¦!")
else
messagebox("ʧ°Ü","µ¼³öÊý¾Ýʧ°Ü!")
end if
boyliulang 2003-05-28
- 打赏
- 举报
你查查getfilesavename,pb 帮助
GetFileSaveName("Select File",ls_docname, ls_named, "xls", + &
"Excel Files (*.xls),*.xls," + " Excel Files (*.xls), *.xls")
GetFileSaveName("Select File",ls_docname, ls_named, "xls", + &
"Excel Files (*.xls),*.xls," + " Excel Files (*.xls), *.xls")
