Как закрыть файл, который извлекает последнюю таблицу Excel после ее запуска и без сохранения - PullRequest
0 голосов
/ 11 июля 2019

Здравствуйте, это, вероятно, простое исправление, но я запустил свой макрос, но мне нужно закрыть и не сохранять файл, который я вызвал после запуска макроса.

Я уже пробовал activeworkbook close and close.workbooksно я не уверен, как называется моя рабочая книга, поскольку она получает последнюю версию

Sub oversub()
    'Latest File Code
    Dim MyPath As String
    Dim MyFile As String
    Dim LatestFile As String
    Dim LatestDate As Date
    Dim LMD As Date

    MyPath = "C:\Users\TAmon1\Desktop\OverSubscription Dash"
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
    MyFile = Dir(MyPath & "*.csv", vbNormal)
    If Len(MyFile) = 0 Then
        MsgBox "No files were found...", vbExclamation
        Exit Sub
    End If
    Do While Len(MyFile) > 0
        LMD = FileDateTime(MyPath & MyFile)
        If LMD > LatestDate Then
            LatestFile = MyFile
            LatestDate = LMD
        End If
        MyFile = Dir
    Loop

    Workbooks.Open MyPath & LatestFile
    'Variables for Vlookup

    Dim wbcsv As Workbook, wbplanning As Workbook
    Set wbplanning = Workbooks("Planning_tool.xlsm")
    Set wbcsv = Workbooks.Open(MyPath & LatestFile)
    Dim wb As Workbook

    Windows("Planning_tool.xlsm").Activate

    wbplanning.Sheets(1).Range("N2").FormulaR1C1 = _
        "=VLOOKUP(C[-13],'" & wbcsv.Name & "'!C1:C11,11,FALSE)"
    Range("N2").Select
    Selection.AutoFill Destination:=Range("N2:N539")

    wbplanning.Sheets(1).Range("o2").FormulaR1C1 = _
        "=VLOOKUP(C[-14],'" & wbcsv.Name & "'!C1:C11,5,FALSE)"
    Range("o2").Select
    Selection.AutoFill Destination:=Range("o2:o539")
    Columns("N:O").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    ''Need to close latest file and not save insert code here    
End Sub

Когда я попробовал весь описанный мной метод, я получил ошибку вне диапазона.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...