Экспорт данных в Excel / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Экспорт данных в Excel

13 сообщений из 63, страница 3 из 3

все

Экспорт данных в Excel

#36563645

nikalex2

Участник

Сообщения: 121

Рейтинг: 0 / 0

Hugo121 Спасибо за совет
в строке
Application.Calculation = xlCalculationAutomatic заменил на Application.Calculation = xlCalculationManual простите новичка))) сразу незаметил

...

Рейтинг:

0 / 0

06.04.2010, 15:35

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36563747

Hugo121

Гость

nikalex2,

вообщето там логика другая - в начале
ac = .Calculation - запоминаем, как было
.Calculation = xlCalculationManual - переключаем на ручной пересчёт
в конце
.Calculation = ac - возвращаем назад, как было.
Вот как раз, чтобы не было
авторP.S. я в параметрах вычисления в настройках Excel устанавливаю "Вручную" (много формул, постоянное автоматическое вычисление занимает много времени), а после запуска кода он переключается на "Автоматическое" Непонятно.

...

Рейтинг:

0 / 0

06.04.2010, 16:08

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36564013

zchvv

Участник

Откуда: Челябинск

Сообщения: 245

Рейтинг: 0 / 0

Здравствуйте, nikalex2.

Можно сжать файл, и будет он меньше 100. Я хотел бы посмотреть на Ваш проект. Помогать результативно, не видя его в целом, как показывает наша практика - невозможно.

...

Рейтинг:

0 / 0

06.04.2010, 17:26

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36564044

nikalex2

Участник

Сообщения: 121

Рейтинг: 0 / 0

Здравствуйте, zchvv

архивировал, но объем 1,6 мб
там много формул

...

Рейтинг:

0 / 0

06.04.2010, 17:37

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36564132

nikalex2

Участник

Сообщения: 121

Рейтинг: 0 / 0

вот я залил http://files.mail.ru/7L72N1
я там в кратце изложил суть задачи
Если будут замечания, предложения и т.п. по моему проекту в плане улучшения, усовершенствования буду ОЧЕНЬ признателен!!! :-)

...

Рейтинг:

0 / 0

06.04.2010, 18:08

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36565585

nikalex2

Участник

Сообщения: 121

Рейтинг: 0 / 0

Здравствуйте!!!

