Exactly! I think you are absolutely right! I try to save, close, and then rename and transfer the file to a new folder. Thank You Very Much!
PS It really helped!

Checked the code line by line error appears when closing the second file. And it doesn't matter what method is used.
Application.Quit or ThisWorkbook.Close

The file is protected. Such an entry is not suitable because the password protects not opening, but editing! There are two kinds of password Password and WriteResPassword! I have already worked around the problem via VBA in another file, but the error appears. Everything works, but the error stops t...

As I said, the file contains a password for editing. XLO doesn't work i tried adding password to command record ! Therefore it is impossible. I cannot use commands without Handle Variable. Maybe Im stupid?
O! I think I can use XLC in the second file that I open with XLO. Let's try!

Great news! I'll try)

I open the file this way, but for using XLRunCode I need a handle variable or am I wrong? VBSTART Dim xlApp Dim xlBook 'Opens the Excel file in Excel Sub OpenExcelFile(filename) Set xlApp = CreateObject("Excel.Application") xlApp.visible = true Set xlBook = xlApp.Workbooks.open(filename,,False,,,123...

Thank you, I did so, the topic is closed.

Thanks, but this is impossible, because the file where the lines need to be inserted has a password for editing. I cannot open it with Scheduler commands. I am using VBA to open it. I could simulate human actions using hotkeys, but I want optimized and fast code. I can write VBA code for Excel if yo...

I need to copy the specified range from one Excel book to the first empty table row of another book VBSTART Dim xlApp Dim xlBook 'Opens the Excel file in Excel Sub OpenExcelFile(filename) Set xlApp = CreateObject("Excel.Application") xlApp.visible = true Set xlBook = xlApp.Workbooks.open(filename,,F...

This will shorten the code thanks! May I ask offtopic? If I want to open an Excel file with a password, is it only through VBA? Are there any other options?

I think I did it

Let>GFL_TYPE=0 Let>GFL_SORTTYPE=1 IfFileExists>Z:\Обмен\ЗАЯВКИ\ЗАЯВКИ в поставку\ОТЕЧ\2021\*.* GetFileList>Z:\Обмен\ЗАЯВКИ\ЗАЯВКИ в поставку\ОТЕЧ\2021\*.*,files,; Separate>files,;,file_names MessageModal>Num Files: %file_names_count% Let>k=0 Repeat>k Let>k=k+1 Executefile>file_names_%k% //Message>f...

I think you are absolutely right, but my inexperience prevents me from fully understanding the syntax of the language. Tell me how to write correctly? Function NewestFile(Folder) Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(Folder) dPrevDate = "0" For Each oFile...

How can I change the function to only work for visible files? Function NewestFile(Folder) Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(Folder) dPrevDate = "0" For each oFile In oFolder.Files If DateDiff("s", dPrevDate, oFile.DateLastModified) > 0 Then sNewestFil...