в общем-то мне просто нужно все файлы без эмок опустить в конец списка, я правильно поняла? то есть для примера pg_1710_HK2010_ru_SKINTOP_MS.pdf pg_0650_HK2010_ru_SKINTOP_MS-M.pdf, так?
а не будет тогда макрос из коллекции выкидывать табличные позиции без эмок?
дописала... не хочет... на значение SKINTOP MS-M 40x1.5 упорно печатает файл pg_0710_HK2010_ru_SKINTOP_MS.pdf хотя должен печатать pg_0650_HK2010_ru_SKINTOP_MS-M.pdf
{quote}{login=Hugo}{date=18.10.2011 01:47}{thema=}{post}Ну да, из имени того файла выделяется подстрока SKINTOP_MS-SC-M преобразовывается в SKINTOPMS-SC-M и проверяется на присутствие в изменённых строках SKINTOPMS-SC-M25x1,5 SKINTOPMS-SCM40x1,5 SKINTOPMS-SCM32x1,5 SKINTOPMS-SC-M16x1,5 Как видите, в двух случаях есть соответствие, а в двух нет.{/post}{/quote}
может быть стОит добавить условия в значение и имя файла ' заменить - на пусто? я уже пробовала это делать, и что-то мне там не понравилось... вспомнить бы что))
{quote}{login=Hugo}{date=18.10.2011 01:41}{thema=}{post}Вообще тут ничего сложного нет - у Вас есть список значений, и список имён файлов. Далее на каждое значение ищем соответствующий файл. Для их сравнения обе строки нужно привести к одному виду - убрать символы, которые могут быть на одной стороне и которых нет на другой стороне. Навели порядок, сравниваем - если есть совпадение, то печатаем. После распечатывания удаляем из списка файлов распечатанное - может быть этот шаг лишний? coll.Remove i 'удаляем из коллекции распечатанное{/post}{/quote}
нет-нет! этот шаг как раз не лишний, мы его специально дописывали, иначе по 150 раз печататься будет одно и то же...
в принципе ничего сложного, конечно, нет))) но у меня 15000 значений, которым соответствует всего около 900 файлов)) и порядок наводить тут слишком долго... лучше недостающее печатать потом. только вот много бумаги на лишнее тратится...
{quote}{login=Hugo}{date=18.10.2011 11:54}{thema=}{post}Попробуйте на этих проблемных файлах проследить работу макроса по F8 - посмотрите, что в момент InStr(znacenie, ИмяФайлаShort) в переменных. {/post}{/quote}
У меня уже стоит это условие, мы с Вами уже решали эту проблему, но для другого условия. по остальным позициям такой проблемы больше нет, но эмки печататься не хотят... не решаемо?
в процессе работы выяснилась такая проблема: есть файлы с названиями типа ...SKINTOP_DIX.PDF, ...SKINTOP_ST.PDF, ...SKINDICHT_MR.PDF а есть файлы с названиями ...SKINTOP_DIX-M.PDF, ...SKINTOP_ST-M.PDF, ...SKINDICHT_MR-M.PDF
макрос распознает и распечатывает только первые, то есть все которые с "-М" - не распечатываются. можно ли как-то исправить ситуацию?
у меня мысль такая появилась на тему "Решение может быть такое - переименовать pg_0193_HK2010_ru_LiY.pdf так, чтобы это имя было в конце списка файлов, тогда оно будет проверяться в последнюю очередь, и очередь до него дойдёт, если другие файлы не подойдут". слишком много придется искать и переименовывать... может быть можно в коде задать условие перебора в порядке убывания? тогда не придется файлы переименовывать... насколько я понимаю, даже если в самой папке с файлами расставить все пдфки в порядке убывания, то макрос все равно по алфавиту будет перебор делать, так?
{quote}{login=nerv}{date=22.08.2011 03:24}{thema=}{post}У Вас там архив в архиве. Это чтоб сильнее сжимало?){/post}{/quote} нет, чтоб 2 файла в папке отправить
{quote}{login=Z}{date=22.08.2011 02:17}{thema=Re: } А пора бы! Ведь, имхо, достаточно простым русским языком объяснить, что и как хотите сделать в XL. А главное - хотелку приложить с пояснениями, согласно правилам, пример *.xls или *.xlsx... ;){/post}{/quote}
согласна! хотелка в приложении)) вот такое же хочу в экселе)) нужно из вордовского файла перенести макросы в эксель и засиавить работать. хотя, наверное лучше задачу с начала поясню)) у меня есть pdfка, которую нужно перевести на рус. язык. я ее копировала, вставляла в ворд и "переводила" (насоздавала макросов на замену стандартных строчек), потом удаляла лишнее и добавляла нужное... сейчас хочу импортировать пдфку в эксель, там легче "удалять лишнее и добавлять нужное"
"Что-либо делать тупо вообще не рекомендуется." я с Вами абсолютно согласна, беда в том, что по-умному пока не получается... как я ни смотрела выше, так и не поняла как это сделать. с экселем я не просто на "Вы", а на "Ваше высокопреосвященство". ткните, пожалуйста, пальцем, где это посмотреть... (ну или цитату дайте)))
"подключить библиотеку Microsoft Word X.X Object Library в Tools - References" - подскажите как это сделать.
вы, наверное, никогда с блондинками не общались... представьте на минутку, что я не просто "блондинко", а четырехлетнее блондинко!
хоть кто-нибудь в состоянии объяснить на уровне "нажми вот эту кнопочку/вот в этой вкладочке/напиши вот эту буковку" КАК на печать вывести через гиперссылку в таблице или ыщо как-нить???
{quote}{login=Казанский}{date=15.08.2011 04:00}{thema=}{post}Я когда-то копал в эту сторону. Распечатать PDF файл ЦЕЛИКОМ довольно просто, для этого достаточно иметь Adobe Reader. Погуглите по AcroExch.AVDoc print.{/post}{/quote}
не, ребят, ну так не честно! вы уже между собой разговариваете, а я как не вкуривала, так и не вкуриваю...)))
nerv, пожалейте мой воспаленный блондинистый мозг! Вы думаете мне о чем -то это говорит??????: gPDFPath = "C:\QTTutorial.pdf" ' ** Initialize Acrobat by creating App object Set AcroApp = CreateObject( "AcroExch.App" ) ' ** show Acrobat AcroApp.Show() ' ** Set AVDoc object Set AcroAVDoc = CreateObject( "AcroExch.AVDoc" ) ' ** open the PDF If AcroAVDoc.Open( gPDFPath, "NewTitle" ) Then If AcroAVDoc.IsValid = False Then ExitTest() AcroAVDoc.BringToFront() End If AcroApp.CloseAllDocs() AcroApp.Exit() Set AcroApp = Nothing : Set AcroAVDoc = Nothing
ну переименую я пдфки, но дальше -то что?? как связать таблицу с печатью нужных pdfok?
{quote}{login=Hugo}{date=16.08.2011 12:01}{thema=}{post}Будете переименовывать 17000 файлов? Ну а по вопросу - если можно конкретно из значения ячейки определить название файла, тогда можно его и распечатать. Но там трудно однозначно сказать было, как брать название из ячейки - где-то одно слово нужно откинуть, где-то вероятно 2, а где-то похоже ничего откидывать не нужно... Например, эти значения - какие файлы им соответствуют?
Дайте примеры названий существующих файлов, штук 10.{/post}{/quote}
нет, файлов около 1000 штук, да и то не все из них нужны. это артикулов около 17000. по файлам: SILVYN CHAIN A30092KM1 - на все позиции, в которых есть название "SILVYN CHAIN" есть общий доковский файл с техописанием "SILVYN CHAIN 2.doc" остальные pdf-ки: OLFLEX SERVO 2YSLCY-JB 4G6 - файл "pg_0089_ru_HK2010_ru_OELFLEX_SERVO_2YSLCY-JB.pdf" NYY-J 3G1,5 re - файл "pg_0215_HK2010_ru_NYY-J_NYY-O.pdf" UNITRONIC Li2YCY (TP) 10x2x0,22 - файл "pg_0276_HK2010_ru_UNITRONIC_Li2YCY_TP_.pdf", где "pg_" - это номер страницы каталога, "HK2010" - это "новый каталог 2010" а дальше название продукции. в таблице закорючечки, то есть цифры с "x" и "G" - это сечение, размер.
все-таки, я думаю проще будет сделать сводную таблицу и переименовать pdf-ки... но жду экспертное мнение)))
{quote}{login=Hugo}{date=16.08.2011 11:28}{thema=}{post}Я по первому примеру понял, что уже есть готовые pdfки, которые нужно распечатать. Но не все, а некоторые. Но по какому событию печатать - не понял... Т.е. как-то связано с таблицей, но как? Выделенные печатать, или все, что нашлись в таблице...? Но там есть проблема - названия файлов не вполне совпадали с значениями ячеек - в ячейках есть лишние значения в конце, а в файлах лишнее в начале. Т.е. не всё просто, плюс всё не понятно :({/post}{/quote}
Hugo, я попытаюсь пояснить. PDFки есть все. та таблица, которую я выложила, напрямую с ними никак не связана. для того, чтобы связать, надо создать отдельную таблицу со всеми артикулами каталога - порядка 17 тысяч)))). это моя проблема. после создания этой таблицы нужно будет сделать массив с условием, что распечатываться должна указанная страница - то есть делать ссылку на каждый из pdfок, если хоть один из артикулов из этой страницы есть в исходном файле (в том что я прислала). а как сделать ссылку на страницу и послать ее напечать я как раз не понимаю... не знаю насколько понятно я объяснила... мне сейчас в голову мысль пришла: Вы говорите, что проблема в том, что в названиях pdf-ок и данных в таблице есть разница. то есть если я переименую pdf-ки, чтобы названия совпадали, можно будет привязать макрос к названиям? останется только исключить повторяющиеся названия?
я повторюсь - я АБСОЛЮТНЫЙ ЛОХ в вопросах макросов в экселе!)) просто махровый!! "операции с артикулами" макрос совершать, конечно, может, только для этого его наверное нужно создать? а беда в том, что я ПОНЯТИЯ НЕ ИМЕЮ как это делается))
скачать виртуальный принтер не проблема, он по-моему, даже есть уже... как мне сделать так, чтоб печаталось у меня именно то что нужно, в нужном количестве, исходя из имеющихся артикулов, да еще и чтобы сей "механизм" одной кнопкой запускался...
{quote}{login=Казанский}{date=15.08.2011 04:00}{thema=}{post}Я когда-то копал в эту сторону. Распечатать PDF файл ЦЕЛИКОМ довольно просто, для этого достаточно иметь Adobe Reader. Погуглите по AcroExch.AVDoc print.
{/post}{/quote}
ой, мама дорогая!... погуглила... моск взорвался))) кстати, насколько я поняла по первой высветившейся страничке - там как раз Ваш вариант - печать отдельных страничек из файла... тока из тех закорючек (видимо код макроса)))) я не поняла ни фи ка!
в приложении : пример моей таблицы, пара пдфов (ну так, чтобы оценить скока артикулов может быть на одной странице), папка расположена на офисном серваке, но для удобства могу копирнуть на свой пк. искать файл по названию я думаю надо...
я подозреваю, какую мне предстоит базу с артикулами создавать для этого... потом создавать массивы, а потом уже придумывать как выводить на печать страницу, на которой есть хоть один артикул из массива... <EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
добрый день! я - абсолютный чайник в вопросах макросов в excel. да и саму программку знаю на уровне простенькие формулы/графики-диаграммки/ сводные таблички... так что прошу прощения заранее, если шокирую кого-либо тупыми вопросами)))
но всё-таки: реально ли создать формулу/макрос в экселе, при которой (при условии создания соответствующей базы данных) на печать выводилось бы тех.описание в формате pdf из указанного файла согласно имеющимся артикулам? на всякий случай поясню: есть большая таблица (упаковочный лист - порядка 500-800 срок, исключая пустые) с повторяющимися артикулами. на каждое из наименований (а на одно наименование может быть несколько артикулов) нужно распечатать техническое описание из каталога (есть в pdf). озадачилась вопросом автоматизации данного процесса...
если такое чудо возможно, напишите, пожалуйста как это сделать, только как для полной блондинки))))