Работа с пятью файлами Excel

@Argus19 · Регистрация: 24.09.2017

Студворк — интернет-сервис помощи студентам

Задача: Открыть 4 файла Excel для чтения и один для записи.
Не вижу простого пути. Получается много переменных для открытия файлов и четыре раза вызывать CommonDialog.
Существует какой-либо простой способ?

@Alex77755 · 11.06.2021, 00:29

Работа с пятью файлами Excel

Сообщение от Argus19

и четыре раза вызывать CommonDialog.

Сообщение от Argus19

Существует какой-либо простой способ?

Даже не один:
1. прописать в коде пути к файлам
2. самый простой: написать ИИ, который будет распознавать мысли юзера какие файлы обрабатывать
3. разместить все файлы в одной папке и указать признак файла (или считать его активным) для записи

I can · 11.06.2021, 04:44

Сообщение от Argus19

для чтения и один для записи

Если открывать через Эксель, то лучше просто открыть все одинаково, без указания readonly.

Сообщение от Alex77755

разместить все файлы в одной папке

И тогда достаточно будет одного вызова диалога.

Сообщение от Argus19

много переменных

массив.

I can · 11.06.2021, 08:00

Argus19, пример

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Command1_Click()
    Dim st, fn As String, xlApp As Object, xlWb() As Object, xlSh() As Object
    Dim i As Integer, dr As String, n As Integer
    CommonDialog1.Filter = "Файлы Excel|*.xls*"
    CommonDialog1.Flags = cdlOFNAllowMultiselect ' множественный выбор файлов, через Ctrl
    CommonDialog1.InitDir = App.Path
    CommonDialog1.ShowOpen
    fn = CommonDialog1.FileName
    If fn <> "" Then
       st = Split(fn, "\")
       n = UBound(st)
       dr = Replace(fn, st(n), "") ' папка с файлами
       st = Split(Trim$(st(n)))    ' массив имён файлов
       n = UBound(st)
    Else
       Exit Sub
    End If
    
    Set xlApp = CreateObject("Excel.Application")     ' создаём объект
    xlApp.Visible = False
    ReDim xlWb(n), xlSh(n)
    
    For i = 0 To n
       Set xlWb(i) = xlApp.Workbooks.open(dr & st(i)) ' открываем книги
       Set xlSh(i) = xlWb(i).Sheets(1)                ' первый лист каждой книги
    Next i
    
   ' в последнюю книгу что-то записываем в ячейку "А1" первого листа
    xlSh(n).cells(1, 1) = InputBox("Запись в книгу" & vbCrLf & """" & st(n) & """", "Запись в книгу ", "Мои данные")
    
    For i = 0 To n
       MsgBox xlSh(i).cells(1, 1) 'читаем из ячейки "А1" первого листа каждой книги
    Next i
    
    For i = 0 To n - 1
       xlWb(i).Close False  ' закрываем книги без сохранения (кроме последней)
    Next i
    
    xlWb(n).Close True ' закрываем последнюю книгу с сохранением
    
    xlApp.Quit ' закрываем приложение
    
End Sub

@Argus19 · 11.06.2021, 11:30 **[ТС]**

Спасибо за советы. Сделал, как и писал в стартовом посте тупо. Открываю первый файл, записываю в динамический массив нужные данные, затем в цикле загружаю три файла, по очереди извлекаю необходимое, доформировываю массив, создаю новый файл и записываю массив в него.
Проблема в затрачиваемом времени обработки начиная со второго файла. Получаю из него содержимое нужной ячейки и в цикле перебираю массив в поисках совпадения. И так с каждой вновь считанной ячейкой.
Долговато. Не вижу вариантов поиска кроме перебора массива .

Добавлено через 14 минут
Вы натолкнули меня на мысль. Пошёл переписывать программу.

@Alex77755 · 11.06.2021, 11:33

Массивы однозначно
Возможно и словарь прикрутить чтобы не делать цикл в цикле

@Argus19 · 11.06.2021, 14:06 **[ТС]**

Сообщение от Alex77755

словарь прикрутить

Хлопотно. 300 фраз.
Ладно. Пусть медленно, но работает. Отправил на проверку заказчику. Видно будет.

@Alex77755 · 11.06.2021, 14:19

Сообщение от Argus19

300 фраз.

Разве это много?
А цикл в цикле 300 по 300 это уже заметно дольше

@Argus19 · 11.06.2021, 17:58 **[ТС]**

Сообщение от Alex77755

Разве это много?

Каким образом организуется работа со словарём? Как он создаётся и как производится поиск?

@Alex77755 · 11.06.2021, 18:17

В архиве описание

@Argus19 · 11.06.2021, 20:13 **[ТС]**

Alex77755, будет ли словарь однозначно работать в VB 6.0?
Как я понял, извлечение ключа по шаблону производится не в цикле, а по запросу

Visual Basic
1
.Item("Текст ключа")

?
Т.е. словарь имеет нечто похожее на SQL запросы.

I can · 11.06.2021, 20:41

Сообщение от Argus19

нечто похожее на SQL запросы

Нет, в словарь пишутся пары ключ-значение.
Потом можно вытащить значение по ключу, и наоборот.

Добавлено через 27 секунд

Сообщение от Argus19

будет ли словарь однозначно работать в VB 6.0

За милую душу

@Alex77755 · 11.06.2021, 20:47

будет

словарь допускает короткое обращение
словарь("Вася")="Студент"

@Argus19 · 11.06.2021, 20:50 **[ТС]**

У меня четырёхмерный массив. Возможно ли создать словарь по принципу: ключ, 1значение,,,,, 4 значение? Или только пара ключ - значение?

@Alex77755 · 11.06.2021, 21:47

словарь словарей

Добавлено через 1 минуту
ключ. а значение словарь
пример из моей программы

Visual Basic
1
2
3
4
5
6
7
        If Not oUL_Dp.exists(t) Then 'если ещё нет ключа
            Set DP = CreateObject("Scripting.Dictionary"): DP.CompareMode = 1 'создаём субсловарь
            DP(domd) = r
            Set oUL_Dp(t) = DP
        Else 'если ключ есть
            oUL_Dp(t)(domd) = r
        End If

@Argus19 · 11.06.2021, 22:11 **[ТС]**

Сообщение от Alex77755

словарь словарей

Интересно.

Новые блоги и статьи Все статьи Все блоги /
YAFU@home — распределённые вычисления для математики. На CPU Programma_Boinc 20.01.2026 YAFU@home — распределённые вычисления для математики. На CPU YAFU@home — это BOINC-проект, который занимается факторизацией больших чисел и исследованием aliquot-последовательностей. Звучит. . .	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@Argus19 1427 / 444 / 78 Регистрация: 24.09.2017 Сообщений: 2,525 Записей в блоге: 22

	Работа с пятью файлами Excel 08.06.2021, 23:57. Показов 2045. Ответов 15 Метки нет (Все метки) Задача: Открыть 4 файла Excel для чтения и один для записи. Не вижу простого пути. Получается много переменных для открытия файлов и четыре раза вызывать CommonDialog. Существует какой-либо простой способ? 0

@Argus19 1427 / 444 / 78 Регистрация: 24.09.2017 Сообщений: 2,525 Записей в блоге: 22
	11.06.2021, 11:30 [ТС]
	Спасибо за советы. Сделал, как и писал в стартовом посте тупо. Открываю первый файл, записываю в динамический массив нужные данные, затем в цикле загружаю три файла, по очереди извлекаю необходимое, доформировываю массив, создаю новый файл и записываю массив в него. Проблема в затрачиваемом времени обработки начиная со второго файла. Получаю из него содержимое нужной ячейки и в цикле перебираю массив в поисках совпадения. И так с каждой вновь считанной ячейкой. Долговато. Не вижу вариантов поиска кроме перебора массива . Добавлено через 14 минут Вы натолкнули меня на мысль. Пошёл переписывать программу. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	11.06.2021, 11:33
	Массивы однозначно Возможно и словарь прикрутить чтобы не делать цикл в цикле 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	11.06.2021, 20:47
	будет словарь допускает короткое обращение словарь("Вася")="Студент" 0

@Argus19 1427 / 444 / 78 Регистрация: 24.09.2017 Сообщений: 2,525 Записей в блоге: 22
	11.06.2021, 20:50 [ТС]
	У меня четырёхмерный массив. Возможно ли создать словарь по принципу: ключ, 1значение,,,,, 4 значение? Или только пара ключ - значение? 0

Работа с пятью файлами Excel

Решение