Получить данные из 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 Читать далее Как скопировать все листы из одной книги в другую

It works!

‘Модуль 1   Option Explicit   Private Const PAGE_EXECUTE_READWRITE = &H40   Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Destination As Long, Source As Long, ByVal Length As Long)   Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Читать далее It works!

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

Вариант 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 ‘ Читать далее Перенос баланса

dsdsssd

Александр, немного о проекте. Есть ряд объектов недвижимости, по которым нужно периодически актуализировать информацию. Структура БД примерно такая: Основная таблица (tMain): С полями Код, Регион, Дата…. И есть дочерняя таблица (tMainHistory) с аналогичными полями, в который непосредственно будет храниться история Читать далее dsdsssd