欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

遍歷文件夾下所有文件并輸出文件名

Sub OpenAndClose()    Dim MyFile As String    Dim Arr(1000) As String    Dim count As Integer    MyFile = Dir("C:\Users\mikowoo\Desktop\EPSreport\result\" & "*.xlsx")    count = count + 1    Arr(count) = MyFile        Do While MyFile <> ""        MyFile = Dir        If MyFile = "" Then            Exit Do        End If        count = count + 1        Arr(count) = MyFile    Loop    For i = 1 To count        'Workbooks.Open Filename:="C:\Users\mikowoo\Desktop\EPSreport\result\"&Arr(i)        'Cells(1,1)="alex bn lee'        Debug.Print Arr(i)        'ActiveWorkbook.Close savechanges=True '關(guān)閉打開(kāi)的文件    Next    Debug.Print sEnd Sub