Run-time error '55' File already open

If Dir(ImaF, 7) <> vbNullString Then Kill ImaF

=ЕСЛИОШИБКА(
ВПР([@ID];static_prices;10;0);
ЕСЛИ(И(ABS(ДЕНЬНЕД(ТДАТА();2)+ОСТАТ(ОКРУГЛ(ТДАТА();4);1)-6,625)<=1;[@Поставщик]<>"Pavilion");0;[@Остаток]))

Sub ExportToCSVUTF8()
    Dim ws As Worksheet, nws As Worksheet
    Dim wb          As Workbook
    Dim delim$, Path$, txt$
    Dim i&, j&, s&
    Dim arr(), arr2()
 
    Set ws = ActiveWorkbook.Worksheets("Итоговые цены")
    arr = ws.UsedRange.Value
    delim = "|": s = 3000
 
    For i = LBound(arr, 1) To UBound(arr, 1)
        ReDim Preserve arr2(i - 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            If txt = "" Then
                txt = arr(i, j)
            Else
                txt = txt & delim & arr(i, j)
            End If
        Next j
        arr2(i - 1) = txt
        txt = ""
    Next i
     
    For i = LBound(arr2) To UBound(arr2) Step s
        Set wb = Workbooks.Add
        For j = i To i + (s - 1)
            If j > UBound(arr2) Then Exit For
            wb.Worksheets(1).Cells(j - i + 1, 1).Value = arr2(j)
        Next j
        Application.DisplayAlerts = False
        wb.SaveAs "d:\Clouds\Yandex.Disk\Магазин\pricelists\import\" & "Prices_marketplaces_from_" & i & "_to_" & i + s & ".csv", xlCSVUTF8
        wb.Close False
    Next i
    'MsgBox "Готово", vbInformation, "PlanetaExcel"
End Sub

Option Explicit
Public Sub ExportWorksheetAndSaveAsCSV()
Dim wbkExport As Workbook
Dim shtToExport As Worksheet
Set shtToExport = ThisWorkbook.Worksheets("Итоговые цены")     'Sheet to export as CSV
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False                       'Possibly overwrite without asking
wbkExport.SaveAs Filename:="d:\Clouds\Yandex.Disk\Магазин\pricelists\import\Prices_for_marketplaces_new.csv", FileFormat:=xlCSV
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False
End Sub

//////////////////////////////////////////////////////////////////////////////////////////

function getOrdersList() {
  const endpoint = "/v3/posting/fbs/list";
  const sheet_name = 'Заказы';

  let options = {
    method: "POST",
    headers:  {
        'Client-Id': CLIENT_ID,
        'Api-Key': API_KEY,
        'accept': 'application/json'    
    },
    payload:{
  "dir": "ASC",
  "filter": {
    "since": "2023-01-01T00:00:00.000Z",
    "to": "2023-12-01T23:59:59.000Z"
  },
  "limit": 1000,
  "offset": 0,
  "translit": true,
    "with": {
        "analytics_data": true,
        "financial_data": true
      }
    }
  };
  options.payload = JSON.stringify(options.payload);
  
  let response = UrlFetchApp.fetch(API_URL + endpoint, options);
  
  let rows = JSON.parse(response).result;

  
  if(rows){
  //SpreadsheetApp.getActive().toast("Данные получены успешно.");
  //SpreadsheetApp.getUi().alert(response);
  }
 
  const spreadsheet = SpreadsheetApp.getActiveSpreadsheet();
  const sheet = spreadsheet.getSheetByName(sheet_name);

  let range = sheet.getRange(1,1,10000,ORDERS_NUM_COLS);
  range.clearContent();
  
  sheet.activate();
  
  // Append the headers.
  const headers = ["Номер заказа", "Статус отправления", "Дата и время", "Артикул товара", 
                   "Название товара", "Количество", "Цена продажи"];
  //sheet.appendRow(headers);    
  sheet.getRange(1, 1, 1, headers.length).setValues([headers]);  
  
  

  // Append the results.
    var data = new Array();
    
  for (let i = 0; i < rows.length; i++) {
    const cols = rows[i];
    const values = [cols.order_number, cols.status, 
    Utilities.formatDate(new Date(cols.in_process_at), timeZone, 'dd.MM.yyyy HH:mm'), 
    cols.products[0].offer_id + '', 
                    cols.products[0].name, cols.products[0].quantity,
                    cols.products[0].price | 0 ];
   data.push([values]);
       
  }
   if(data.length>0)
   {
    sheet.getRange(2, 1, data.length, headers.length).setValues(data);   
   }
}//function getOrdersList()
//////////////////////////////////////////////////////////////////////////////////////////

{
    "result": [
        {
            "order_id": 3009049439,
            "order_number": "0125179652-0001",
            "posting_number": "0125179652-0001-1",
            "status": "delivered",
            "cancel_reason_id": 0,
            "created_at": "2023-01-01T09:38:43Z",
            "in_process_at": "2023-01-01T09:43:49Z",
            "shipment_date": "2023-01-10T10:00:00Z",
            "products": [
                {
                    "sku": 739260610,
                    "name": "Матренин Посад канва с рисунком \"Котёнок\" 435-1",
                    "quantity": 1,
                    "offer_id": "03373",
                    "price": "568.000000",
                    "mandatory_mark": []
                }
            ],
            "barcodes": null,
            "analytics_data": {
                "region": "Свердловская Область",
                "city": "Красноуральск",
                "delivery_type": "PVZ",
                "is_premium": false,
                "payment_type_group_name": "Карты оплаты",
                "is_legal": false
            },
            "financial_data": {
                "products": [
                    {
                        "commission_amount": -51.12,
                        "commission_percent": 9,
                        "payout": 516.88,
                        "product_id": 739260610,
                        "old_price": 686,
                        "price": 568,
                        "total_discount_value": 118,
                        "total_discount_percent": 17.2,
                        "actions": [
                            "Системная виртуальная скидка селлера"
                        ],
                        "picking": null,
                        "quantity": 1,
                        "client_price": "",
                        "item_services": {
                            "marketplace_service_item_fulfillment": 0,
                            "marketplace_service_item_pickup": 0,
                            "marketplace_service_item_dropoff_pvz": -25,
                            "marketplace_service_item_dropoff_sc": 0,
                            "marketplace_service_item_dropoff_ff": 0,
                            "marketplace_service_item_direct_flow_trans": 0,
                            "marketplace_service_item_return_flow_trans": 0,
                            "marketplace_service_item_deliv_to_customer": -31.24,
                            "marketplace_service_item_return_not_deliv_to_customer": 0,
                            "marketplace_service_item_return_part_goods_customer": 0,
                            "marketplace_service_item_return_after_deliv_to_customer": 0
                        },
                        "currency_code": "RUB"
                    }
                ],
                "posting_services": {
                    "marketplace_service_item_fulfillment": 0,
                    "marketplace_service_item_pickup": 0,
                    "marketplace_service_item_dropoff_pvz": 0,
                    "marketplace_service_item_dropoff_sc": 0,
                    "marketplace_service_item_dropoff_ff": 0,
                    "marketplace_service_item_direct_flow_trans": 0,
                    "marketplace_service_item_return_flow_trans": 0,
                    "marketplace_service_item_deliv_to_customer": 0,
                    "marketplace_service_item_return_not_deliv_to_customer": 0,
                    "marketplace_service_item_return_part_goods_customer": 0,
                    "marketplace_service_item_return_after_deliv_to_customer": 0
                },
                "cluster_from": "Москва Запад",
                "cluster_to": "Екатеринбург"
            }
        },

//////////////////////////////////////////////////////////////////////////////////////////

function getOrdersList() {
  const endpoint = "/v3/posting/fbs/list";
  const sheet_name = 'Заказы';

  let options = {
    method: "POST",
    headers:  {
        'Client-Id': CLIENT_ID,
        'Api-Key': API_KEY,
        'accept': 'application/json'    
    },
    payload:{
  "dir": "ASC",
  "filter": {
    "since": "2023-01-01T00:00:00.000Z",
    "to": "2023-12-01T23:59:59.000Z"
  },
  "limit": 1000,
  "offset": 0,
  "translit": true,
    "with": {
        "analytics_data": true,
        "financial_data": true
      }
    }
  };
  options.payload = JSON.stringify(options.payload);
  
  let response = UrlFetchApp.fetch(API_URL + endpoint, options);
  
  let rows = JSON.parse(response).result;

  
  if(rows){
  //SpreadsheetApp.getActive().toast("Данные получены успешно.");
  //SpreadsheetApp.getUi().alert(response);
  }
 
  const spreadsheet = SpreadsheetApp.getActiveSpreadsheet();
  const sheet = spreadsheet.getSheetByName(sheet_name);

  let range = sheet.getRange(1,1,10000,ORDERS_NUM_COLS);
  range.clearContent();
  
  sheet.activate();
  
  // Append the headers.
  const headers = ["Номер заказа", "Статус отправления", "Дата и время", "Артикул товара", 
                   "Название товара", "Количество", "Цена продажи"];
  //sheet.appendRow(headers);    
  sheet.getRange(1, 1, 1, headers.length).setValues([headers]);  
  
  

  // Append the results.
  var data = new Array(rows.length);
  
  for (let i = 0; i < rows.length; i++) {
    const cols = rows[i];
    const values = [cols.order_number, cols.status, 
    Utilities.formatDate(new Date(cols.in_process_at), timeZone, 'dd.MM.yyyy HH:mm'), 
    cols.products[0].offer_id + '', 
                    cols.products[0].name, cols.products[0].quantity,
                    cols.products[0].price | 0 ];
   data[i] = values;
     
  }
  
  sheet.getRange(2, 1, rows.length, headers.length).setValues(data);
}//function getOrdersList()
//////////////////////////////////////////////////////////////////////////////////////////