Ещё один сайт на WordPress
Sub CreateConnection() ‘Declare and instantiate the connection Dim cnn As ADODB.Connection Dim rs As New ADODB.Recordset Dim arr() As Variant Set cnn = New ADODB.Connection ‘Open the connection cnn.Open «Provider=Microsoft.ACE.OLEDB.12.0;» & _ «Data Source=C:\Documents and Settings\KonKram\Рабочий стол\SQLiteForExcel\ADO\BD-01.accdb;» & _ «Persist Продолжить чтение пример использования ADODB.Connection
Скачать: ОСВ V1.0 Скачано: 0, размер: 0, дата: 16.Янв.2017 .kcc_block{ position:relative; padding:15px 10px; margin-bottom:20px; cursor:pointer; transition:background-color 0.4s; } .kcc_block:before{ clear:both; } .kcc_block a{ border-bottom:0; } .kcc_block a.kcc-link{ text-decoration:none; display:block; font-size:150%; line-height:1.2; } .kcc_block img{ width:55px; height:auto; float:left; margin:0 25px 0 Продолжить чтение файл для тестирования 62 сч
Sub dsdsds() i = 1 For Each r In Range(«C1:C1050») If IsDate(r) = False Or IsEmpty(r) = True Then Range(i & «:» & i).Delete i = i + 1 Next End Sub Sub dddddd() For i = 1 To 1000 Продолжить чтение Обработка 51 счета (черновики)
Public Sub www() Dim r As Range With ActiveSheet Set r = Intersect(.UsedRange, .[A:A]).Offset(1) r.FormulaLocal = r.FormulaLocal End With End Sub
Option Compare Database Option Explicit ‘1. `ПУТЬ К ВИНДУ (API) ‘######################### Private Declare Function GetWindowsDirectory Lib «kernel32» Alias «GetWindowsDirectoryA» (ByVal p As String, ByVal p1 As Long) As Long Dim windir As String Private Sub Command1_Click() windir = Space(20) Text1.Text Продолжить чтение WinAPI 32 bit
Private Sub CommandButton1_Click() Dim TargetRow As Long Dim TargetColumn As Integer Dim FoundNomer As Range Dim FoundOkno As Range Dim FoundOknoRow As Long TargetRow = ActiveCell.Row ‘строка активной ячейки TargetColumn = ActiveCell.Column ‘столбец астивной ячейки With Sheets(«Свод») ‘надо перенести содержимое Продолжить чтение Некий поиск
Sub sdsdsd() ii = 0 s01 = 0 s02 = 0 For i = 47 To 100 If Range(«B» & i).Value = 1 And s01 = 0 Then s01 = Range(«G» & i).Value ii = i End If If Range(«B» Продолжить чтение Поиск субсчетов в общей ОСВ 01,02,68,69
Function Open_SQL() Dim ie As Object Set ie = CreateObject(«InternetExplorer.Application») ie.Visible = True ie.Navigate «http://www.sql.ru/» End Function
Private Sub SpecificationsNet() ‘http://www.sql.ru/forum/actualthread.aspx?tid=276571 Dim strComputer As String Dim objWMIService As Object, colBIOS As Object, objBIOS As Object strComputer = «.» Set objWMIService = GetObject(«winmgmts:\\» & strComputer & «\root\cimv2») Set colBIOS = objWMIService.ExecQuery(«SELECT * FROM Win32_NetworkAdapter») For Each objBIOS In Продолжить чтение MAC-adress:
Sub dddd() For Each r In Range(«h3:h4») With Range(«D1:D100») Set c = .Find(«*» & r.Value & «*», LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Range(«F» & c.Row) = r.Value Do ‘ c.Value = 5 Set c = Продолжить чтение Поиск текста в тексте