带有循环的文件夹名称列表问题

Question

纽布在这里。

我需要水平列出文件夹的名称。

我将此代码用于任务：

Sub 2()
Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim i As Integer

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\Betty\AppData\Roaming\MetaQuotes\Terminal\B4D9BCD10BE9B5248AFCB2BE2411BA10\MQL4\Files\Export_History")
i = 1

For Each objSubFolder In objFolder.subfolders
    Cells(1, i + 1) = objSubFolder.Name
Next objSubFolder

End Sub

当我按原样使用代码时，我得到了这个结果：

使用调试器进入代码的每一行，我看到它只是覆盖同一单元格中的每个文件名。

任何想法如何解决？

Answer 1

尝试在循环内增加i以避免覆盖

<mvc:resources mapping="/resources/**" location="/WEB-INF/resources/"/>

这可能更容易在2开始我并删除初始+ 1，因为我怀疑你实际上想要一次去一个单元格

For Each objSubFolder In objFolder.subfolders
    Cells(1, i + 1) = objSubFolder.Name
    i = i + 1
Next objSubFolder