Question

我花了整整一天的时间来理解VBA，并尝试了许多不同的网站来找到正确的代码，但是我无法使其正常工作。我现在使用的代码现在将导入我文件夹中所有excel文件中的所有工作表。我只需要导入最新的。正如我在获得此代码的网站中所建议的那样，我在其中添加了一个命令按钮。从长远来看，我希望能够将导入的数据应用到我已经在主工作表上拥有的表中，接下来是打印模板，然后删除信息，以便我可以使用下一个最近的电子表格重新开始。但是现在我只想知道如何仅将最新的文件导入到我的工作表中。

Private Sub CommandButton1_Click()

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer

directory = "C:\ExcelPract\"
fileName = Dir(directory & "*.xl??")


Do While fileName <> ""
    Workbooks.Open (directory & fileName)

    For Each sheet In Workbooks(fileName).Worksheets
        total = Workbooks("Docket .xls").Worksheets.count
        Workbooks(fileName).Worksheets(sheet.Name).Copy _
        after:=Workbooks("Docket .xls").Worksheets(total)
    Next sheet

    Workbooks(fileName).Close
    fileName = Dir()
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

从文件夹中的最新excel文件导入图纸？第一次使用VBA

0 个答案: