Архив рубрики: Без рубрики

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

_Слив ОСВ_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("Банки") ‘ Продолжить чтение Копирование из закрытой книги (лист, диапазон)→

test_comments in excel

  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   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!→

http://ivan-shamaev.ru/wp-content/uploads/2013/03/finansovaya_gramotnost_dlya_direktorov_magazinov.pdf

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

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