Второй день борюсь, но не могу понять почему формула "обрезается" :-(
попутно возникла другая идея
может не нужно никакого InputBoxa ??? и я думаю что это будет правильнее для моей задачи
а создать что то типа цикла который будет выполняться n-ое (n = будет задаваться в начале) количество раз.
т.е. копируются данные из Шаблона вставляются в лист "PROVISIONAL SPECIFICATION"" заменяется в формулах все SYSTEM1 на SYSTEM2 (Думаю лучше в Шаблоне заменить SYSTEM1 на просто SYSTEM)
далее опять копируются данные из Шаблона вставляются в лист "PROVISIONAL SPECIFICATION" заменяется в формулах все SYSTEM1 на SYSTEM3 и т.д. до того самого "n" которое будет заданно в начале, например 25.
в итоге в листе "PROVISIONAL SPECIFICATION" должно получиться 25 скопированных, с заменой в формулах, шаблона.
теперь вот вопрос: Как это всё осуществить???

Заранее большое Всем спасибо!!!

...

Рейтинг:

0 / 0

07.04.2010, 12:50

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36566785

zchvv

Участник

Откуда: Челябинск

Сообщения: 245

Рейтинг: 0 / 0

Здравствуйте, nikalex2. Не ломайте голову по поводу усекновения формул. Все просто: Вы дали мне в качестве примера короткую формулу, а я подумал, что они такими и будут.

Код: plaintext

1.
2.
3.
4.
5.

Select Case InStr(UCase(c1.Formula), UCase(Mid(nm,  1 , len_nm)))
                       Case Is >  0  
                       n1 = InStr(c1.Formula, ",")
                       n2 = InStrRev(c1.Formula, ",")
                      c1.Formula = Mid(c1.Formula,  1 , n1) & nm & Mid(c1.Formula, n2)
              End Select

Здесь ищется позиция первой зпт слева и первой зпт справа. Между ними, кака я полагал, и будет находиться пресловутое SYSTEMN. Оказалось, что формулы в несколько раз длиннее и в них по многу раз может встретиться SYSTEMN. Вот вся середка и пропадает, остается левая часть до первой зпт и правая после последней зпт.
Что касается InputBox' а, то это совершенно мелкий вопрос. Число итераций, кстати, тоже можно ввести через него.
У меня EXCEL 2003, поэтому приходится использовать конвертер FFC.exe. Пока просто разглядываю материал. Вижу, что Вы очень любите формулы. Для меня совсем неочевидно, что задуманное Вами следует реализовывать именно с использованием пугающих своими размерами формул. Пока все, что могу сказать.

...

Рейтинг:

0 / 0

07.04.2010, 18:06

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36566862

zchvv

Участник

Откуда: Челябинск

Сообщения: 245

Рейтинг: 0 / 0

Если N в строке "SYSTEMN" будет равен номеру итерации в цикле for i=1 to n, то подмена в формуле
делается легко: Формула=REPLACE(Формула,"SYSTEM","SYSTEM" & CSTR(i)) , т.е. просто SYSTEM (причем в с е в этой формуле) превращается последовательно в SYSTEM1 (i=1), SYSTEM2 (i=2),..,SYSTEM25 (i=25). Вписывается ли это в логику Вашего проекта?

...

Рейтинг:

0 / 0

07.04.2010, 18:38

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36568160

nikalex2

Участник

Сообщения: 121

Рейтинг: 0 / 0

Здравствуйте!

Третий день борюсь... не могу понять как сделать чтобы формула не обрезалась

...

Рейтинг:

0 / 0

08.04.2010, 12:42

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36568263

nikalex2

Участник

Сообщения: 121

Рейтинг: 0 / 0

zchvvЕсли N в строке "SYSTEMN" будет равен номеру итерации в цикле for i=1 to n, то подмена в формуле
делается легко: Формула=REPLACE(Формула,"SYSTEM","SYSTEM" & CSTR(i)) , т.е. просто SYSTEM (причем в с е в этой формуле) превращается последовательно в SYSTEM1 (i=1), SYSTEM2 (i=2),..,SYSTEM25 (i=25). Вписывается ли это в логику Вашего проекта?

Здравствуйте zchvv !!!
я так понимаю что будут меняться последовательно от формулы к формуле, т.е. мое понимание таково, что берется первая формула в которой к примеру встречается 4 раза SYSTEMN и они последовательно будут меняться от SYSTEM1 до SYSTEM4 ??? потом следующая от SYSTEM5 до и т.д.???

в моем проекте необходимо так чтобы скопировались данные из ШАБЛОНА (TEMPLATE) поменялись ВСЕ SYSTEMN на SYSTEM1 вставились в ЛИСТ "PROVISIONAL SPECIFICATION" Скопировались второй раз из ШАБЛОНА (TEMPLATE) поменялись ВСЕ SYSTEMN на SYSTEM2 вставились в ЛИСТ "PROVISIONAL SPECIFICATION" и т.д. до того самого N (к примеру 25)

...

Рейтинг:

0 / 0

08.04.2010, 13:11

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36569492

zchvv

Участник

Откуда: Челябинск

Сообщения: 245

Рейтинг: 0 / 0

Здравствуйте, nikalex2. Посмотрите вариант, о котором говорил вчера. Я ввел пустышку SYSTEM на листе List1. Во всех Ваших формулах ссылаемся на нее, а в цикле приставляем к SYSTEM номер итерации. Извините, если я путаюсь в простых, с Вашей точки зрения, вещах. Будем приближаться к консенсусу постепенно, мелкими шажками:-)
Понаблюдайте за поведением программы. Водите в InputBox 1, 2, 3, 4. Добавьте на листе List1. Короче, анализируйте на здоровье.

...

Рейтинг:

0 / 0

08.04.2010, 20:27

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36569494

zchvv

Участник

Откуда: Челябинск

Сообщения: 245

Рейтинг: 0 / 0

Конечно же, забыл приложить самое главное!

...

Рейтинг:

0 / 0

08.04.2010, 20:29

| Ответить | Цитировать | Написать

Экспорт данных в Excel

#36571854

nikalex2

Участник

Сообщения: 121

Рейтинг: 0 / 0

Здравствуй!!!

zchvv Спасибо Вам большое!!! Все работает!!!
Я проанализировал Ваш код, в принципе вроде разобрался что и как)))
Даже расписал где и что происходит(ну т.е. в коде примечаний добавил)
Я же писал, что по специфике своей работы я не программист и в программировании новичок.
Беру код, запускаю F8 и смотрю что происходит. И помечаю для себя.
А Вы я так понял с программированием тесно связаны ну и соответственно на ТЫ с ним)))
Спасибо Вам большое за помощь ещё раз!!! Очень помогли!!!
P.S. В плане усовершенствования и упрощения моего проекта нет никаких предложений???

...

Рейтинг:

0 / 0

09.04.2010, 22:23

| Ответить | Цитировать | Написать

13 сообщений из 63, страница 3 из 3

все

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Экспорт данных в Excel

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=36564044&tid=2178257]:	0ms
get settings:	12ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	186ms
get topic data:	13ms
get forum data:	3ms
get page messages:	63ms
get tp. blocked users:	1ms
others:	246ms

total:	546ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы