请高手指点： fn = ThisWorkbook.Path & "\" & filename

Jessegao

不明白这个语句的意思及“\”这个是什么作用。
全部语句如下：
Sub HzWb()
    Dim bt As Range, r As Long, c As Long
    r = 1    '1 ??????????
    c = 8    '8 ??????????
    Range(Cells(r + 1, "A"), Cells(65536, c)).ClearContents    ' ?????????????????
    Application.ScreenUpdating = False
    Dim filename As String, wb As Workbook, erow As Long, fn As String, arr As Variant
    filename = Dir(ThisWorkbook.Path & "\*.xls")
    Do While filename <> ""
        If filename <> ThisWorkbook.Name Then    ' ?ж????????????????
            erow = Range("A1").CurrentRegion.Rows.Count + 1    ' ????????е?????????к?
            fn = ThisWorkbook.Path & "\" & filename
            Set wb = GetObject(fn)    ' ??fn ????????????????????
            Set sht = wb.Worksheets(1)    ' ????????1 ???????
            ' ????????е?????????arr ??????
            arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))
            ' ??????arr ?е?????д??????
            Cells(erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
            wb.Close False
        End If
        filename = Dir    ' ??Dir ????????????????????????????
    Loop
    Application.ScreenUpdating = True
End Sub

wodewan

Thisworkbook.path 指的是含有该代码的EXCEL文件的地址，好比含有该代码的文件在C盘的SDF文件夹下，用Thisworkbook.path将得到一个这样的字符串"C:\SDF",是个文本型字符串，若后面还要接文件名比如文件叫a.xlsx, 如果直接连接就成了"C:\SDFa.xlsx",显然是不对的，所以中间得连接个“\",才能变成你想要得的址："C:\SDF\a.xlsx"，合起来就是ThisWorkbook.Path & "\" & filename这个形式了。

Jessegao

wodewan 发表于 2019-10-17 09:46
Thisworkbook.path 指的是含有该代码的EXCEL文件的地址，好比含有该代码的文件在C盘的SDF文件夹下，用Thisw ...

非常感谢，请问你是如何学的这么好的

Jessegao

wodewan 发表于 2019-10-17 09:46
Thisworkbook.path 指的是含有该代码的EXCEL文件的地址，好比含有该代码的文件在C盘的SDF文件夹下，用Thisw ...

再麻烦一下，最后面那个 filename = Dir  这句有什么用，小白看不懂啊

wodewan

Jessegao 发表于 2019-10-17 09:59
再麻烦一下，最后面那个 filename = Dir  这句有什么用，小白看不懂啊

Dir()主要用于获取（遍历）目录下的文件名

Jessegao

wodewan 发表于 2019-10-17 10:08
Dir()主要用于获取（遍历）目录下的文件名

这个明白，就是不明白end if前单表的数据已经汇总到总表中了，为什么还有这个filename=dir， 感觉没必要啊

wodewan

Jessegao 发表于 2019-10-17 10:48
这个明白，就是不明白end if前单表的数据已经汇总到总表中了，为什么还有这个filename=dir， 感觉没必要 ...

DIR的目的是取得文件夹下所有的文件名，但是一次只取一个文件名，所有要通过循环取得所有文件名，第二次取的时候，DIR后面的地址参数可省略，就可以写成filename=dir，不用再接thisworkbook.path.....,当DIR取得是空的时候，停止循环才把所有文件的数据都得到（所有才有 While filename <> ""这一句）。你可以查看DIR的帮助说明,不是简单的从代码的表现形式来理解。

Jessegao

wodewan 发表于 2019-10-17 11:04
DIR的目的是取得文件夹下所有的文件名，但是一次只取一个文件名，所有要通过循环取得所有文件名，第二次 ...

非常感谢，是我看的不仔细了，刚看明白了。