Здравствуйте, это, вероятно, простое исправление, но я запустил свой макрос, но мне нужно закрыть и не сохранять файл, который я вызвал после запуска макроса.
Я уже пробовал 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
Когда я попробовал весь описанный мной метод, я получил ошибку вне диапазона.