SanGreen74

📌 Инструкция по настройке и использованию

Оглавление

1. Настройка программы для переименования файлов

2. Установка скриптов для работы в Excel

   • Вариант 1 (быстрый)
   • Вариант 2 (рекомендуемый)

3. Как пользоваться программой переименования файлов

SanGreen74

📌 Инструкция по настройке и использованию

Оглавление

1. Настройка программы для переименования файлов

2. Установка скриптов для работы в Excel

   • Вариант 1 (быстрый)
   • Вариант 2 (рекомендуемый)

3. Как пользоваться программой переименования файлов

SanGreen74

Option Explicit

' === Точка входа ===
Public Sub FillTestsByColorsAndImages()
    Dim folderPath As String
    folderPath = PickFolder("Выберите папку с изображениями")
    If Len(folderPath) = 0 Then Exit Sub

    Dim testPrefix As String
    testPrefix = InputBox("Введите префикс для названия тестов (например codeex):", "Префикс тестов")

SanGreen74

Option Explicit

' === Точка входа ===
Public Sub FillTestsByColorsAndImages()
    Dim folderPath As String
    folderPath = PickFolder("Выберите папку с изображениями")
    If Len(folderPath) = 0 Then Exit Sub

    Dim testPrefix As String
    testPrefix = InputBox("Введите префикс для названия тестов (например codeex):", "Префикс тестов")

SanGreen74

Option Explicit

' === Òî÷êà âõîäà ===
Public Sub FillTestsByColorsAndImages()
    Dim folderPath As String
    folderPath = PickFolder("Âûáåðèòå ïàïêó ñ èçîáðàæåíèÿìè")
    If Len(folderPath) = 0 Then Exit Sub

    Dim testPrefix As String
    testPrefix = InputBox("Ââåäèòå ïðåôèêñ äëÿ íàçâàíèÿ òåñòîâ (íàïðèìåð codeex):", "Ïðåôèêñ òåñòîâ")

SanGreen74

DROP TABLE IF EXISTS #test_nsatin;

CREATE TABLE #test_nsatin
(
  ID bigint,
  Sex varchar(8),
  Birthday datetime
);

SELECT CASE