怎么将默认文件夹地址改为自由选择文件夹地址

mohao · 发表于 2023-12-20 16:44

file_path = "C:\Users\Administrator\Desktop\MK\MH\

怎么将默认文件夹地址改为自由选择文件夹地址

limonet · 发表于 2023-12-20 16:51

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then Path = .SelectedItems(1) & "\" Else Exit Sub
End With

tspliu · 发表于 2023-12-20 17:10

Sub SelectFolder()
Dim FolderPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
      .Title = "Select a Folder"
      .Show
      If .SelectedItems.Count > 0 Then
         FolderPath = .SelectedItems(1)
         MsgBox "You have selected the folder: " & FolderPath
      End If
End With
End Sub

ykcbf1100 · 发表于 2023-12-20 17:12

附件供参考。。。

tspliu · 发表于 2023-12-20 17:13

。

沈默00 · 发表于 2023-12-20 17:30

用内置对话框Application.GetOpenFilename，

mohao · 发表于 2024-1-4 11:49

ykcbf1100 发表于 2023-12-20 17:12
附件供参考。。。

请教一下，如果工作簿的列标题不一样，会出现错位，怎么修改一下代码？

dixuan0329 · 发表于 2024-1-4 16:06

tspliu 发表于 2023-12-20 17:13
。

可以，AI都排上用场了

		自动登录	找回密码
密码			免费注册

[求助] 怎么将默认文件夹地址改为自由选择文件夹地址