excel里生成指定文件夹目录的宏

要生成指定文件夹目录，可以使用 VBA 宏代码。下面是一个简单的示例：

Sub GetDirectory()
   Dim strPath As String
   strPath = Application.DefaultFilePath & "\"
   If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
   strPath = strDrive & "My Documents\FolderA\"
   If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
   Cells(1, 1).Value = strPath
End Sub

这段代码会生成 "My Documents\FolderA" 这个文件夹的路径，并将其写入单元格 A1 中。

你可以根据自己的需要修改代码中的文件夹路径，或者添加更多的代码来实现更多功能。