如何selectmacros应该在哪里执行（在一个单元格中）
我有下面的macros，我想在单元格M153中执行，现在它只是列出A1单元格中的所有文件。
该macros应查找一个文件夹内，并返回该文件夹中的所有文档名称。
如果有人能帮助我，那会很棒。
这里是代码：
Sub FilnamnRitningar() Dim varDirectory As Variant Dim flag As Boolean Dim i As Integer Dim strDirectory As String Dim ws As Worksheet Dim rng As Range Dim a As String Dim o As String Dim a1 As String Dim a2 As String a = Chr(228) a1 = Chr(229) o = Chr(246) a2 = Chr(197) Set ws = Sheets("Macron") Set rng = ws.Range("A4:C100") strDirectory = ("C:\Users\" & Application.VLookup("saljareKonto", rng, 3, False) & "\Dropbox (ATLE Consulting)\ATLE Consulting\Partner\" & Application.VLookup("partnerBolagsnamn", rng, 3, False) & "\Best" & a & "llare\" & Application.VLookup("kundFulltNamn", rng, 3, False) & "\Ritningar\") i = 1 flag = True varDirectory = Dir(strDirectory, vbDirectory) Range("M153").Select While flag = True If varDirectory = "" Then flag = False Else Cells(i + 1, 1) = varDirectory 'returns the next file or directory in the path varDirectory = Dir i = i + 1 End If Wend End Sub 提前致谢，
最好的问候AgatonSaxx
如果我理解你的话，你想列出M153单元格中的所有文件而不是A1？ 然后改变这一行
cells(i+1,i) = varDirectory
成
cells(152+i,"M") = varDirectory
你如何使用批处理脚本？
只要做dir *.txt /b /s >> C:\temp\test.txt
然后读入VBA！