引用单元格内容
引用单元格内容
提问于 2020-12-16 12:39:20
我正在使用以下命令将文件夹中的文件名拉入我的工作簿中
Sub C_Get_file_names_from_TGRE_M1()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.getfolder("C:\Users\ferna\Downloads\")
For Each oFile In oFolder.Files
Cells(i + 1, 1) = oFile.Name
i = i + 1
Next oFile
End Sub现在，我不想直接引用文件夹，而是将文件夹路径写在一个像D5这样的单元格中，并在代码中引用该单元格。我怎么能这么做呢？
回答 1
Stack Overflow用户
发布于 2020-12-16 12:41:45
只需将硬编码的文件路径替换为对单元格的范围引用
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Set oFolder = oFSO.getfolder(ws.Range("D5").Value)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/65317426
复制相关文章
相似问题
腾讯云开发者
