Уникальные дубликаты

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 Продолжить чтение Уникальные дубликаты

Получить данные из Access в excel

‘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

нормальный лог файла LOG

‘————————————————————————————— ‘ 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

Копирование из закрытой книги (лист, диапазон)

_Слив ОСВ_v3.86 Шаблон 51 Универсальный Sub CopySh() Application.ShowWindowsInTaskbar = False Dim wbCopy As Workbook With Application.FileDialog(1) .Show If .SelectedItems.count <> 1 Then Exit Sub Set wbCopy = GetObject(.SelectedItems(1)) End With   With wbCopy ‘ .ActiveSheet.Copy before:=Workbooks(ThisWorkbook.Name).Sheets(1)\ ‘ .ActiveSheet.Copy before:=Workbooks(ThisWorkbook.Name).Sheets("Банки") ‘ Продолжить чтение Копирование из закрытой книги (лист, диапазон)

Как скопировать все листы из одной книги в другую

  Sub toOpenF()   filename = Application _ .GetOpenFilename("Text Files (*.xl*), *.xl*") If filename <> False Then MsgBox "Open " & fileToOpen End If   If Not IsEmpty(filename) Then Set wb = Workbooks.Open(filename, False, False) Else Exit Sub End If Продолжить чтение Как скопировать все листы из одной книги в другую

Получить расширение файла

Вариант 1 Function ФАЙЛРАСШИР(ПУТЬ As String) As String Dim temp As Variant If ПУТЬ = "" Then ФАЙЛРАСШИР = "": Exit Function temp = Split(ПУТЬ, ".") ФАЙЛРАСШИР = temp(UBound(temp)) End FunctionFunction ФАЙЛРАСШИР(ПУТЬ As String) As String Dim temp As Variant Продолжить чтение Получить расширение файла

Перенос баланса

Public RowC As Integer ‘ ‘Sub ПереносБаланса() ‘ Dim shdto As New Worksheet ‘ Dim shdfrom As New Worksheet ‘ Set shdto = Worksheets("Тест") ‘ Set shdfrom = Worksheets("Баланс") ‘ Dim RowC As Integer » Worksheets("Тест").Range("A:G").ClearContents » Selection.Delete Shift:=xlUp ‘ Продолжить чтение Перенос баланса