VBA (Exel) и не только

Поиск столбцов в ОСВ через rgx

‘Public Sub SetTextIntoClipboard(ByVal txt As String) ‘ Dim MyDataObj As New DataObject ‘ MyDataObj.SetText txt ‘ MyDataObj.PutInClipboard ‘End Sub   Sub SetTextIntoClipboard(ByVal txt$) ‘ Запись в буфер With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText txt$ .PutInClipboard End With End Sub   Sub Extract_Unique() Dim Читать далее Работа с буфером→

    Sub ShowGetOpenDialod() Dim avFiles ‘по умолчанию к выбору доступны файлы Excel(xls,xlsx,xlsm,xlsb) avFiles = Application.GetOpenFilename _ ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файлы", , True) If VarType(avFiles) = vbBoolean Then ‘была нажата кнопка отмены — выход из процедуры Exit Sub Читать далее Открыть диалоговое окно→

CreateObject(«wscript.network»).UserDomain

Sub addTable() Dim wb As Excel.Workbook With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = «Выбрать файлы отчетов» ‘заголовок окна диалога .Filters.Clear ‘очищаем установленные ранее типы файлов .Filters.Add «Excel files», «*.xls*;*.xla*», 1 ‘устанавливаем возможность выбора только файлов Excel .FilterIndex = 2 ‘устанавливаем Читать далее Word надстройки З-н→

Sub RunTSP()   Set shdto = ActiveWorkbook.Worksheets(1) Set shdfrom = ActiveWorkbook.Worksheets(2)   For Each r In Range("KeyStrings")   Next r End Sub   Function MyFormatMLN(ByVal number As Double) As Variant MyFormatMLN = FormatNumber(number / 1000, 2) & " млн. руб." Читать далее Анализ отчетности v0.1→

Function GetQQQ(rn As Range) As Variant Dim arr(1, 1) As String arr(0, 0) = «Оборотно-сальдовая ведомость по счету » For i = 0 To UBound(arr, 2) If Not rn.Find(arr(0, i)) Is Nothing Then If i = 0 Then GetQQQ = Читать далее Поиск квартала→

Sub getTheSame() On Error GoTo errh: ‘Устанавливаем хендлер ошибок Set h = CreateObject("Scripting.dictionary") ‘Создаем хеш — множество пар "ключ" -> значение Dim rg As Range Count = 0 ReDim avArr(1 To Rows.Count, 1 To 2) ReDim tempArr(1 To 10) j Читать далее Уникальные дубликаты→

‘Option Explicit   Sub getDataFromAccess() ‘ Click on Tools, References and select ‘ the Microsoft ActiveX Data Objects 2.0 Library   Dim DBFullName As String Dim Connect As String, Source As String ‘Dim Connection As ADODB.Connection ‘Dim Recordset As ADODB.Recordset Читать далее Получить данные из Access в excel→

‘————————————————————————————— ‘ Module : ЭтаКнига ‘ DateTime : 12.08.2014 16:57 ‘ Author : The_Prist(Щербаков Дмитрий) ‘ WebMoney — R298726502453; Яндекс.Деньги — 41001332272872 ‘ http://www.excel-vba.ru ‘ Purpose : http://www.excel-vba.ru/chto-umeet-excel/vedenie-zhurnala-sdelannyx-v-knige-izmenenij/ ‘————————————————————————————— ‘Option Explicit Public sValue As String Private Sub Workbook_SheetChange(ByVal Sh As Читать далее нормальный лог файла LOG→