求助！求帮忙为两个模块增加调用浏览对话框获取文件夹路径！！

sgamefan

第一个模块是对文件夹下工作薄指定单元格进行遍历：
Sub DG()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show <> -1 Then Exit Sub

    Dim m$: m = "G278020300206"  '前面不变的部分,需要的话，自己更改
    Dim n: n = 1  '后面自动排序的部分，这是初始值，需要的话，自己更改，不要超过2位数
    Dim j: j = 1 '排序时，序列的等差值，自己改动（比如：序列12345等差值为1，序列13579等差值为2）
    p = fd  '路径
    f = Dir(p & "*.xls")
    Do While f <> ""
    Workbooks.Open p & f
    Workbooks(f).Activate
    ActiveWorkbook.Sheets("资信调查表").Range("B3") = m & Format(n, "000")
    n = n + j
    ActiveWorkbook.Close True
    f = Dir
  Loop
End Sub



第二个模块是对文件夹下工作薄中指定工作表进行打印：
Sub printer()
With Application.FileSearch
   .LookIn = "D:\民族村\6组\" '设置文件的搜索路径
   .FileType = msoFileTypeExcelWorkbooks '设置要搜索的文件类型为工作簿
   If .Execute > 0 Then '如果找到一个或多个文件
     For i = 1 To .FoundFiles.Count  '设置打开工作簙的循环
      Workbooks.Open Filename:=.FoundFiles(i) '打开找到的每一个工作簙
       ol = 1
       Sheets("资信调查表").PrintOut Copies:=ol
       ActiveWorkbook.Save '保存当前工作簙
       ActiveWorkbook.Close '关闭当前工作簙
     Next i '打开下一个工作簙
   Else
   MsgBox "没有找到任何工作簿文件" '提示没有找到任何工作簿文件
   End If
End With
End Sub



求对这两个模块增加调用浏览对话框进行路径选择获取文件夹路径工作！！！！！！

hhh6666hhh

1. Dim FilePath As String
   
2. Application.FileDialog(msoFileDialogFolderPicker).InitialFileName = "C:" '初始目录
   
3. With Application.FileDialog(msoFileDialogOpen)
   
4.         .AllowMultiSelect = False
   
5.         .Filters.Clear
   
6.         .Filters.Add "应用程序", "*.exe"  '格式和名称自己改改
   
7.         If .Show = -1 Then
   
8.            FilePath = .SelectedItems(1) '这个是你调用的那个路径
   
9.         End If
   
10.     End With

复制代码

是这个吗？