Преобразовать один файл в другой по требованию

[valerij]

Привет, друзья!!!
Опять нужна Ваша помощь, в своей практике "программирования", не приходилось с таким сталкиваться!!
Разобью задачу на две части.
1.
Есть файл 1.xls - это оригинал и есть файл 2.xls - в такой вид нужно преобразовать, оригинал, причем по требованию, т. е. в файле 2.xls, запускаю макрос, он, макрос, просит открыть файл, указываю на оригинал, к именам файлов привязки не должно быть и после этого идет процесс!

2. может сам, потом решу

[Hugo121]

Код писать некогда, а алгоритм вижу такой:
1. Диалог открытия файла.
2. Ищем по первому листу "Сальдо начальное" - запоминаем ряд, ищем "Обороты за период" - запоминаем ряд.
3. Берём в массив от и до запомненного, со 2-го по 4-ый столбец.
4. Перебираем в цикле, заменяя 2-й элемент на его Split()
Например:
ee = "Реализация товаров и услуг № 1497 от 27 08 2010 "
ee = Split(ee)(5)
5. Добавляем новую книгу, выгружаем туда получившийся массив.

[valerij]

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

ee = "Реализация товаров и услуг № 1497 от 27 08 2010 ".

Hugo121!!
У Вас так, красным, а нужно, так:
ee = "1497"
Нужны, только цифры, после №, как во втором файле!!
Я не зная, как удалить все лишнее или скопировать, только цифры, после №.

[Hugo121]

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

Hugo121!!
У Вас так, красным, а нужно, так:
ee = "1497"
Нужны, только цифры, после №, как во втором файле!!
Я не зная, как удалить все лишнее или скопировать, только цифры, после №.

Так вот оно и есть - я сперва задал переменную, затем её преобразовал.
Посмотрите код в редакторе, ну или
msgbox ee
ниже поставьте.

Так понятнее?

Sub tt()
ee = Split("Реализация товаров и услуг № 1497 от 27 08 2010 ")(5)
MsgBox ee
End Sub

[valerij]

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

ниже поставьте.Так понятнее?

А-а, попробую!!

[doober]

Hugo121 - valerij 1:0
проверять надо

[valerij]

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

проверять надо

Сереж, а че проверять?
Забыл, там где такая запись:
"Платежное поручение входящее № 1472.461.3 от 17 08 2010" или
"Возврат товаров от покупателя № 86 от 18 08 2010"
То в эти яч. ставим, ноль.
Т. е. в любых яч., ст. Е, если нет значений

[Hugo121]

Да, что-то это я пропустил второпях... Ну значит сперва проверяем 3-й элемент массива - если там <>"" - обрабатываем, иначе 0.

[Hugo121]

Ну вот так, не совсем как в примере (я с А1 вставляю, и без рюшечек...), но думаю годится.
В файле только код, вставляет данные в новую книгу. В общем, всё, как выше написано, с добавкой про нули.

[valerij]

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

Ну вот так,.

Hugo121!
Жму, GO!
Отлично, указываю на файл, выдает ошибку и выделяет желтым

If FName <> False Then