При обработке массива в цикле тянутся все элементы массива

@Binwigon · Регистрация: 26.05.2020

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

Всем привет!
Я работаю на другом языке программирования, но есть задача, которую нужно выполнить именно в VBA.
Есть большой массив данных и в одном поле перечислены города. Необходимо "нарезать" большой файл на мелкие в соответствии с принадлежностью к городу. Я написал код, который успешно это делает......до второго города.

Дале замечаю, что при обработке цикла второй элемент включает в себя первый - соответственно поиск далее не осуществляется.
В виду ограничений со стороны сб не могу скопировать файл, вот часть кода, в которой выявлена проблема

Visual Basic

Sub()
Dim reg As Range, element As Variant, file_name As String
 
file_name = 'C:\project\'
 
Application.ScreenUpdating = False
 
For Each element in Worksheets("City").Range("A1:A10")
    file_name = file_name & element & ".xlsx"
    MsgBox file_name
 
Next element
 
End Sub

В качестве результата выводит ( если опустить путь и формат файла): после первой итерации выводит Город1, после второй Город1Город2 и т.д.

Здесь я указываю перебор ячеек с названием городов. Пробовал также через Array. Но результат тот же.
Помогите, пожалуйста, разобраться

@Narimanych · 26.05.2020, 10:49

Binwigon,
Привет нужен кусок файла ( с измененными данными, если исходный - секретный).
Тип файла
Что делить?

Тот кусок кода, который вы написали - нм к селу ни к городу.

@Hugo121 · 26.05.2020, 11:08

Как написали так и выводит. Даже странно... а что должно было быть в итоге в file_name?

@Binwigon · 26.05.2020, 11:13 **[ТС]**

проблема в том, что все файлы на удаленном компьютере. Доступы на форумы перекрыты.
Пришлось перепечатывать.
напечатал все как есть, единственное, что A 10 - без пробела.

Я открываю excel - alt-F11 и вставляю в макрос

@Hugo121 · 26.05.2020, 11:17

Навскидку алгоритм я бы строил такой:
- циклом собираем словарь городов, у каждого в итем коллекция его строк
- циклом по словарю каждому городу новый файл, циклом по коллекции копируем его строки, сохраняем.

Ну или просто словарь или коллекция городов, и в цикле по ним привлекаем фильтр-копирование в новую книгу.

Добавлено через 2 минуты

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

напечатал все как есть

- не верю. Такое не может работать в VBA.

@Binwigon · 26.05.2020, 11:18 **[ТС]**

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

Как написали так и выводит. Даже странно... а что должно было быть в итоге в file_name?

после каждой итерации он должен формировать название файла, куда сохранять.
Для первого города получается C:\project\Воронеж.xlsx
Для него все отработала идеально. Строки удалились и файл сохранился.

Для второго:C:\project\Воронеж.xlsxC:\project\Москва.xlsx
Для третьего: C:\project\Воронеж.xlsxC:\project\Москва.xlsxC:\project\Самара.xlsx

@pashulka · 26.05.2020, 11:19

Binwigon,

Visual Basic

Private Sub Test()
    Dim path_name$, file_name$, cell As Range
    path_name = "C:\project\"
 
    For Each cell In Worksheets("City").Range("A1:A10")
        file_name = path_name & cell & ".xlsx"
        MsgBox file_name
    Next
End Sub

@Hugo121 · 26.05.2020, 11:23

Так не добавляйте строку к ранее собранному, берите снова исходник. А для этого нужна или другая переменная, или вообще только одна исходная и element

Добавлено через 2 минуты
Вот например попаразитрую

Visual Basic

Private Sub Test()
    Dim file_name$, cell As Range
    file_name = "C:\project\"
 
    For Each cell In Worksheets("City").Range("A1:A10")
        MsgBox file_name & cell & ".xlsx"
    Next
End Sub

@pashulka · 26.05.2020, 11:30

Пример без паразитизма

Если нет Option Explicit, то можно и без Dim el

Visual Basic

Private Sub Test2()
    Dim el 'As Variant 
    For Each el In Worksheets("City").Range("A1:A10").Value
        MsgBox "C:\project\" & el & ".xlsx"
    Next
End Sub

@Binwigon · 26.05.2020, 11:35 **[ТС]**

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

Binwigon,

Visual Basic

Private Sub Test()
    Dim path_name$, file_name$, cell As Range
    path_name = "C:\project\"
 
    For Each cell In Worksheets("City").Range("A1:A10")
        file_name = path_name & cell & ".xlsx"
        MsgBox file_name
    Next
End Sub

Спасибо Большое!
Работает как надо!

Добавлено через 2 минуты

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

Так не добавляйте строку к ранее собранному, берите снова исходник. А для этого нужна или другая переменная, или вообще только одна исходная и element

Добавлено через 2 минуты
Вот например попаразитрую

Visual Basic

Private Sub Test()
    Dim file_name$, cell As Range
    file_name = "C:\project\"
 
    For Each cell In Worksheets("City").Range("A1:A10")
        MsgBox file_name & cell & ".xlsx"
    Next
End Sub

Спасибо за помощь!!!

При обработке массива в цикле тянутся все элементы массива

Решение

Решение

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	26.05.2020, 10:49	2
	Binwigon, Привет нужен кусок файла ( с измененными данными, если исходный - секретный). Тип файла Что делить? Тот кусок кода, который вы написали - нм к селу ни к городу. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	26.05.2020, 11:08	3
	Как написали так и выводит. Даже странно... а что должно было быть в итоге в file_name? 0

@Binwigon 0 / 0 / 0 Регистрация: 26.05.2020 Сообщений: 4
	26.05.2020, 11:13 [ТС]	4
	проблема в том, что все файлы на удаленном компьютере. Доступы на форумы перекрыты. Пришлось перепечатывать. напечатал все как есть, единственное, что A 10 - без пробела. Я открываю excel - alt-F11 и вставляю в макрос 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	26.05.2020, 11:17	5
	Навскидку алгоритм я бы строил такой: - циклом собираем словарь городов, у каждого в итем коллекция его строк - циклом по словарю каждому городу новый файл, циклом по коллекции копируем его строки, сохраняем. Ну или просто словарь или коллекция городов, и в цикле по ним привлекаем фильтр-копирование в новую книгу. Добавлено через 2 минуты Сообщение от Binwigon напечатал все как есть - не верю. Такое не может работать в VBA. 0

@Binwigon 0 / 0 / 0 Регистрация: 26.05.2020 Сообщений: 4
	26.05.2020, 11:18 [ТС]	6
	Сообщение от Hugo121 Как написали так и выводит. Даже странно... а что должно было быть в итоге в file_name? после каждой итерации он должен формировать название файла, куда сохранять. Для первого города получается C:\project\Воронеж.xlsx Для него все отработала идеально. Строки удалились и файл сохранился. Для второго:C:\project\Воронеж.xlsxC:\project\Москва.xlsx Для третьего: C:\project\Воронеж.xlsxC:\project\Москва.xlsxC:\project\Самара.xlsx 0

	26.05.2020, 11:35