Разное

Макрос для подсчета количества записей в файле dbf для excel: Подсчёт количества файлов и подпапок в папке

Содержание

Подсчёт количества файлов и подпапок в папке

Этот макрос выводит информацию о папке — например, её размер, и количество файлов в ней:

Sub ПодсчётКоличестваФайловВПапке()
    ' задаём папку
    FolderPath = "C:\Documents and Settings\Admin\Рабочий стол\"
 
    ' получаем характеристики папки
    Set FSO = CreateObject("Scripting.FileSystemObject")
    КоличествоФайловВПапкеБезУчётаПодпапок = FSO.GetFolder(FolderPath).Files.Count
    КоличествоПодпапок = FSO.GetFolder(FolderPath).SubFolders.Count
    РазмерПапкиВБайтах = FSO.GetFolder(FolderPath).Size
 
    ' подсчитываем количество файлов с учётом файлов в подпапках
    КоличествоФайловВПапкеСУчётомПодпапок = FilesCount(FolderPath)
 
    Debug.Print "В папке найдено " & КоличествоФайловВПапкеБезУчётаПодпапок & " файлов и " & _
                КоличествоПодпапок & " подпапок. Всего файлов: " & КоличествоФайловВПапкеСУчётомПодпапок
    Debug.Print "Папка занимает на диске " & РазмерПапкиВБайтах & " байтов (" & _
                FileOrFolderSize(РазмерПапкиВБайтах) & ")"
End Sub

Результат работы кода (в окне Immediate):

В папке найдено 186 файлов и 31 подпапок. Всего файлов: 4216
Папка занимает на диске 193158100 байтов (184 Мб)

Если же вам надо вывести список файлов на лист Excel — смотрите функцию FilenamesCollection:
http://excelvba.ru/code/FilenamesCollection

Код необходимых функций для подсчёта файлов:

Function FilesCount(ByVal FolderPath As String, Optional ByVal SearchDeep As Long = 999) As Long
    ' Получает в качестве параметра путь к папке FolderPath,
    ' и глубину поиска SearchDeep в подпапках (если SearchDeep=1, то подпапки не просматриваются).
    ' Возвращает количество найденных файлов
    ' (применяется рекурсивный вызов процедуры GetAllFileNamesUsingFSO)

    Set FSO = CreateObject("Scripting.FileSystemObject")    ' создаём экземпляр FileSystemObject
    FilesCount = GetFilesCountUsingFSO(FolderPath, FSO, SearchDeep)       ' подсчёт файлов
    Set FSO = Nothing
End Function
 
Function GetFilesCountUsingFSO(ByVal FolderPath As String, ByRef FSO, ByVal SearchDeep As Long)
    ' перебирает все файлы и подпапки в папке FolderPath, используя объект FSO
    ' перебор папок осуществляется в том случае, если SearchDeep > 1
    ' добавляет пути найденных файлов в коллекцию FileNamesColl
    'On Error Resume Next:
    Set curfold = FSO.GetFolder(FolderPath)
    If Not curfold Is Nothing Then    ' если удалось получить доступ к папке
        GetFilesCountUsingFSO = curfold.Files.Count
        SearchDeep = SearchDeep - 1    ' уменьшаем глубину поиска в подпапках
        If SearchDeep Then    ' если надо искать глубже
            For Each sfol In curfold.SubFolders    ' перебираем все подпапки в папке FolderPath
                GetFilesCountUsingFSO = GetFilesCountUsingFSO + GetFilesCountUsingFSO(sfol.Path, FSO, SearchDeep)
            Next
        End If
        Set fil = Nothing: Set curfold = Nothing    ' очищаем переменные
    End If
End Function

Для вывода понятной (отформатированной) информации об объёме папки или файла используется функция FileOrFolderSize:

Function FileOrFolderSize(ByVal s) As String
    Size = Fix(Val(s)):    ' If s = "" Then FileOrFolderSize = "<нет доступа>"
    Select Case Size
        Case Is < 1000: FileOrFolderSize = Size & " байт"
        Case Is < 10000: FileOrFolderSize = FormatNumber(Size / 1024, 1) & " Кб"
        Case Is < 1000000: FileOrFolderSize = FormatNumber(Size \ 1024, 0) & " Кб"
        Case Is < 10000000: FileOrFolderSize = FormatNumber(Size / 1024 / 1024, 1) & " Mб"
        Case Is < 1000000000: FileOrFolderSize = FormatNumber(Size / 1024 / 1024, 0) & " Мб"
        Case Else: FileOrFolderSize = FormatNumber(Size / 1024 / 1024 / 1024, 1) & " Гб"
    End Select
End Function

Программы и макросы Excel в категории Обработка таблиц

  • Надстройка FillDocuments для MS Excel: общие сведения

    Предназначение программы: заполнение множества документов данными из Excel нажатием одной кнопки.
    Для работы программы требуется таблица Excel с данными для подстановки, и папка с шаблоном (шаблонами) документов.
    В качестве шаблонов можно использовать файлы Word и Excel.
    На выходе получаются заполненные файлы исходного…

  • Программа «Прайс лист», выполненная в виде надстройки для Excel, позволяет легко автоматизировать обработку прайс-листов.
    Вспомните ситуацию: поставщики в очередной раз прислали свои прайс-листы в Excel — конечно, в совершенно разных форматах — и вам нужно объединить данные из всех этих файлов в одну таблицу. А составители этих таблиц будто специально хотели усложнить вам жизнь…

  • Программа предназначена для сравнения и подстановки значений в таблицах Excel.
    Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
    и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
    надстройка «Lookup» поможет сделать это нажатием одной кнопки.
     
    То же самое можно сделать при помощи формулы =ВПР(), но:

    формулы…

  • Этот макрос предназначен для сбора (загрузки) информации из файлов Excel, расположенных в одной папке.
     
    Для работы этого макроса, помимо него самого, вам понадобится добавить в свой файл:

    функцию FilenamesCollection для получения списка файлов в папке

    функцию GetFolder для вывода диалогового окна выбора папки с запоминанием выбранной папки

    прогресс-бар для отображения…

  • Программа предназначена для автоматизации процесса создания форм ввода и редактирования данных из таблиц Excel.
    Сейчас реализована лишь малая часть программы.
    Но уже сейчас программа достаточно точно распознаёт типы полей таблицы, и для полей типа «выпадающий список» и «поле с маской ввода» формирует список значений и маску ввода соответственно.
    Как будет свободное время -…

  • Программа предназначена для формирования (заполнения) договоров купли-продажи.
     
    Исходными данными выступает таблица сделок, и шаблон договора, в который при помощи формул подставляются значения из заданной строки таблицы сделок.
    Для запуска программы достаточно нажать зеленую кнопку — и сразу же начнётся формирование договоров (файлов Excel из одного листа) в автоматически созданной папке…

  • Надстройка SearchText предназначена для поиска заданного текста в книге Excel, с выводом результатов поиска на отдельный лист.
     
    При запуске надстройка формирует панель инструментов, с которой осуществляется запуск всех макросов:

    В Excel 2007 и 2010 панель инструментов можно найти на вкладке «Надстройки»:

    Надстройка SearchText является расширенной версией надстройки для…

  • Макрос предназначен для создания текстовых файлов в кодировке UTF-8.
    Исходными данными является таблица Excel из 12 столбцов.
    Сначала, макрос создаёт папку для будущих текстовых файлов.
    Папка создаётся в том же каталоге, где расположена книга Excel.
    Далее, для каждой строки таблицы, макрос формирует подпапку,
    используя в качестве её названия текст из 7-го столбца таблицы.
    И потом, когда папка…

  • Программа предназначена для сравнения цен конкурентов из их прайсов с прайс-листом вашей организации.

    ВНИМАНИЕ: Недавно разработана многофункциональная программа для обработки прайс-листов

    Новая программа объединения и обработки прайс-листов доступна на сайте для скачивания и тестирования на различных наборах прайс-листов.

    Исходными данными для программы являются:

    ваш прайс…

  • Данный макрос предназначен для поиска адресов электронной почты на листе Excel, с последующим выводом найденных адресов на отдельный лист.
    В прикреплённом файле, на первом листе («исходные данные»), ячейки заполнены неструктурированной информацией (смесь фамилий, адресов почты, прочей ненужной информации)
    Макрос вычленяет из текста ячеек адреса электронной почты, и выводит все найденные…

  • К примеру, есть у вас несколько десятков (или сотен) текстовых файлов с подобным содержимым:
    (количество файлов, и количество строк данных в каждом файле не ограничено)
    1c04;1J0-698-151-G;1 комплект тормозных накладок;1J0698151G;1J0698151G;5;1
    1c04;1H0698151A;Тормозные колодки;1H0698151A;1H0698151A;1;1
    1c04;1K0-698-151-B;Тормозные колодки;1K0698151B;1K0698151B;2;1
    А надо из всего этого…

  • Программа предназначена для автоматизации формирования договоров комиссии и купли автотранспортного средства.
    В качестве исходных данных выступают:

    таблица Excel с реквизитами создаваемых документов
    папка с шаблонами договоров (в формате dot)

    В исходной таблице Excel занесены все необходимые исходные данные для заполнения бланков договоров, а также, при помощи пользовательских формул (UDF),…

  • Программа предназначена для поиска минимальных цен на товары в Яндекс.Маркете
    UPDATE: Продажа программы прекращена 14 мая 2015 года, ввиду нерентабельности техподдержки
    (это единственная из моих программ, где я не могу гарантировать работоспособность, — т.к. всё зависит от Яндекса, который часто меняет сайт, и вводит ограничения типа капчи).
    Техподдержка программы тоже прекращена в полном…

  • Программа предназначена для получения списка файлов Excel из заданной папки, и загрузки итоговых значений из каждого найденного файла
    В отдельной ячейке задаётся путь к папке, которая будет просмотрена в поисках файлов Excel
    (c расширением .xls)
    При формировании списка файлов проставляются гиперссылки на найденные файлы, указывается дата создания файла.
    Из каждого файла загружаются значения с…

  • Макрос для подсчета ячеек в выделенном диапазоне

     

    Предположим ситуацию, что у вас есть план объекта, выполненный на координатной сетке, расчерченной в программе Excel.

    Известен масштаб: Сторона клетки равна 10 см.

    Необходимо посчитать площадь объекта или его отдельной части (комнаты).

    подсчет площади объекта в Эксель

    Если объект прямоугольной формы всё довольно просто достаточно посчитать ячейки, вдоль вертикально нарисованной и горизонтально нарисованной стен и перемножить значения. Полученное произведение перевести из квадратных дециметров в метры квадратные.

    Сложности возникают, если объект не прямоугольной формы. Для такого объекта необходимо считать площадь каждого отдельного прямоугольного участка, потом складывать полученные результаты. Процедура довольно долгая и скучная.

    Для упрощения работы по подсчету ячеек в выделенном диапазоне, можно написать следующий макрос, который будет считать количество ячеек (клеток) во всём выделение и выводить значения в виде появляющегося окна (MsgBox).

    Площадь объекта при помощи макроса

    Макрос подсчета количества ячеек в выделенном диапазоне выглядит следующим образом:

    Sub Счет_ячеек() ‘название макроса

    Dim b as integer ‘ вводим переменную b

    b=0 ‘присваиваем переменной значение «0»

    for each cell in selection ‘записываем цикл подсчета

    b=b+1

    next

    MsgBox «количество ячеек » & b ‘ выводим сообщение с количеством ячеек

    End sub ‘конец макроса

     

    Присваиваем созданный макрос кнопке или сочетанию клавиш для удобства использования.

    После того, как макрос посчитать количество ячеек переведите значения площади в дециметрах в метры квадратные.

     

    Автоматизация Excel из Visual Basic .NET для заполнения или получения данных с помощью массивов — Office



    • Чтение занимает 4 мин
    • Применяется к:

      Microsoft Excel

    В этой статье

    Сводка

    В этой статье показано, как автоматизировать Microsoft Excel и как заполнить диапазон из нескольких ячеек массивом значений. В этой статье также показано, как получить диапазон из нескольких ячеек в виде массива с помощью автоматизации.

    Дополнительные сведения

    Чтобы заполнить диапазон, включающий несколько ячеек, без заполнения ячеек по одному, можно задать для свойства Value объекта Range двухмерный массив. Аналогично двухмерный массив значений можно извлечь для нескольких ячеек одновременно, используя свойство Value. Приведенные ниже действия иллюстрируют этот процесс как для установки, так и для получения данных с помощью двумерных массивов.

    Создание клиента автоматизации для Microsoft Excel

    1. Запустите Microsoft Visual Studio .NET.

    2. В меню Файл выберите команду Создать, а затем выберите Проект. Выберите приложение Windows из типов проектов Visual Basic. По умолчанию форма Form1 создана.

    3. Добавьте ссылку на библиотеку объектов Microsoft Excel. Для этого выполните следующие действия:

      1. On the Project menu, click Add Reference.
      2. На вкладке COM найдите объект библиотека объектов Microsoft Excel и нажмите кнопку Выбрать.

      Note (Примечание ) В состав Microsoft Office 2007 и Microsoft Office 2003 входят основные сборки взаимодействия (PIA). Microsoft Office XP не включает PIA, но их можно скачать.

    4. Нажмите кнопку ОК в диалоговом окне Добавление ссылок, чтобы принять выбранные параметры. Если вам будет предложено создать программы-оболочки для выбранных библиотек, нажмите кнопку Да.

    5. В меню Вид выберите пункт Панель элементов, чтобы открыть панель элементов. Добавьте две кнопки и флажок в форму Form1.

    6. Установите для свойства Name флажка значение Филлвисстрингс.

    7. Дважды щелкните элемент Button1. Откроется окно кода для формы.

    8. Добавьте следующий элемент в верхнюю часть Form1. vb:

      Imports Microsoft.Office.Interop
      
      
    9. В окне код замените приведенный ниже код.

       Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click
      End Sub
      

      у

       'Keep the application object and the workbook object global, so you can  
       'retrieve the data in Button2_Click that was set in Button1_Click.
       Dim objApp As Excel.Application
       Dim objBook As Excel._Workbook
      
      Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click
           Dim objBooks As Excel.Workbooks
           Dim objSheets As Excel.Sheets
           Dim objSheet As Excel._Worksheet
           Dim range As Excel.Range
      
      ' Create a new instance of Excel and start a new workbook.
           objApp = New Excel.Application()
           objBooks = objApp.Workbooks
           objBook = objBooks.Add
           objSheets = objBook.Worksheets
           objSheet = objSheets(1)
      
      'Get the range where the starting cell has the address
           'm_sStartingCell and its dimensions are m_iNumRows x m_iNumCols.
           range = objSheet.Range("A1", Reflection.Missing.Value)
           range = range.Resize(5, 5)
      
      If (Me.FillWithStrings.Checked = False) Then
               'Create an array.
               Dim saRet(5, 5) As Double
      
      'Fill the array.
               Dim iRow As Long
               Dim iCol As Long
               For iRow = 0 To 5
                   For iCol = 0 To 5
      
      'Put a counter in the cell.
                       saRet(iRow, iCol) = iRow * iCol
                   Next iCol
               Next iRow
      
      'Set the range value to the array.
               range.Value = saRet
      
      Else
               'Create an array.
               Dim saRet(5, 5) As String
      
      'Fill the array.
               Dim iRow As Long
               Dim iCol As Long
               For iRow = 0 To 5
                   For iCol = 0 To 5
      
      'Put the row and column address in the cell.
                       saRet(iRow, iCol) = iRow.ToString() + "|" + iCol.ToString()
                   Next iCol
               Next iRow
      
      'Set the range value to the array.
               range.Value = saRet
           End If
      
      'Return control of Excel to the user.
           objApp.Visible = True
           objApp.UserControl = True
      
      'Clean up a little.
           range = Nothing
           objSheet = Nothing
           objSheets = Nothing
           objBooks = Nothing
       End Sub
      
      
    10. Вернитесь в режим конструктора для Form1, а затем дважды щелкните элемент Button2.

    11. В окне код замените приведенный ниже код.

      Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
      
      End Sub
      

      у

      Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
          Dim objSheets As Excel.Sheets
          Dim objSheet As Excel._Worksheet
          Dim range As Excel.Range
      
      'Get a reference to the first sheet of the workbook.
          On Error Goto ExcelNotRunning
          objSheets = objBook.Worksheets
          objSheet = objSheets(1)
      
      ExcelNotRunning:
          If (Not (Err.Number = 0)) Then
              MessageBox.Show("Cannot find the Excel workbook.  Try clicking Button1 to " + _
              "create an Excel workbook with data before running Button2.", _
              "Missing Workbook?")
      
      'We cannot automate Excel if we cannot find the data we created, 
              'so leave the subroutine.
              Exit Sub
          End If
      
      'Get a range of data.
          range = objSheet.Range("A1", "E5")
      
      'Retrieve the data from the range.
          Dim saRet(,) As Object
          saRet = range.Value
      
      'Determine the dimensions of the array.
          Dim iRows As Long
          Dim iCols As Long
          iRows = saRet.GetUpperBound(0)
          iCols = saRet.GetUpperBound(1)
      
      'Build a string that contains the data of the array.
          Dim valueString As String
          valueString = "Array Data" + vbCrLf
      
      Dim rowCounter As Long
          Dim colCounter As Long
          For rowCounter = 1 To iRows
              For colCounter = 1 To iCols
      
      'Write the next value into the string.
                  valueString = String.Concat(valueString, _
                      saRet(rowCounter, colCounter).ToString() + ", ")
      
      Next colCounter
      
      'Write in a new line.
              valueString = String.Concat(valueString, vbCrLf)
          Next rowCounter
      
      'Report the value of the array.
          MessageBox.Show(valueString, "Array Values")
      
      'Clean up a little.
          range = Nothing
          objSheet = Nothing
          objSheets = Nothing
      End Sub
      
      

    Тестирование клиента автоматизации

    1. Нажмите клавишу F5, чтобы построить и запустить пример программы.
    2. Нажмите кнопку Button1. Приложение Microsoft Excel запускается с новой книгой, а ячейки a1: «е» первого листа заполнены числовыми данными из массива.
    3. Нажмите кнопку Button2. Программа получает данные в ячейках A1: в новый массив и отображает результаты в окне сообщения.
    4. Выберите Филлвисстрингс, а затем нажмите кнопку Button1, чтобы заполнить ячейки a1: «в строку данных».

    Ссылки

    Для получения дополнительных сведений о том, как использовать массивы для установки и получения данных Excel с помощью более ранних версий Visual Studio, щелкните номера статей ниже, чтобы просмотреть статью в базе знаний Майкрософт:

    247412 Info: методы переноса данных в Excel из Visual Basic



    Программы и макросы Excel в категории Текстовые файлы

  • Надстройка FillDocuments для MS Excel: общие сведения

    Предназначение программы: заполнение множества документов данными из Excel нажатием одной кнопки.
    Для работы программы требуется таблица Excel с данными для подстановки, и папка с шаблоном (шаблонами) документов.
    В качестве шаблонов можно использовать файлы Word и Excel.
    На выходе получаются заполненные файлы исходного…

  • Надстройка Parser для Excel — простое и удобное решение для парсинга любых сайтов (интернет-магазинов, соцсетей, площадок объявлений) с выводом данных в таблицу Excel (формата XLS* или CSV), а также скачивания файлов.
    Особенность программы — очень гибкая настройка постобработки полученных данных (множество текстовых функций, всевозможные фильтры, перекодировки, работа с переменными,…

  • Функции ChangeFileCharset и ChangeTextCharset предназначены для изменения кодировки символов в текстовых файлах и строках.
    Исходную и конечную (желаемую) кодировку можно задать в параметрах вызова функций.
    ВНИМАНИЕ: Новая (универсальная) версия функции сохранения текста в файл в заданной кодировке:
    http://excelvba.ru/code/SaveTextToFile
    Список доступных на вашем компьютере кодировок можно найти в…

  • Данные функции предназначены для работы с текстовыми файлами из VBA Excel.
    Используя эти функции, вы при помощи одной строки кода сможете записать текст из переменной в файл, или наоборот, загрузить содержимое текстового файла в переменную.
    Чтение текстового файла в переменную:
    Function ReadTXTfile(ByVal filename As String) As String
    Set fso = CreateObject(«scripting.filesystemobject…

  • Макрос предназначен для создания текстовых файлов в кодировке UTF-8.
    Исходными данными является таблица Excel из 12 столбцов.
    Сначала, макрос создаёт папку для будущих текстовых файлов.
    Папка создаётся в том же каталоге, где расположена книга Excel.
    Далее, для каждой строки таблицы, макрос формирует подпапку,
    используя в качестве её названия текст из 7-го столбца таблицы.
    И потом, когда папка…

  • Надстройка предназначена для облегчения импорта данных в Excel из текстовых файлов с разделителями (например, из CSV)

    Пока во вложении — обычный файл Excel с нужными макросами, надстройку выложу позже

    В надстройке применена функция получения ссылки на заданную пользователем ячейку.
    Основой для надстройки послужила функция загрузки CSV файла в двумерный массив

    Использовать функции…

  • Представляю вашему вниманию инструментарий для работы с файлами по FTP

    Как известно, отправить файл на FTP сервер (или загрузить файл с FTP, создать папку на FTP сервере, и т.д.) можно при помощи таких API-функций из библиотеки wininet.dll, как FtpPutFile, FtpGetFile, FtpRenameFile, FtpDeleteFile, FtpRemoveDirectory, FtpCreateDirectory, FtpFindFirstFile и т.д…

  • Если вам нужно рассылать письма из Excel,
    воспользуйтесь готовым решением в виде надстройки FillDocuments
    Ознакомьтесь с возможностями и способами рассылки писем из Excel,
    а также с инструкцией по настройке рассылки через TheBAT

    Макроc предназначен для автоматизированной рассылки почты из Excel.
    Для рассылки используется почтовая программа TheBAT!
    (подразумевается, что эта программа на…

  • Программа предназначена для обработки объявлений о продаже недвижимости.
     

    Основная задача программы — обработка списка телефоннных номеров из объявлений, с целью фильтрации этого списка.
    Это позволяет выделить объявления от частных лиц,
    удалив из общего списка предложения от агенств недвижимости.
     
    Программа умеет:

    разносить номера из ячеек по разным столбцам или строкам…

  • Функция TextFile2Array предназначена для преобразования файла CSV в двумерный массив
    Очень часто при работе с текстовыми файлами (и, в частности, с файлами CSV) приходится их загружать на лист Excel, предварительно производя фильтрацию данных в этом файле.
    Чтобы упростить весь процесс — от выбора файла CSV в диалоговом окне, до разбиения загруженного из файла текста в двумерный массив, и была…

  • Функция предназначена для разбивки текстового файла на несколько файлов меньшего размера — в каждом из которых будет не более заданнного количества строк

    Разделитель строк (обычно это перевод строки — константа vbNewLine) задаётся в качестве параметра функции Delimiter$

    Создаваемые файлы получают имена вида filename(1).txt, filename(2).txt и т.д.

    Если задан параметр функции…

  • Программа предназначена для формирования заданий на производство.
    Исходными данными выступают таблицы Excel и файлы XML.
    При конвертации таблиц происходит обработка данных и перестановка столбцов.
    При запуске программа формирует панель инструментов с 6 кнопками — для обработки файлов различной структуры.

  • Программа предназначена для преобразования файлов формата .HTM с объявлениями о продаже недвижимости (файлы являются результатом сохранения веб-страниц с сайтов публикации объявлений) в формат Microsoft Excel.
    Программа производит анализ текста объвлений, распознаёт значения площади и этажности, отделяет второстепенные данные (комментарий) из текста объявления, преобразует различные форматы цен (…

  • Макрос предназначен для загрузки данных из выбранного текстового файла.
    В данном примере макрос загружает из текстового файла (формата CSV) список минимальных и максимальных температур за указанный год.
    Год выбирается на листе из выпадающего списка.
    На листе запуска всего 2 кнопки — первая запускает макрос загрузки данных, вторая — очищает заполненную таблицу.

    В демонстрационных целях в…

  • Функции WIF и RIF являются обёртками для WinAPI функций WritePrivateProfileString и GetPrivateProfileString, и предназначены для записи и чтения параметров из файлов конфигурации INI.
    INI-файлы — это обычные текстовые файлы, предназначенные для хранения настроек программ.
    Примерный вид структуры INI -файла:

    ; комментарий
    [Section1]
    var1 = значение_1
    var2 = значение_2
    [access]
    changed=02.06…

  • Простейший текстовый редактор, который позволяет загружать документы Word из выбранной папки, и редактировать текст с возможностью последующего сохранения.
    (сохраняется только текст, форматирование очищается)

  • Программа предназначена для выборки данных из текстовых файлов, которые были сгенерированны инвентаризационной программой
    В качестве исходных данных для макроса используются текстовые файлы, в которых находится информация о конфигурации компьютеров
    (на каждый компьютер приходится по 3 файла).
    Работу макроса можно разделить на следующие этапы:

    Выбор папки с данными по всем компьютерам…

  • Программа позволяет загружать котировки различных валют из файлов формата .HTM, и анализировать их при различных параметрах анализа.
    Все котировки разбиваются на отдельные блоки (временные диапазоны для разбивки задаются на форме настроек), и анализ производится по каждому блоку в отдельности.
    Есть возможность исключить из расчётов данные за пятницу.
    Изменение параметров вычисления значений BS…

  • Программа служит для преобразования тиковых значений котировок в свечи необходимого периода
    Исходный файл в формате .csv получается в результате выгрузки (экспорта) котировок с сайта www.finam.ru (Фьючерсы ФОРТС),
    и содержит большое количество строк (записей) — около 1 миллиона за 1 день.
    В исходном файле CSV имеется таблица  со следующими столбцами:
    <TICKER> <PER> <DATE…

  • Программа предназначена для создания отчётов по детализации телефонных звонков (междугородная и международная связь), последующей упаковки созданных детализаций в ZIP архив, и автоматизированной рассылки сформированных писем абонентам.
    При запуске программа ищет в заданной папке исходные файлы с детализацией (упакованные в ZIP файлы DBF), и на основании из этих файлов формирует (по шаблону, с…

  • Программа формирует выгрузку в CSV для выделенных строк таблицы Excel

    Есть возможность одним нажатием выделить все строки в таблице (или снять выделение со всех строк)

    Реализована возможность разбиения итогового файла CSV на несколько, с заданным максимальным количеством строк.
    (создаваемые файлы автоматически нумеруются)

  • Программы и макросы Excel в категории Создание отчётов

  • Надстройка PastePictures для MS Excel: общие сведения

    Предназначение программы: вставка изображений в таблицу Excel, поиск картинок в папке или в Google, экспорт картинок из таблицы в папку.
    Основные функции программы:

    вставка фото из папки (поиск по имени файла)
    вставка картинок по ссылкам из таблицы
    поиск изображений в гугл по данным с листа Excel
    экспорт изображений с листа в файлы…

  • Программа «Прайс лист», выполненная в виде надстройки для Excel, позволяет легко автоматизировать обработку прайс-листов.
    Вспомните ситуацию: поставщики в очередной раз прислали свои прайс-листы в Excel — конечно, в совершенно разных форматах — и вам нужно объединить данные из всех этих файлов в одну таблицу. А составители этих таблиц будто специально хотели усложнить вам жизнь…

  • Программа предназначена для создания и печати этикеток, наклеек, ценников и квитанций на основании данных в таблице Excel.

    При помощи этой программы вы можете:

    распечатать ценники на товар, взяв данные из прайс-листа

    сформировать этикетки и наклейки для заданных строк вашей таблицы

    подготовить квитанции для оплаты услуг ЖКХ (счета за водоснабжение, канализацию, электроэнергию)…

  • Программа предназначена для сравнения и подстановки значений в таблицах Excel.
    Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
    и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
    надстройка «Lookup» поможет сделать это нажатием одной кнопки.
     
    То же самое можно сделать при помощи формулы =ВПР(), но:

    формулы…

  • Программа предназначена для формирования (заполнения) договоров купли-продажи.
     
    Исходными данными выступает таблица сделок, и шаблон договора, в который при помощи формул подставляются значения из заданной строки таблицы сделок.
    Для запуска программы достаточно нажать зеленую кнопку — и сразу же начнётся формирование договоров (файлов Excel из одного листа) в автоматически созданной папке…

  • Надстройка SearchText предназначена для поиска заданного текста в книге Excel, с выводом результатов поиска на отдельный лист.
     
    При запуске надстройка формирует панель инструментов, с которой осуществляется запуск всех макросов:

    В Excel 2007 и 2010 панель инструментов можно найти на вкладке «Надстройки»:

    Надстройка SearchText является расширенной версией надстройки для…

  • Программа предназначена для сравнения цен конкурентов из их прайсов с прайс-листом вашей организации.

    ВНИМАНИЕ: Недавно разработана многофункциональная программа для обработки прайс-листов

    Новая программа объединения и обработки прайс-листов доступна на сайте для скачивания и тестирования на различных наборах прайс-листов.

    Исходными данными для программы являются:

    ваш прайс…

  • Данный макрос предназначен для поиска адресов электронной почты на листе Excel, с последующим выводом найденных адресов на отдельный лист.
    В прикреплённом файле, на первом листе («исходные данные»), ячейки заполнены неструктурированной информацией (смесь фамилий, адресов почты, прочей ненужной информации)
    Макрос вычленяет из текста ячеек адреса электронной почты, и выводит все найденные…

  • К примеру, есть у вас несколько десятков (или сотен) текстовых файлов с подобным содержимым:
    (количество файлов, и количество строк данных в каждом файле не ограничено)
    1c04;1J0-698-151-G;1 комплект тормозных накладок;1J0698151G;1J0698151G;5;1
    1c04;1H0698151A;Тормозные колодки;1H0698151A;1H0698151A;1;1
    1c04;1K0-698-151-B;Тормозные колодки;1K0698151B;1K0698151B;2;1
    А надо из всего этого…

  • Надстройка SearchExcel предназначена для поиска заданного текста во всех столбцах текущего листа Excel, с выводом результатов поиска на отдельный лист.
     
    При запуске надстройка формирует панель инструментов, с которой осуществляется запуск всех макросов:

    Надстройка SearchExcel является упрощённой версией надстройки для поиска на всех листах книги Excel
    Смотрите также надстройку для…

  • Программа предназначена для получения списка файлов Excel из заданной папки, и загрузки итоговых значений из каждого найденного файла
    В отдельной ячейке задаётся путь к папке, которая будет просмотрена в поисках файлов Excel
    (c расширением .xls)
    При формировании списка файлов проставляются гиперссылки на найденные файлы, указывается дата создания файла.
    Из каждого файла загружаются значения с…

  • База данных «Преподаватели» предназначена для автоматизации работы администрации учебных заведений.

    Программа обеспечивает выполнение всех необходимых операций по приему документов, поиску и анализу информации, составлению отчетов.

    Эта база данных представляюет собой урезанную и немного изменённую версию программы АИСС СПК.

    Программа обеспечивает:

    Хранение полной…

  • Программа предназначена для работы с заказами, оформляемыми менеджерами на выставках.

    Основные функции программы:

    создание (заполнение) новых заказов

    редактирование существующих заказов

    объединение нескольких заказов в один

    формирование заявки на продукцию на основании данных их сформированных заказов

    Для каждого заказа предусмотрен выбор клиента из базы данных (если клиент…

  • Программа АИСС «СПК» предназначена для автоматизации работы приемной комиссии колледжей и техникумов.

    АИСС обеспечивает выполнение всех необходимых операций по приему документов, поиску и анализу информации, составлению отчетов.

    Назначением программы является автоматизация труда работника приёмной комиссии учебного заведения.

    Программа обеспечивает:

    Хранение полной…

  • Программа предназначена для загрузки списка товаров из актов о приеме-передаче основных средств.
    Поддерживаются акты по формам № ОС-3.1 и № ОС-3.3, возможно добавить поддержку актов других форм (в формате Excel).
    При запуске макроса, выводится диалоговое окно выбора папки, после чего, в выбранной папке, производится поиск всех файлов Excel.
    Для каждого из найденных файлов Excel, программа…

  • Программа позволяет сформировать отчёты по базе данных больницы.
    Кроме того, реализован ввод данных в базу о новых пациентах.

     

  • Программа предназначена для формирования прайс-листов на ноутбуки с соответствии с требованиями интернет-каталога Onliner.by

    Основные функции программы:

    (учитываются цены фирм-конкурентов, цены onliner.by и надбавка фирмы)

    загрузка каталога ноутбуков (названия, характеристики, цены) с сайта onliner.by в файл Excel, и обновление этого каталога

    назначение соответствий моделей…

  • Программа предназначена для обработки объявлений о продаже недвижимости.
     

    Основная задача программы — обработка списка телефоннных номеров из объявлений, с целью фильтрации этого списка.
    Это позволяет выделить объявления от частных лиц,
    удалив из общего списка предложения от агенств недвижимости.
     
    Программа умеет:

    разносить номера из ячеек по разным столбцам или строкам…

  • Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании.

    Программа позволяет хранить и редактировать базу данных объектов (в виде файлов Excel), просматривать существующие трассы и формировать новые.

     

    Особенность программы — возможность учёта и администрирования узлов связи с нестандартными…

  • Программа предназначена для составления учебного расписания.
    На отдельных листах хранится список преподавателей вуза, список групп и занятий у этих групп по дням недели.
    Макрос делает выборку по всем преподавателям (или по выбранному преподавателю),
    фильтрует по заданной группе (курсу), если не выбрана опция «все курсы»,
    сортирует по времени начала занятия, группирует по дню…

  • Программа предназначена для формирования заданий на производство.
    Исходными данными выступают таблицы Excel и файлы XML.
    При конвертации таблиц происходит обработка данных и перестановка столбцов.
    При запуске программа формирует панель инструментов с 6 кнопками — для обработки файлов различной структуры.

  • Программа предназначена для формирования единого прайс-листа автозапчастей на основании нескольких исходных прайсов различной структуры.

    ВНИМАНИЕ: Описанная в данной статье программа послужила прототипом для новой, многофункциональной программы, где пользователь сам может настраивать обработку прайс-листов

    Новая программа объединения и обработки прайс-листов доступна на сайте для…

  • Надстройка, позволяющая загрузить из выбранной папки список файлов на лист Excel.
    Автор: VictorM

    Особенности надстройки:

    задаваемая пользователем глубина поиска в подпапках

    простановка гиперссылок на листе Excel на найденные файлы

    вывод дополнительных характеристик файла

    (размер файла, дата создания файла, полный путь)

    изменяемая маска поиска (поиск по части имени файла, по…

  • Программа анализирует поступившие заказы с интернет-магазина (письма в программе Outlook), извлекает необходимые данные из писем (в формате HTML), и формирует сводную таблицу заказов
     
    Файл программы состо

  • Программы и макросы Excel в категории Работа с файлами

  • Надстройка FillDocuments для MS Excel: общие сведения

    Предназначение программы: заполнение множества документов данными из Excel нажатием одной кнопки.
    Для работы программы требуется таблица Excel с данными для подстановки, и папка с шаблоном (шаблонами) документов.
    В качестве шаблонов можно использовать файлы Word и Excel.
    На выходе получаются заполненные файлы исходного…

  • Надстройка Parser для Excel — простое и удобное решение для парсинга любых сайтов (интернет-магазинов, соцсетей, площадок объявлений) с выводом данных в таблицу Excel (формата XLS* или CSV), а также скачивания файлов.
    Особенность программы — очень гибкая настройка постобработки полученных данных (множество текстовых функций, всевозможные фильтры, перекодировки, работа с переменными,…

  • Надстройка PastePictures для MS Excel: общие сведения

    Предназначение программы: вставка изображений в таблицу Excel, поиск картинок в папке или в Google, экспорт картинок из таблицы в папку.
    Основные функции программы:

    вставка фото из папки (поиск по имени файла)
    вставка картинок по ссылкам из таблицы
    поиск изображений в гугл по данным с листа Excel
    экспорт изображений с листа в файлы…

  • Функция FilenamesCollection предназначена для получения списка файлов из папки, с учётом выбранной глубины поиска в подпапках.
    Используется рекурсивный перебор папок, до заданного уровня вложенности.
    В процессе перебора папок, пути у найденным файлам помещаются в коллекцию (объект типа Collection) для последующего перебора.
    К статье прикреплено 2 примера файла с макросами на основе этой…

  • Функции GetFileName и GetFilePath по сути аналогичны, и предназначены для вывода диалогового окна выбора файла
    (при этом можно указать стартовую папку для поиска файла, и тип/расширение выбираемого файла)
    Функция GetFilenamesCollection позволяет выборать сразу несколько файлов в одной папке.
    Функция GetFolderPath работает также, только служит для вывода диалогового окна выбора папки.
    Function…

  • Макрос предназначен для программного создания документов Word на основе шаблона
    (без использования функции слияния в Word)

    В прикреплённом к статье архиве находятся 2 файла:

    шаблон договора в формате Microsoft Word (расширение .dot)

    файл Excel с макросом

    Настройки макроса задаются в коде:
    Const ИмяФайлаШаблона = «шаблон.dot»
    Const КоличествоОбрабатываемыхСтолбцов = 8…

  • Данные функции предназначены для работы с текстовыми файлами из VBA Excel.
    Используя эти функции, вы при помощи одной строки кода сможете записать текст из переменной в файл, или наоборот, загрузить содержимое текстового файла в переменную.
    Чтение текстового файла в переменную:
    Function ReadTXTfile(ByVal filename As String) As String
    Set fso = CreateObject(«scripting.filesystemobject…

  • Программа предназначена для формирования (заполнения) договоров купли-продажи.
     
    Исходными данными выступает таблица сделок, и шаблон договора, в который при помощи формул подставляются значения из заданной строки таблицы сделок.
    Для запуска программы достаточно нажать зеленую кнопку — и сразу же начнётся формирование договоров (файлов Excel из одного листа) в автоматически созданной папке…

  • Надстройка позволяет экспортировать все изображения с листа Excel в графические файлы.
    Доступен выбор типа создаваемых файлов (поддерживаются форматы JPG, GIF и PNG)
    Кроме того, можно указать имя папки, в которую будут помещены созданные файлы
    (эта папка будет создана автоматически в том же каталоге, где расположен обрабатываемая книга Excel)

    Если нужно сохранять картинки под именами из…

  • Макрос предназначен для создания текстовых файлов в кодировке UTF-8.
    Исходными данными является таблица Excel из 12 столбцов.
    Сначала, макрос создаёт папку для будущих текстовых файлов.
    Папка создаётся в том же каталоге, где расположена книга Excel.
    Далее, для каждой строки таблицы, макрос формирует подпапку,
    используя в качестве её названия текст из 7-го столбца таблицы.
    И потом, когда папка…

  • Как известно, VBA-функция MkDir может создать только папку в существующем каталоге (папке).
     
    Например, код MkDir «C:\Папка\» отработает корректно в любом случае (создаст указанную папку),
    а код MkDir «C:\Папка\Подпапка\Каталог\» выдаст ошибку Run-time error ’76’: Path not found
    (потому что невозможно создать каталог Подпапка в несуществующем ещё каталоге Папка)…

  • К примеру, есть у вас несколько десятков (или сотен) текстовых файлов с подобным содержимым:
    (количество файлов, и количество строк данных в каждом файле не ограничено)
    1c04;1J0-698-151-G;1 комплект тормозных накладок;1J0698151G;1J0698151G;5;1
    1c04;1H0698151A;Тормозные колодки;1H0698151A;1H0698151A;1;1
    1c04;1K0-698-151-B;Тормозные колодки;1K0698151B;1K0698151B;2;1
    А надо из всего этого…

  • Надстройка предназначена для облегчения импорта данных в Excel из текстовых файлов с разделителями (например, из CSV)

    Пока во вложении — обычный файл Excel с нужными макросами, надстройку выложу позже

    В надстройке применена функция получения ссылки на заданную пользователем ячейку.
    Основой для надстройки послужила функция загрузки CSV файла в двумерный массив

    Использовать функции…

  • Можно ли прикрепить (вложить) произвольные файлы в обычную книгу Excel?
    А потом извлечь эти файлы в заданную папку, и работать с ними?
    Казалось бы, Excel такого не позволяет. (а если и позволяет, то извлечь вложенные файлы без из запуска — весьма проблематично)
    Но, при помощи макросов, можно реализовать что угодно (и сохранение\извлечение файлов в том числе)

    Теперь прикрепить к книге Excel…

  • Программа предназначена для автоматизации формирования договоров комиссии и купли автотранспортного средства.
    В качестве исходных данных выступают:

    таблица Excel с реквизитами создаваемых документов
    папка с шаблонами договоров (в формате dot)

    В исходной таблице Excel занесены все необходимые исходные данные для заполнения бланков договоров, а также, при помощи пользовательских формул (UDF),…

  • Представляю вашему вниманию инструментарий для работы с файлами по FTP

    Как известно, отправить файл на FTP сервер (или загрузить файл с FTP, создать папку на FTP сервере, и т.д.) можно при помощи таких API-функций из библиотеки wininet.dll, как FtpPutFile, FtpGetFile, FtpRenameFile, FtpDeleteFile, FtpRemoveDirectory, FtpCreateDirectory, FtpFindFirstFile и т.д…

  • Анализ данных в Excel с примерами отчетов

    Анализ данных в Excel обеспечивается построением табличного процессора. Для решения этой задачи подходят многие ресурсы программы.

    Excel позиционирует себя как лучший в мире универсальный программный продукт для обработки аналитической информации. От малого предприятия до крупных корпораций менеджеры тратят значительную часть своего рабочего времени на анализ деятельности своего бизнеса. Рассмотрим основные аналитические инструменты в Excel и примеры их использования на практике.

    Взаимодействие с другими людьми

    Инструменты анализа Excel

    Одним из наиболее привлекательных способов анализа данных является «Анализ« что, если »». Он находится во вкладке «ДАННЫЕ».

    Инструменты анализа «Что, если»:

    1. «Менеджер сценария». Он используется для генерации, изменения и сохранения различных наборов входных данных и результатов расчетов для группы формул.
    2. «Поиск цели». Он используется, когда пользователю известен результат формулы, но входная информация для этого результата неизвестна.
    3. «Таблица данных». Используется в ситуациях, когда необходимо показать влияние значений переменных на формулы в виде таблицы.

    «Анализ данных». Это надстройка Excel. Помогает найти лучшее решение для конкретной задачи.

    Другие инструменты для анализа:

    Анализируйте данные в Excel с помощью встроенных функций (математических, финансовых, логических, статистических и др.).

    Взаимодействие с другими людьми

    Сводные таблицы в анализе данных

    Excel использует сводные таблицы для упрощения просмотра, обработки и консолидации данных.

    Программа будет рассматривать введенную информацию как таблицу, а не как простой набор информации. Но сначала вы должны отформатировать списки со значениями в соответствии со следующими шагами:

    1. Перейдите на вкладку «ВСТАВИТЬ» и нажмите кнопку «Таблица» CTRL + T.
    2. Открывается диалоговое окно «Создать таблицу».
    3. Укажите диапазон данных (если он уже существует) или ожидаемый диапазон (в какие ячейки будет помещена таблица).

    Установите флажок в поле «Таблица с заголовками».Нажмите Ввод.

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

    Вы можете составить отчет с помощью «сводной таблицы».

    1. Активировать любую из ячеек в диапазоне значений. Нажимаем кнопку «Сводная таблица» («ВСТАВИТЬ» — «Таблицы» — «Сводная таблица»).
    2. В диалоговом окне вы указываете диапазон и место, куда поместить сводный отчет (новый лист).
    3. Откроется «Поля сводной таблицы». В левой части листа находится изображение отчета; правая часть — инструменты для создания сводного отчета.
    4. Выберите необходимые поля из списка. Определите значения для имен строк и столбцов. Отчет будет построен в левой части листа.

    Создание сводной таблицы — это уже способ анализа информации. Более того, пользователь выбирает информацию, которая ему нужна в конкретный момент для отображения. Затем он может использовать другие инструменты.

    Анализ «Анализ возможных вариантов» в Excel: «Таблица данных»

    Это мощный инструмент для анализа информации.Рассмотрим организацию информации с помощью инструмента «Анализ« что, если »-« Таблица данных ».

    Важные условия:

    • данные должны быть в одном столбце или одной строке;
    • формула относится к одной входной ячейке.

    Порядок создания анализа:

    1. Вводим входные значения в столбец. Введите формулу в следующий столбец на одну строку выше.
    2. Выбираем диапазон значений, включающий столбец с входными значениями и формулу A3: B12.Переходим во вкладку «ДАННЫЕ». Откройте инструмент «Анализ возможных вариантов». Нажимаем кнопку «Таблица данных».
    3. В открывшемся диалоговом окне есть два поля. Поскольку мы создаем таблицу с одним входом, мы вводим адрес только в поле «Ячейка ввода столбца:». Если входные значения находятся в строках (а не в столбцах), мы введем номер ячейки в поле «Ячейка ввода строки:» и нажмем ОК.

    При использовании возможностей Excel для анализа деятельности предприятия мы используем информацию из баланса и отчета о прибылях и убытках.Каждый пользователь создает свою форму, в которой отражаются особенности компании и важная информация для принятия решений.

    .

    Макрос для открытия файла Excel на основе последней даты, найденной в имени файла

    Привет всем,

    Сал, я рад слышать, что вы используете код и смогли изменить его для работы на сайте Sharepoint . Пожалуйста, прочтите мою заметку об альтернативных подходах в конце этого поста.

    bprisk, я постараюсь ответить на ваш последний вопрос и несколько замечаний, высказанных ранее.

    Первый раздел работает правильно. Если у меня есть файл в папке с сегодняшней датой, он открывает его и закрывает подписку.Но если единственный файл в папке датирован 09SEP13, программа генерирует окно с ошибкой 1004, когда не может найти файл с датой 11SEP13. Почему не работает обработка ошибок?

    Это потому, что в VBA вы не можете обрабатывать ошибку, возникающую в обработчике ошибок. Когда выполнение вашего кода переходит к FindRecent :, VBA считает, что вы находитесь «в обработчике ошибок». Вам нужно будет выйти из обработчика ошибок (например, с помощью оператора Resume), прежде чем вы сможете установить другой обработчик ошибок.Вы можете возобновить «переадресацию» к другому номеру строки или метке, но я не считаю, что это необходимо для того, что вы хотите сделать.

    И, чтобы запутать воду, дата имени файла НЕ дополняется начальным нулем дня (4SEP13 против 04SEP13). Мне придется использовать строковую функцию, чтобы вытащить 6 или 7 символов из имени файла в зависимости от длины, а?

    Если в ваших сохраненных файлах нет начального нуля в начале дня, то это должно сработать ….

    Код:

      Формат (dtTestDate, «dMMMyy») & ».xls " 

    Что меня озадачило, так это то, что цикл While продолжает выполняться до тех пор, пока не найдет OLDEST-файл. Мне нужна подпрограмма для генерации ошибки (и возобновления в следующем), если он не может найти файл с сегодняшней датой, затем объявить дату в один прекрасный день и снова посмотреть и т. Д., Пока не найдет самый последний файл, а затем выйти из цикла (после открытие файла). Цикл While, написанный в приведенном выше примере кода, продолжает открывать файлы, пока не найдет самый старый файл. (К счастью, у меня есть только два файла, с которыми можно поэкспериментировать !!)

    Это меня озадачивает.Исходный код не должен открывать более одного файла, потому что после открытия первого (самого нового) файла он должен стать ActiveWorkbook, и цикл остановится, когда это выражение оценивается как False

    Код:

      Пока ActiveWorkbook.Name = sStartWB  

    Возможно, существует проблема синхронизации, при которой код продолжает выполнение, пока соединение SharePoint загружает файл, но я протестировал измененную версию ниже на медленном удаленном соединении, и он правильно ждал ответа от оператора Open раньше продолжающееся исполнение.

    Вот модифицированная версия, которую вы можете попробовать после изменения пути и имен файлов ….

    Код:

      Sub OpenLatest ()
    '--- Открывает лист по дате, выполняет поиск в обратном направлении от сегодняшнего дня, пока не найдет подходящую дату
    
        Dim dtTestDate как дата
        Dim sStartWB как строка
        
        Const sPath As String = "https://mycompany.sharepoint.com/My%20Test%20Reports/"
        Const dtEarliest = # 8/5/2013 # '- остановить цикл, если файл не найден до самой ранней допустимой даты
    
        dtTestDate = Дата
        sStartWB = ActiveWorkbook.имя
    
        '--добавьте это, чтобы подавить ошибку "Интернет-адрес ... недействителен"
        Application.DisplayAlerts = False
    
        Пока ActiveWorkbook.Name = sStartWB и dtTestDate> = dtEarliest
            При ошибке Возобновить Далее
            Debug.Print "Попытка открыть:" & _
                sPath & "File_Name_" & Format (dtTestDate, "dMMMyy") & ".xls"
            Workbooks.Open sPath & "File_Name_" & Format (dtTestDate, "dMMMyy") & ".xls"
            dtTestDate = dtTestDate - 1
            При ошибке GoTo 0
        Wend
        
        Заявка.DisplayAlerts = True
    
        Если ActiveWorkbook.Name = sStartWB, то MsgBox «Предыдущий файл не найден».
    Концевой переводник  

    Итак, все, что было сказано … Я не думаю, что это хороший подход для использования на сайте Sharepoint.

    Предыдущий код был ответом на вопрос Сала о том, как изменить код Джерри Бокера, чтобы заставить его вести обратный отсчет с сегодняшнего дня вместо фиксированной даты. Я немного подправил его, добавив dtEarliest, потому что подсчитывать все w

    было явно неэффективно.

    Как преобразовать числа в слова в Excel

    В этой статье я покажу вам два быстрых и бесплатных способа конвертировать числа валют в английские слова в Excel 2016, 2013 и других версиях.

    Microsoft Excel — отличная программа для вычисления того и этого. Первоначально он был разработан для обработки больших массивов данных. Однако он также позволяет быстро и эффективно создавать бухгалтерские записи, такие как счета-фактуры, оценки или балансы.

    В более-менее солидных платежных документах необходимо дублировать числовые значения с их словоформой.Напечатанные числа труднее подделать, чем написанные от руки. Какой-нибудь аферист может попытаться сделать из 3000 8000, а тайно заменить «тройку» на «восьмерку» практически невозможно.

    Итак, вам нужно не просто преобразовать числа в слова в Excel (например, 123,45 в «сто двадцать три, сорок пять»), но и записать доллары и центы (например, 29,95 доллара как «двадцать девять долларов»). и девяносто девять центов »), фунты и пенсы за фунты стерлингов, евро и евроценты за евро и т. д.

    Даже Excel 2016 не имеет встроенного инструмента для написания чисел, не говоря уже о более ранних версиях.Но тогда Excel действительно хорош. Вы всегда можете улучшить его функциональность, используя формулы во всех их комбинациях
    , макросы VBA или сторонние надстройки.

    Ниже вы найдете два способа преобразования чисел из цифр в слова

    И, возможно, вам может потребоваться преобразовать слова в числа в Excel

    Примечание. Если вы ищете преобразование числа в текст , что означает, что вы хотите, чтобы Excel видел ваш номер как текст, это немного другое.Обычно вам просто нужно изменить формат ячейки в Excel (выберите диапазон с числами, нажмите Ctrl + 1 на вкладке Number и выберите « Text » в поле Category ). Вы также можете использовать формулу = текст () .

    Подробности читайте в статье Способы преобразования чисел в текст в Excel.

    SpellNumber Макрос VBA для преобразования чисел в слова

    Как я уже упоминал, Microsoft не хотела добавлять инструмент для этой задачи.Однако, когда они увидели, скольким пользователям это нужно, они создали и опубликовали специальный макрос VBA на своем веб-сайте. Макрос делает то, что предлагает его название SpellNumber. Все остальные макросы, с которыми я столкнулся, основаны на коде Microsoft.

    Вы можете найти макрос, указанный как «формула числа заклинаний». Однако это не формула, а функция макроса, а точнее Excel Пользовательская функция (UDF).

    Параметр «Число заклинаний» позволяет писать доллары и центы. Если вам нужна другая валюта, вы можете поменять « долларов » и « центов » на название своей валюты.

    Если вы не разбираетесь в VBA, ниже вы найдете копию кода. Если вы все еще не хотите или у вас нет времени разбираться с этим, воспользуйтесь этим решением.

    1. Откройте книгу, в которой вам нужно написать числа.
    2. Нажмите Alt + F11, чтобы открыть окно редактора Visual Basic.
    3. Если у вас открыто несколько книг, проверьте, активна ли нужная книга, используя список проектов в верхнем левом углу редактора (один из элементов книги выделен синим).
    4. В меню редактора перейдите к Insert -> Module .
    5. Вы должны увидеть окно с именем YourBook — Module1. Выделите весь код во фрейме ниже и вставьте его в это окно.
       Опция Явная
      'Основная функция
      Функция SpellNumber (ByVal MyNumber)
          Тусклые доллары, центы, температура
          Dim DecimalPlace, Count
          ReDim Place (9) как строка
          Место (2) = "Тысяча"
          Место (3) = "Миллион"
          Место (4) = "Миллиард"
          Место (5) = "Триллион"
      
          MyNumber = Обрезать (Str (MyNumber))
          DecimalPlace = InStr (MyNumber, ".")
          Если DecimalPlace> 0, то
              Центы = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) & _
                        «00», 2))
              MyNumber = Trim (Left (MyNumber, DecimalPlace - 1))
          Конец, если
          Счетчик = 1
          Сделать пока MyNumber <> ""
              Temp = GetHundreds (Right (MyNumber, 3))
              Если Temp <> "" Then Dollars = Temp & Place (Count) & Dollars
              Если Len (MyNumber)> 3, то
                  MyNumber = Left (MyNumber, Len (MyNumber) - 3)
              Еще
                  MyNumber = ""
              Конец, если
              Счетчик = Счетчик + 1
          Петля
          Выберите Case Dollars
              Случай ""
                  Доллары = "Нет долларов"
              Кейс "Один"
                  Доллары = "Один доллар"
               Case Else
                  Доллары = Доллары и "Доллары"
          Конец Выбрать
          Выберите центы за дело
              Случай ""
                  Центы = "и без центов"
              Кейс "Один"
                  Центы = "и один цент"
                    Case Else
                  Центы = "и" & Центы & "Центы"
          Конец Выбрать
          SpellNumber = Доллары и центы
      Конечная функция
      
      Функция GetHundreds (ByVal MyNumber)
          Тусклый результат в виде строки
          Если Val (MyNumber) = 0, то выйти из функции
          MyNumber = Right («000» & MyNumber, 3)
          «Преобразуйте сотню в разряд.Если Mid (MyNumber, 1, 1) <> "0", то
              Результат = GetDigit (Mid (MyNumber, 1, 1)) & "Сотня"
          Конец, если
          'Преобразуйте десятки и единицы.
          Если Mid (MyNumber, 2, 1) <> "0", то
              Result = Result & GetTens (Mid (MyNumber, 2))
          Еще
              Результат = Результат & GetDigit (Mid (MyNumber, 3))
          Конец, если
          GetHundreds = Результат
      Конечная функция
      
      Функция GetTens (TensText)
          Тусклый результат в виде строки
          Result = "" 'Обнулить временное значение функции.If Val (Left (TensText, 1)) = 1 Then 'Если значение между 10-19 ...
              Выбрать регистр Val (TensText)
                  Случай 10: Результат = «Десять»
                  Случай 11: Результат = "Одиннадцать"
                  Случай 12: Результат = «Двенадцать»
                  Случай 13: Результат = «Тринадцать»
                  Случай 14: Результат = «Четырнадцать»
                  Случай 15: Результат = «Пятнадцать»
                  Случай 16: Результат = «Шестнадцать»
                  Случай 17: Результат = «Семнадцать»
                  Случай 18: Результат = «Восемнадцать»
                  Случай 19: Результат = «Девятнадцать»
                  Case Else
              Конец Выбрать
          Else 'Если значение от 20 до 99...
              Выбрать регистр Val (Left (TensText, 1))
                  Случай 2: Результат = «Двадцать»
                  Случай 3: Результат = "Тридцать"
                  Случай 4: Результат = «Сорок»
                  Случай 5: Результат = «Пятьдесят»
                  Случай 6: Результат = "Шестьдесят"
                  Случай 7: Результат = «Семьдесят»
                  Случай 8: Результат = «Восемьдесят»
                  Случай 9: Результат = "Девяносто"
                  Case Else
              Конец Выбрать
              Результат = Результат & GetDigit _
                  (Right (TensText, 1)) 'Получить одно место.Конец, если
          GetTens = Результат
      Конечная функция
      
      Функция GetDigit (цифра)
          Выберите регистр Val (цифра)
              Случай 1: GetDigit = "One"
              Случай 2: GetDigit = "Два"
              Случай 3: GetDigit = "Три"
              Случай 4: GetDigit = "Четыре"
              Случай 5: GetDigit = "Five"
              Случай 6: GetDigit = "Six"
              Случай 7: GetDigit = "Seven"
              Случай 8: GetDigit = "Eight"
              Случай 9: GetDigit = "Девять"
              Иначе: GetDigit = ""
          Конец Выбрать
      Конечная функция
       
    6. Нажмите Ctrl + S, чтобы сохранить обновленную книгу.

      Вам нужно будет повторно сохранить вашу книгу. При попытке сохранить книгу с помощью макроса вы получите сообщение « Следующие функции не могут быть сохранены в книге без макросов »

      Щелкните Нет. Когда вы увидите новое диалоговое окно, выберите опцию Сохранить как. В поле « Сохранить как тип » выберите вариант « Книга с поддержкой макросов Excel ».

    Используйте макрос SpellNumber на листах

    Теперь вы можете использовать функцию SpellNumber в своих документах Excel.Введите = SpellNumber (A2) в ячейку, где вам нужно получить число, написанное словами. Здесь A2 — адрес ячейки с числом или суммой.

    Вот результат:

    Вуаля!

    Быстро скопируйте функцию SpellNumber в другие ячейки.

    Если вам нужно преобразовать всю таблицу, а не только одну ячейку, поместите курсор мыши в нижний правый угол ячейки с формулой, пока он не превратится в маленький черный крестик:

    Щелкните левой кнопкой мыши и перетащите ее по столбцу, чтобы ввести формулу.Отпустите кнопку, чтобы увидеть результаты:

    Примечание. Имейте в виду, что если вы используете SpellNumber со ссылкой на другую ячейку, записанная сумма будет обновляться каждый раз при изменении числа в исходной ячейке.
    Вы также можете ввести число непосредственно в функцию, например, = SpellNumber (29.95) (29.95 — без кавычек и знака доллара).

    Недостатки использования макроса для написания чисел в Excel

    Прежде всего, вы должны знать VBA, чтобы изменять код в соответствии с вашими потребностями.Необходимо вставить код для каждой книги, в которой вы планируете его изменить. В противном случае вам нужно будет создать файл шаблона с макросами и настроить Excel для загрузки этого файла при каждом запуске.

    Главный недостаток использования макроса заключается в том, что если вы отправляете книгу кому-то другому, этот человек не увидит текст, если макрос не встроен в книгу. И даже если он встроен, они получат предупреждение о том, что в книге есть макросы.

    Бесплатная готовая к использованию надстройка для преобразования чисел в слова

    Для активных пользователей Excel, которым нужно быстро записывать суммы, но не хотят изучать VBA или другие обходные пути, один из разработчиков создал бесплатную надстройку — POPUP SPELL NUMBER для Microsoft Excel

    Этот инструмент не только готов к использованию, но и очень гибок в преобразовании чисел.Вы можете выбрать регистр текста результата (нижний регистр, регистр заголовка, регистр предложения, верхний регистр), также вы можете выбрать, как вы хотите видеть дробь:

    • Указывает дробь в центах / центах, или пенни / пенни, или пенни / пенс или сентаво / сентаво
    • Указывает десятичную точку, каждый ноль и оставшуюся часть числа как целое число.
    • Не записывает дробь, а записывает ее как дробь со знаминателем 100, 1000, 1000000

    Не стесняйтесь исследовать его возможности на домашней странице продукта.

    Автор заявляет, что он протестирован и работает в Excel для Windows 2000, 2002 (XP), 2003, 2007, 2010 (32-разрядная версия) и 2013 (32-разрядная версия) в установках MSI и Click-To-Run. Облачные сервисы Office 365.

    И все замечательно с НОМЕРОМ ЗАКЛИНАНИЯ POPUP, но …

    Мне неприятно говорить, что надстройка не работает с 64-разрядными версиями Excel 2010, 2013, 2007. И это серьезное препятствие, поскольку эти версии становятся все более популярными. Вам повезло, если у вас 32-разрядная версия Excel 🙂 Не стесняйтесь скачать надстройку и проверить ее.

    Если вы, как и я, пользуетесь 64-битной версией Excel, напишите автору и попросите у него специальную версию.

    Обратное преобразование — английские слова в числа

    Честно говоря, не представляю, зачем вам это может понадобиться. На всякий случай … 🙂

    Похоже, что MVP Excel, Джерри Лэтэм, создал такую ​​пользовательскую функцию Excel (UDF) как WordsToDigits . Он преобразует английские слова обратно в числа.

    Вы можете загрузить книгу Джерри WordsToDigits, чтобы увидеть код UDF.Здесь вы также найдете его примеры использования этой функции.

    Вы можете увидеть, как работает функция, на листе « Sample Entries », где вы также сможете ввести свои собственные примеры. Если вы планируете использовать WordsToDigits в своих документах, имейте в виду, что эта функция имеет ограничения. Например, он не распознает дроби, введенные в слова. Вы найдете все подробности на листе « Информация ».

    Вас также может заинтересовать

    .

    Добавить комментарий

    Ваш адрес email не будет опубликован. Обязательные поля помечены *

    2021 © Все права защищены. Карта сайта