带你入门VBA，第四讲（如何控制关于工作薄与工作表）

yasen

请问:

如过路径和文件名都由变量提供,Filename:=后的代码应该怎么写

如: Dir为路径,单元格A1取值, Filename1为文件名,从单元格A2取值

Dim Dir,Filename1 as string

Dir=range(A1).value

Filename=range(a2).value

则:ActiveWorkbook.SaveAs Filename:=后的代码如何写?

yasen

上面的问题怎么解决??

shangyu

以下是引用yasen在2004-10-29 16:53:00的发言：

请问:

如过路径和文件名都由变量提供,Filename:=后的代码应该怎么写

如: Dir为路径,单元格A1取值, Filename1为文件名,从单元格A2取值

Dim Dir,Filename1 as string

Dir=range(A1).value

Filename=range(a2).value

则:ActiveWorkbook.SaveAs Filename:=后的代码如何写?

ActiveWorkbook.SaveAs Filename:= Dir & "\" & Filename & ".xls"

红色部分有就不要了。

yasen

Thanks a lot

yasen

请问:如何在打开或新建一个Excel文件前,判断这个文件是否存在?

shangyu

if dir("c:\a\b.xls") = "" then

msgbox "文件不存在！"

else

msgbox "文件已存在！"

endif

yigepure

以下是引用shangyu在2004-11-3 19:20:00的发言：

if dir("c:\a\b.xls") = "" then

msgbox "文件不存在！"

else

msgbox "文件已存在！"

endif

请问版主dir它是什么意思,用法是怎么样的呢/?

兰色幻想

返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配

更详细的看帮助吧，那里很清楚

yigepure

谢谢

gvntw

以下是引用黑色幽默在2004-10-14 15:19:00的发言：

请教一下，用VB的OPEN可以打开其他可执行文件么？比如*.mp3,*.bmp……

不必用VB，直接用超链接就可以。