读书人

VBA怎么将两个EXCEL工作表合并到当前工

发布时间: 2013-01-21 10:15:39 作者: rapoo

VBA如何将两个EXCEL工作表合并到当前工作簿中
d:\My Documents\1.dbf和
d:\My Documents\2.dbf 这两个文件用excel可以直接打开,我想写段VBA程序,将这两个工作表复制到当前工作簿中,
分别为WorkSheets(2)和WorkSheets(3),如何操作?

VBA能自动获得系统“我的文档”所在的目录吗?

[解决办法]
api的方法可以获得。VBA里可以调用一段脚本获得。



Sub GetMyDocumentsPath()

dim Path as String

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Ws = CreateObject("WScript.Shell")
Path = Ws.SpecialFolders("MyDocuments")

Debug.Print Path

End Sub


读书人网 >VBA

热点推荐