作者aszyzit (愿君珍重幸福随~)
看板Visual_Basic
标题[VBA ] 请问EXCEL VBA如何用saveas使另存新档的视窗出现,thx
时间Mon Sep 29 17:09:42 2008
各位板友好:
小弟有个问题,最近在帮朋友打很久没用的excel VBA帮他做简
单的进出货单.
只是小弟碰到一个问题.
saveas 的参数要如何下,才会出现 另存新档的视窗出现.
不然都一直判别错误. QQ, 不然就一定要打固定的档案路径.
问题是每天不可能存同一个档案.
如:
ActiveWorkbook.SaveAs Filename:="c:\aaa.xls"
试了很多修改这行的想法, 但是都没办法成功.
用巨集的侧录也录不到,当开启另存新档画面,按取消.
跟本没有这一行, 按执行,又会出现上面那一行程式码的
写法.
不知道这边有没有高手可以给点建议. 谢谢.
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.112.236.248
1F：推 zppzpp:写在VB的或可以用一个TEXT作为档案名称输入.... 09/29 20:03
2F：推 zppzpp:ActiveWorkbook.SaveAs "c:\aaa.xls" 09/29 20:07
3F：→ zppzpp:没RUN过凭记忆 09/29 20:08
4F：→ MOONRAKER:使用inputbox()问档名 如savefn=inputbox("filename: ") 09/29 20:50
5F：→ MOONRAKER:然後 activeworkbook.saveas filename:=savefn 就结了 09/29 20:50
6F：→ aszyzit:谢谢各位高手的帮忙~3Q 09/29 22:30
7F：推 twtimbow: 可以参考Application.GetSaveAsFilename的用法 09/30 12:23
8F：→ twtimbow: 它等同是可以选路径的INPUTBOX,帮你取得路径档名 09/30 12:25