[已解决]怎样把某个文件夹中文件按照某工作表某列顺序依次打开

乐乐2006201506

怎样把某个文件夹中文件按照某工作表某列顺序依次打开？即用依次打开数据工作簿A列的顺序，依次打开、保存、关闭打开文件文件夹中的文件，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2016-10-24 09:59

Sub Click()
    Dim A, wb, p$, temp$, i%
   
    A = Sheets("打开数据").[a1].CurrentRegion
    p = ThisWorkbook.Path & "\"

    For i = 1 To UBound(A)
        temp = p & "\需打开文件文件夹\" & A(i, 1) & ".xlsx"
        If Dir(temp) <> "" Then
            Set wb = Workbooks.Open(temp)
            wb.Close
        End If
    Next i
End Sub

跳转到最佳答案楼层

爱疯

Sub Click()
    Dim A, wb, p$, temp$, i%
   
    A = Sheets("打开数据").[a1].CurrentRegion
    p = ThisWorkbook.Path & "\"

    For i = 1 To UBound(A)
        temp = p & "\需打开文件文件夹\" & A(i, 1) & ".xlsx"
        If Dir(temp) <> "" Then
            Set wb = Workbooks.Open(temp)
            wb.Close
        End If
    Next i
End Sub

乐乐2006201506

爱疯 发表于 2016-10-24 09:59
Sub Click()
    Dim A, wb, p$, temp$, i%
   

Sub Click()
    Dim A, wb, p$, temp$, i%

    Application.DisplayAlerts = False

    A = Sheets("打开数据").[a1].CurrentRegion
    p = ThisWorkbook.Path & "\"

    For i = 1 To UBound(A)
        temp = p & "\需打开文件文件夹\" & A(i, 1) & ".xlsx"
        If Dir(temp) <> "" Then
            Set wb = Workbooks.Open(temp)
            Cells(1, 1) = "姓名"
            wb.Close
        End If
    Application.OnTime Now + TimeValue("00:00:05"), "TIMER"
    Next i

    Application.DisplayAlerts = True

End Sub


为什么我加了延迟代码后，最后打开了几个文件，就要确定几次上面图片，有办法解决吗？谢谢！

爱疯

指定工作簿和工作表后呢？比如
wb.sheets(1).Cells(1, 1) = "姓名"

爱疯

"TIMER",这个过程名必须要指定。格式不大记得了。

好像是 工作簿.过程名
wb.timer
过程名最好换取一个不容易重名的名字

乐乐2006201506

爱疯 发表于 2016-10-24 11:58
"TIMER",这个过程名必须要指定。格式不大记得了。

好像是 工作簿.过程名

那改个什么呢?

hhzjxss

爱疯 发表于 2016-10-24 09:59
Sub Click()
    Dim A, wb, p$, temp$, i%
   

你的VBA水平越来越高了！