ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / macros -- данные из csv файла надо вставить в Excel
14 сообщений из 39, страница 2 из 2
  2  все
macros -- данные из csv файла надо вставить в Excel
    #36572953
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Проверил с сохранением - в архиве результат и код, который его сделал (изменения минимальны - только то, что написал выше).
...
Рейтинг: 0 / 0
11.04.2010, 19:30
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36572957
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Да, если не может сохранить - молча пишет лог в корне С. Причём заменяет старый лог на новый - обычно дописывают с датой и временем... Может тогда есть смысл ещё и MsgBox в конце работы с результатом показать, а то непонятно - всё ОК или нет.
...
Рейтинг: 0 / 0
11.04.2010, 19:44
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36573132
sasha2345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha2345
Гость
Hugo121

Ну так и есть, чтобы до конца форматировало, надо ещё раз переназначить iRows, вот так:
Код: plaintext
1.
2.
3.
4.
For i = iRows To  1  Step - 1 
If Mid(Cells(i,  8 ),  1 ,  5 ) = "TOTAL" Then Rows(i +  1 ).Insert
Next
iRows = ActiveCell.SpecialCells(xlLastCell).row


Вроде сейчас все заработало как надо!
Hugo121, еще раз спасибо за помощь!!!
...
Рейтинг: 0 / 0
11.04.2010, 23:50
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601678
sasha2345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha2345
Гость
У меня тут ещё возникли тудности в расчетах данных взятых из csv файла и вставкой их в Excel.
...
Рейтинг: 0 / 0
27.04.2010, 21:12
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601680
sasha2345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha2345
Гость
sasha2345,

csv file:
...
Рейтинг: 0 / 0
27.04.2010, 21:13
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601682
sasha2345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha2345
Гость
macros:
...
Рейтинг: 0 / 0
27.04.2010, 21:14
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601689
sasha2345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha2345
Гость
так должно получиться ( на примере одной группы ) -- формулы для вычислении основаны на данных из csv файла
...
Рейтинг: 0 / 0
27.04.2010, 21:18
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601690
sasha2345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha2345
Гость
так должно получиться ( на примере одной группы ) -- формулы для вычислении основаны на данных из csv файла
...
Рейтинг: 0 / 0
27.04.2010, 21:18
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601745
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
sasha2345, насчёт трудностей непонятно. В чём именно?
Вникать в код не стал (он кстати у меня завис, толком не отработав), но если то, что написано в 21-25 строках без "=" - эти неработающие формулы, то они ссылаются на 9 и 12 строку, где пусто. Я их заполнил цифрами, и что-то стало считать (после включения формул естественно). Ищите, почему там пусто.
...
Рейтинг: 0 / 0
27.04.2010, 21:58
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601756
sasha2345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha2345
Гость
Hugo121,

9 и 12 строка -- это я имел ввиду в csv файле

это не формулы а расчеты для каждой колонки где данные берутся из csv файла:

C9/D9 G9/H9 (C9/D9)-(G9/H9) ((C9/D9)-(G9/H9)) / (C9/D9) * 100 Occup % C12/D12 G12/H12 (C12/D12)-(G12/H12) ((C12/D12)-(G12/H12)) / (C12/D12) * 100
C21/C9 D21/G9 (C21/C9)-(D21/G9) ((C21/C9)-(D21/G9)) / (C21/C9) * 100 Occup H21/C12 I21/G12 (H21/C12)-(I21/G12) ((H21/C12)-(I21/G12)) / (H21/C12) * 100
C21/E9 D21/I9 (C21/E9)-(D21/I9) ((C21/E9)-(D21/I9)) / ( C21/E9 ) * 100 SqFt Occup H21/E12 I21/I12 (H21/E12)-(I21/I12) ((H21/E12)-(I21/I12)) / (H21/E12) * 100
C21/D9 D21/H9 (C21/D9)-(D21/H9) ((C21/D9)-(D21/H9)) / (C21/D9) * 100 Tot H21/D12 I21/H12 (H21/D12)-(I21/H12) ((H21/D12)-(I21/H12)) / (H21/D12) * 100
C21/F9 D21/J9 (C21/F9)-(D21/J9) ((C21/F9)-(D21/J9)) / (C21/F9) * 100 SqFt Tot H21/F12 I21/J12 (H21/F12)-(I21/J12) ((H21/F12)-(I21/J12)) / (H21/F12) * 100
...
Рейтинг: 0 / 0
27.04.2010, 22:15
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601764
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
sasha2345, насчёт "завис" - это он сохранить не может, сетевого пути нет. А так вроде отработал. Так в чём проблема-то?
...
Рейтинг: 0 / 0
27.04.2010, 22:20
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601772
sasha2345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha2345
Гость
Hugo121,

