Question

我想知道是否有人可以提供帮助。我创建了一个记录器，其中有多个用户进入excel，而userform将记录所有细节。每个用户都有一个单独的文件，然后主表将拉出他们的Excel工作表中的数据并完全拉出来。

我们现在有了一个新系统，它将通过文本文件（不幸的是只有txt文件）。

我现在已经设置所有用户将他们的个人数据导出为txt文件。但是我现在遇到麻烦，主题表循环数据并在下面添加下一个用户。

我的旧代码是：

Sub Theloopofloops()

Dim wbk As Workbook
Dim Filename As String
Dim path As String
Dim rCell As Range
Dim wsO As Worksheet

path = "L:\MK\Logger\"
Filename = Dir(path & "*.xlsm")
Set wsO = ThisWorkbook.Sheets("Master")

Do While Len(Filename) > 0
    DoEvents
    Set wbk = Workbooks.Open(path & Filename, True, True)
        For Each rCell In wbk.Worksheets("Calls").Range("A2:A2000").Cells
            If rCell <> "" And rCell.Value <> vbNullString And rCell.Value <> 0 Then
                wsO.Cells(wsO.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 16).Value = rCell.Resize(, 16).Value
            End If
        Next rCell
    wbk.Close False
    Filename = Dir
Loop

显然这是在循环工作簿。非常感谢任何帮助。

谢谢，

循环播放文本文件

0 个答案: