[已解决]导入文件夹内的工作薄数据汇总的VBA代码修改

安全网

需要将工作薄内的VBA代码修改为可以选择数据1文件夹内的数据汇总，也可以只选这数据2文件夹的数据汇总，不需要2个同时汇总的选择文件夹的VBA代码
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "数据表.xls")  '读入
将上面这句改成可以选择文件夹内的的工作薄的VBA代码

最佳答案

月排行榜 / 总排行榜

grf1973

2016-5-10 16:27

  '** 使用FileDialog对象来选择文件夹
    Dim fd As FileDialog
    Dim strPath As String
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)   ' 显示选择文件夹对话框
    fd.InitialFileName = ThisWorkbook.Path & "\"       '设置默认路径
    If fd.Show = -1 Then        '** 用户选择了文件夹
        strPath = fd.SelectedItems(1)
    Else
        strPath = "": Exit Sub
    End If
    Set fd = Nothing
    '************
   
    Set wb = Workbooks.Open(strPath & "\" & "数据表.xls")  '读入

跳转到最佳答案楼层

安全网

求高手帮忙看是哪里运行才出错

grf1973

  '** 使用FileDialog对象来选择文件夹
    Dim fd As FileDialog
    Dim strPath As String
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)   ' 显示选择文件夹对话框
    fd.InitialFileName = ThisWorkbook.Path & "\"       '设置默认路径
    If fd.Show = -1 Then        '** 用户选择了文件夹
        strPath = fd.SelectedItems(1)
    Else
        strPath = "": Exit Sub
    End If
    Set fd = Nothing
    '************
   
    Set wb = Workbooks.Open(strPath & "\" & "数据表.xls")  '读入

安全网

grf1973 发表于 2016-5-10 16:27
'** 使用FileDialog对象来选择文件夹
    Dim fd As FileDialog
    Dim strPath As String

点击取消就运行出错

安全网

grf1973 发表于 2016-5-10 16:27
'** 使用FileDialog对象来选择文件夹
    Dim fd As FileDialog
    Dim strPath As String

这个代码能简化么？

安全网

grf1973 发表于 2016-5-10 16:27
'** 使用FileDialog对象来选择文件夹
    Dim fd As FileDialog
    Dim strPath As String

• 简化成这样的
• Set fso = CreateObject("scripting.filesystemobject")
•     fp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & "\"
  

安全网

帮忙看看点击取消就出现这样的错误

安全网

有高手知道是什么原因么