Повеселили)) Нет, щелчков было больше так как нужно было загрузить 30 форм отчётности последовательно, по времени это занимало почти 4 часа, теперь 1 час и 40 минут)

Вот бы тачку побыстрее, чтоб делала всё это за 5 мин, хотя когда тогда курить)...

Спасибо огромное, то что нужно, пришлось ещё немного потанцевать с бубном, чтоб всё работало как надо, зато теперь трудозатраты сократились до 3 щелчков мышкой и -50% по времени, как по мне - пушка))
Осталось теперь только садиться и разбираться в операторах, командах, учить и осваивать самому)

Здравствуйте. Есть некий файл обработчик, куда уже сейчас грузится xml таблица с другого файла, производит расчёт и выдает некий резальтат в виде рейтинга от 1 до 5.
Задача - необходимо дополнить макрос таким образом, чтобы необходимо было указать папку с файлами(их количество и названия разные, вплоть до отсутствия расширения файла) и он их поочередно всех перелопатил. Как вариант можно без указания папки, чтобы файл был в самой этой папке и обрабатывал все файлы в этой же папке, не принципиально.
Что сейчас работает:

Все решил сам. Так и не понял, почему выделяло до того строку "Application.ActivePrinter = netPrinter". При повторном воспроизведении выделило строку "ActiveDocument.PrintOut", заменил следующим образом.

Sub Create_PDF()
Dim sMyPrinter As String
Dim netPrinter As String
  sMyPrinter = Application.ActivePrinter
  netPrinter = "Foxit Reader PDF Printer (Ne03:)"
  Application.ActivePrinter = netPrinter
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
       IgnorePrintAreas:=False
  Application.ActivePrinter = sMyPrinter
End Sub

Добрый день.
Прошу помочь. Задача - есть два принтера - физический - на столе стоит и виртуальный - печать PDF файла. По умолчанию - физический.
Я реализовал это следующим образом:
Sub Create_PDF()
Dim sMyPrinter As String
Dim netPrinter As String
  sMyPrinter = Application.ActivePrinter
  netPrinter = "Foxit Reader PDF Printer (Ne03:)"
  Application.ActivePrinter = netPrinter
  ActiveDocument.PrintOut
  Application.ActivePrinter = sMyPrinter
End Sub

Название принтера "Foxit Reader PDF Printer (Ne03:)" получил следующим образом - сделал его изначально по умолчанию и вытянул с "sMyPrinter". Пробелы между словами пробовал заменить на "_" - бесполезно.
Постоянно выделяет строку "Application.ActivePrinter = netPrinter".
Прошу подсказать, в чем ошибся/поправить.
Спасибо!

Доброго всем времени суток!
Ничего хитрого в типичном подборе параметра нет. При этом меня очень интересует, можно ли в Excel средствами формул реализовать функцию подбора параметра, поскольку число в поле "Значение"(подбор параметра) у меня динамичное.
Пример прикрепил.
Большое спасибо!

Спасибо, огромное спасибо. Я уже немного прошарил в Excel, но VBA для меня пока является тайной, покрытой мраком.  
Видимо это будет следующая ступень в освоении Excel)

Доброго всем времени суток. Есть проблема. Макрос раньше импортировал данные с внешнего источника, а теперь "Runtime error: 13 Type mismatch". Что это значит я знаю, а вот как это исправить без малейшего понятия.    
Вот код, где выдает ошибку:  
 
Windows("Balans_Vse_2007.xlsm").Activate  
   Sheets("InA7").Select  
 
   NumRows = NumRows - (i - 2) ' !!!  
     
   For i = 2 To NumRows  
           
      Cells(i, 2) = Mid$(Cells(i, 1), 2, 4)  
      Cells(i, 3) = Mid$(Cells(i, 1), 6, 1)  
      Cells(i, 4) = Mid$(Cells(i, 1), 7, 1)  
      Cells(i, 5) = Mid$(Cells(i, 1), 8, 1)  
      Cells(i, 6) = Mid$(Cells(i, 1), 9, 1)  
           
      s_Row = Left$(Mid$(Cells(i, 1), 12), Len(Cells(i, 1)) - 11)  
      s_Row = IIf(Len(s_Row) < 3, "0" & s_Row, s_Row)  
      s_Row = IIf(Len(s_Row) < 3, "0" & s_Row, s_Row)  
      Cells(i, 7) = CDbl(Left$(s_Row, Len(s_Row) - 2) & "," & Right$(s_Row, 2))  
         
      Cells(i, 10) = Mid$(Cells(i, 1), 10, 1)  
           
      Cells(i, 1) = Left$(Cells(i, 1), 1)  
           
      Cells(i, 8) = Cells(i, 2) & Cells(i, 5) & Cells(i, 1)  
      Cells(i, 9) = Cells(i, 2) & Cells(i, 5) & Cells(i, 1) & Cells(i, 3)  
   Next i  
 
