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