ScreenUpdating = False xFile = Dir(xStrPath & "\*.txt") Do While xFile <> "" xCount = xCount + 1 Sheets(xCount).Select With ActiveSheet.QueryTables.
確定! 回上一頁