Excel говорит, что ошибка в строке "Cells(i, 7) =".  
К сожелению весь файл выслать не могу.  
Формат импортируемых данных: 11207111211=57985434

как-то так вот?  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

так?

пример того, что должно получится можно?

а нетбук для Вас шибко тяжел?

если не было так и выводить нечего - нет тела - нет дела...  
может задание не понял, четче опишите

Попробуйте так)

В Excel откройте вкладку "Данные", затем в левом верхнем углу - "Импорт из веба".    
После нажатия Вам откроется окошко - упрощенная версия IE. Там Вам нужно будет ввести адрес, найти нужную компанию и что хотите, то и сохраняйте, хоть всю страницу целиком.    
Если нужно, чтоб на каждой странице было отдельно - по каждой организации придется делать новое подключение.    
В свойствах подключений ставьте флажок напротив "Обновлять при открытии файла" и да будет Вам счастье! Никаких кнопок, комбинаций клавишь и т.д., Excel все сделает сам.

{quote}{login=rforce}{date=13.03.2012 05:02}{thema=Экспорт определенных Данных с сайта в Excel}{post}Скажите, пожалуйста, можно ли осуществить подобную операцию?{/post}{/quote}  
Експорт - вынесение\копирование данных из Вашего документа куда-то.  
А то, что Вы просите, называется импорт - правильно излагайте мысли.

Там проблема с самой датой, формула не причем.

А у меня все работает) Перебейте дату ручками и да будет Вам счастье)

Хотелось бы все же не с Active X, а с простыми элементами управления.  
Можно и эти конечно использовать, мне подходит в принципе, за что Вам большое! спасибо! Но работы прибавится немеренно.    
Если как-то все же можно сделать с обычными элементами управления, то было бы вообще супер!

{quote}{login=KukLP}{date=06.03.2012 11:13}{thema=}{post}?{/post}{/quote}  
 
Если просто удалить, то разделение груп слетит!

это моя третяя тема на этом форуме, на две из которых никто так и не ответил... ЖАЛЬ...

{quote}{login=ambasad}{date=06.03.2012 02:02}{thema=}{post}Проблема у Автора темы не с VBA, а с логикой работы его файла. После того как он структурирует для себя и нас условия для УФ - можно будет что-то вменяемое написать. А пытаться привязаться к УФ - бред{/post}{/quote}  
 
+100500)

Добрый день)  
есть проблемка - групирование елементов управления. Сгрупировать набор елементов "Переключатель" возможно только с помощью элемента "Група"(если можно как-то иначе - буду благодарен просветителю))). При этом елемент "Група" создает рамку, которая мне НЕ нужна.    
Можно ли как-то сделать её невидимой, или, возможно, есть какое-то иное решение?  
 
пример прикрепил.

{quote}{login=KukLP}{date=02.03.2012 09:08}{thema=}{post}1) Запишите макрорекордером.  
2) Создайте шаблон и им пользуйтесь.{/post}{/quote}  
 
+1, спасает, уже уйму раз использовал, кучерявую штучку придумали мелкомягкие))

"получалось как у меня"... бугагагагага, зачем тогда спрашиваешь, если сделал уже лучьше?)))

нижняя табличка это типа пример того, что должно быть?

не понятно, какая оценка, что именно считается, куда она должна выводиться?! Детальней опишите задание либо добавьте описание в сам файл!

где-то так?

по времени, по дню недели и по обоим условиям одновременно

что "и т.д.", какие условия именно нужны?