Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » mrzv
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Подключение к Базе данных Oracle из Excel с помощью VBA
 
#
31.08.2018 12:11:55
Здравствуйте, раньше не имел дела с подключением к БД. Прошу помочь.
На просторах нашего форума нашел вот такую строку подключения
Код
Set cn = CreateObject("ADODB.Connection")
       cn.Open "Provider=MSDAORA.1;Data Source=***;Password=***;User ID=***"
но как настроить под свой лад не пойму. На счет Data Source=***;Password=***;User ID=*** все понятно
А вот Provider какой нужно использовать?
Я установил драйвер с сайта oracl "Oracle in instantclient_18_3" имя его "SQORA32.DLL".  
 
Перейти    
Ускоренный аналог суммеслимн
 
#
23.04.2018 12:08:36
Друзья, здравствуйте нужна помощь. есть таблица на 400 000 строк. Эту таблицу нужно суммировать по двум критериям в таблицу с 128 000. Если выполнять суммирование через суммеслимн долго аналог который я написал на  vba еще дольше
Код
Sub svwsv()

LR = Range("a1").CurrentRegion.Rows.Count
Set ИМЯ = ThisWorkbook.Sheets("свод")
For i = 1 To LR 
Cells(i, 4) = WorksheetFunction.SumIfs(ИМЯ.Columns(3), ИМЯ.Columns(1), Cells(i, 1), ИМЯ.Columns(2), "*" & Cells(i, 3) & "*")
Next i

End Sub

Помогите ускорить

 
Перейти    
Путь к ячейке при написании макроса
 
#
06.12.2015 12:10:45
Всем здрасти, нужна подсказка.

Кратко опишу есть книга куда на ежедневной вставляются данные. Есть книга с макросами в которой данные оптимизируются. Так вот в этой книге есть некая ячейка M1 в которой есть изменяющийся адрес в зависимости от дня недели.
проблема в том что я не знаю как правильно указать макросу ссылку на ячейку.

Запара в этой строке. данное написание не правильное. Скажите как правильно ибо слабоват в VBA
Код
Range(Workbook("BIHOT.xlsm").Worksheets("Лист1").Range("M1")).Select

вот весь макрос
Код
Range("C3:AA13").Select
    Selection.Copy
    Windows(Range("AB1") & ".xlsm").Activate
    Sheets("Показатели").Select
    Range(Workbook("BIHOT.xlsm").Worksheets("Лист1").Range("M1")).Select
    ActiveSheet.Paste
 
Перейти    
Копирование ячеек с помощью VBA
 
#
28.08.2015 16:22:07
Нужно копировать большой объем данных не могу сам додуматься как упростить (ибо не программист):
   
Код
Sheets("Лист1").Select
Range("A2:D32").Select
Selection.Copy
Sheets("Лист2").Select
Range("A2").Select
ActiveSheet.Paste
       
 Sheets("Лист1").Select
 Range("E2:I32").Select
 Application.CutCopyMode = False
 Selection.Copy
 Sheets("Лист2").Select
 Range("A33").Select
 ActiveSheet.Paste
и так далее. То есть данные на Лист1 нужно копировать сдвигаясь при каждом следующем копировании на 4 столбца, а на Лист2 вставлять и сдвигаться на 31 строку. Последние данные которые надо перенести на Лист2 находятся на Лист1 IV2:IY32
Изменено: mrzv - 29.08.2015 09:17:35
 
Перейти    
Группировка данных с помощью VBA, Необходимо группировать большой объем данных более 100 000 строк
 
#
27.07.2015 11:08:04
Здравствуйте, можете подсказать есть ли возможность сократить формулу:
Sub Макрос1()
'
' Макрос1 Макрос
'

'
Rows("2:28").Select
Selection.Rows.Group
Rows("30:56").Select
Selection.Rows.Group
Rows("58:84").Select
Selection.Rows.Group
Rows("86:112").Select
Selection.Rows.Group и так далее до 100 000 строки
потому что если прописывать код подобным способом в итоге он получается слишком большой чтобы excel его воспроизвел.
Единственная мысль разбить его на несколько макросов, но как то это не очень(((
 
Перейти    
Страницы: 1
Наверх