|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.05.2011, 22:30 | #1 |
Новичок
Джуниор
Регистрация: 11.05.2011
Сообщений: 4
|
Как вставить имя открытого файла в xls
Привет чет все облазил
Есть некий макрос который при запуске указываеш файлы он собирает инфу отттуда и все на один лист запихивает А теперь вопрос как сделать чтоб когда он (макрос) открыл файл записал в ячейку название файла который открыл, потом добавил результат выполненного макроса,потом снова открыл второй файл опять записал названия файланиже предыдущего результата и т.д на ум приходит вот такое но немогу понять как приладить к моему a = Split(ActiveWorkbook.FullName, "\") Cells(1, 1) = a(UBound(a)) так прикрепляю файлы и вот код макроса Код:
Последний раз редактировалось avolon; 11.05.2011 в 22:31. Причина: ошибся в теме |
11.05.2011, 22:50 | #2 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
For Each ws In Workbooks(oAwb).Sheets
If ws.Name <> "Итог" And ws.Name <> "Тит.лист" And ws.Name <> "Список телефонов" Then cnt = cnt + 1 a = Split(ActiveWorkbook.FullName, "\") wsDataSheet.Cells(cnt, 1) = a(UBound(a)) lr = ws.Cells(Rows.Count, 2).End(xlUp).Row arr(cnt, 1) = ws.Cells(lr, 2): arr(cnt, 2) = ws.Cells(lr, 9): arr(cnt, 3) = ws.Cells(1, 1) End If Next
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
Последний раз редактировалось R Dmitry; 11.05.2011 в 22:54. |
12.05.2011, 07:18 | #3 |
Новичок
Джуниор
Регистрация: 11.05.2011
Сообщений: 4
|
немножко переделал
Код:
|
12.05.2011, 07:22 | #4 |
220400
Форумчанин
Регистрация: 21.05.2010
Сообщений: 726
|
используйте mid(строка,начало,количество)
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель. |
12.05.2011, 07:47 | #5 |
Новичок
Джуниор
Регистрация: 11.05.2011
Сообщений: 4
|
хм
Тоесть нгде то сюда Код:
|
12.05.2011, 07:55 | #6 | |
220400
Форумчанин
Регистрация: 21.05.2010
Сообщений: 726
|
Цитата:
Код:
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель. |
|
12.05.2011, 07:59 | #7 |
Новичок
Джуниор
Регистрация: 11.05.2011
Сообщений: 4
|
Спасибо!!
Сам допер чет с утра голова вообще не робит (((((НОЧЬЮ СПАТЬ НАДА!! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определение размера открытого файла | Max3001 | Общие вопросы Delphi | 9 | 21.04.2011 15:31 |
Создание файла на основании открытого | lecko | Microsoft Office Excel | 20 | 17.03.2011 12:53 |
Как убрать пустые строки при открытии XLS файла | Des | Общие вопросы Delphi | 1 | 06.11.2010 09:13 |
Как создать отформатированую HTML-таблицу из xls-файла? | %$PROregRAMi$t% | HTML и CSS | 1 | 28.05.2010 12:28 |
как присвоить значение ячейки R1C1 из 1.xls, допустим какой-нибудь любой ячейке из 2.xls ? | diabloskrk | Microsoft Office Excel | 3 | 08.10.2007 12:27 |