Да макрос работает, но мне надо делать дополнительные расчеты используя данные в csv файле и вставлять его в Excel.


например, если в колонке 8 встречается Commercial Rent тогда надо добавить 5 rows вниз и взяв данные из csv файла сделать такие расчеты для каждой колонки:

C9/D9 G9/H9 (C9/D9)-(G9/H9) ((C9/D9)-(G9/H9)) / (C9/D9) * 100 Occup % C12/D12 G12/H12 (C12/D12)-(G12/H12) ((C12/D12)-(G12/H12)) / (C12/D12) * 100
C21/C9 D21/G9 (C21/C9)-(D21/G9) ((C21/C9)-(D21/G9)) / (C21/C9) * 100 Occup H21/C12 I21/G12 (H21/C12)-(I21/G12) ((H21/C12)-(I21/G12)) / (H21/C12) * 100
C21/E9 D21/I9 (C21/E9)-(D21/I9) ((C21/E9)-(D21/I9)) / ( C21/E9 ) * 100 SqFt Occup H21/E12 I21/I12 (H21/E12)-(I21/I12) ((H21/E12)-(I21/I12)) / (H21/E12) * 100
C21/D9 D21/H9 (C21/D9)-(D21/H9) ((C21/D9)-(D21/H9)) / (C21/D9) * 100 Tot H21/D12 I21/H12 (H21/D12)-(I21/H12) ((H21/D12)-(I21/H12)) / (H21/D12) * 100
C21/F9 D21/J9 (C21/F9)-(D21/J9) ((C21/F9)-(D21/J9)) / (C21/F9) * 100 SqFt Tot H21/F12 I21/J12 (H21/F12)-(I21/J12) ((H21/F12)-(I21/J12)) / (H21/F12) * 100


например ((C9/D9)-(G9/H9)) / (C9/D9) * 100 -- C9, D9,G9 и H9 -- это имеется ввиду взять данные из csv файла
...
Рейтинг: 0 / 0
27.04.2010, 22:33
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601806
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
sasha2345, даа, рутина ещё та. Делать Вам.
Я вижу два пути:
1.csv файл не закрывать, пока данные не взяли.
В код добавить:
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim csvfile As Object
...
  If UCase(Right(Book.Name,  3 )) = "CSV" Then
    myCSV = Book.Name
    Set csvfile = Book 'вот эту строку
...
Потом ниже в коде, когда видно, куда вставлять рассчёты (может строки добавить надо):
Код: plaintext
1.
2.
3.
    With csvfile.Sheets( 1 )
    Cells( 1 ,  1 ).Value = .[C9] / .[D9]
    End With
естественно сразу все значения, какие нужны.

2.Можно конечно эти значения и раньше взять в переменные и файл закрыть, как сейчас в коде, но как бы в переменных не запутаться.
В начале, как выше написал, только сразу значения в переменные, csv закрыть, а потом уже из переменных в таблицу.
Смотрите, как легче.
...
Рейтинг: 0 / 0
27.04.2010, 23:00
| Ответить | Цитировать | Написать  
macros -- данные из csv файла надо вставить в Excel
    #36601857
sasha2345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha2345
Гость
Что-то я не совсем понимаю как мне это сделать ...

Может кто-то покажет как в моем макросе вставить 1 row и заполить его расчетами из csv файла?
...
Рейтинг: 0 / 0
27.04.2010, 23:45
| Ответить | Цитировать | Написать  
14 сообщений из 39, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / macros -- данные из csv файла надо вставить в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]