首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

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

2013-01-21 
VBA如何将两个EXCEL工作表合并到当前工作簿中d:\My Documents\1.dbf和d:\My Documents\2.dbf这两个文件用e

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


热点排行