vba for excel的几个简单问题，大家阿帮忙啊！！

[aaa2520]

vba for excel的几个简单问题，大家阿帮忙啊！！

1）怎么清除剪切板里面的内容（我的程序调用了剪切板，关闭的时候总提示我，是否保留.....)
2）怎么给excel的菜单添加一个子菜单
3）怎么获得当前目录
4）怎么设置当前目录
5）怎么获得当前文件所在目录

谢谢，可怜我就那么点分了，大家帮帮我吧，别嫌弃分少 ：）

[aaa2520]

谢谢

谁还知道其他的》？？

[xxedge]

得到当前目录：
FileSystem.CurDir
改变目录:
FileSystem.ChDir
获得当前文件名：
Application.ActiveWorkbook.FullName
参考以下的例子：

Sub get_current_path()

MsgBox FileSystem.CurDir
FileSystem.ChDir ("c:\")
MsgBox FileSystem.CurDir
MsgBox Application.ActiveWorkbook.FullName

End Sub

我也刚开始学习VBA,多多指教。

[hpux]

第一个问题刚学会：
Application.CutCopyMode = False
即可。

http://expert.csdn.net/Expert/topic/1834/1834962.xml?temp=.6504022

[death]

4）怎么设置当前目录
ChDir("c:\")

5）怎么获得当前文件所在目录
ThisWorkbook.path