• Как объеденить кучу Excel файлов в один?

    mirzaiskandarov
    @mirzaiskandarov
    http://iskandarov.org
    Предположим, имеется куча книг Excel, все листы из которых надо объединить в один файл. Копировать руками долго и мучительно, поэтому имеет смысл использовать несложный макрос.

    Открываем книгу, куда хотим собрать листы из других файлов, входим в редактор Visual Basic (ALT+F11), добавляем новый пустой модуль (в меню Insert - Module) и копируем туда текст вот такого макроса:

    Sub CombineWorkbooks()
    Dim FilesToOpen
    Dim x As Integer

    Application.ScreenUpdating = False 'отключаем обновление экрана для скорости

    'вызываем диалог выбора файлов для импорта
    FilesToOpen = Application.GetOpenFilename _
    (FileFilter:="All files (*.*), *.*", _
    MultiSelect:=True, Title:="Files to Merge")

    If TypeName(FilesToOpen) = "Boolean" Then
    MsgBox "Не выбрано ни одного файла!"
    Exit Sub
    End If

    'проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen)
    Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
    Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    importWB.Close savechanges:=False
    x = x + 1
    Wend

    Application.ScreenUpdating = True
    End Sub

    После этого можно вернуться в Excel и запустить созданный макрос через меню Сервис - Макрос - Макросы (Tools - Macro - Macros) или нажав ALT+F8. Отобразится диалоговое окно открытия файла, где необходимо указать один или несколько (удерживая CTRL или SHIFT) файлов, листы из которых надо добавить к текущей книге.
    PE
    Ответ написан
    2 комментария
  • Почему сайт долго открывается (Azure WebSites + VM MySQL)?

    mirzaiskandarov
    @mirzaiskandarov Автор вопроса
    http://iskandarov.org
    Проблема в том что хостинг и База Данных в разных зонах. После настройке все работает прекрасно.
    Loading time: 1.98 second
    Ответ написан
    Комментировать
  • Что спасет от спама?

    mirzaiskandarov
    @mirzaiskandarov
    http://iskandarov.org
    Может просто нужно установить Гугл Капчу: ReCaptcha
    Ответ написан
  • Какой шаблон landing+blog лучше выбрать для wordpress?

    mirzaiskandarov
    @mirzaiskandarov
    http://iskandarov.org
    Добрый День! Думаю что можно выбрать для блога любой из каталого, а для Ландинг Пейдж можно использывовать плагин Page Builder (by SiteOrigin).
    Ответ написан
    Комментировать