Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Запрос INSERT к базе Firebird
 
Исправил запрос. Новая ошибка
Код
Public Sub Insert()
'On Error Resume Next
Dim ADOconn As Variant
Set ADOconn = CreateObject("ADODB.Connection")
With Application
    .ScreenUpdating = False
    With ADOconn
        .ConnectionString = "ODBC;DSN=Shelter2;Driver=Firebird/InterBase(r) driver;Dbname=C:\Program Files\Shelter\ibdata\shelter.fdb;CHARSET=WIN1251;;UID=UCS;"
        .Mode = 3
        .Open
    End With
    With Workbooks(ActiveWorkbook.Name).ActiveSheet
        
        ADOconn.Execute ("INSERT INTO GUESTS(ID) VALUES(115)")
                     
    End With
    ADOconn.Close
    Set ADOconn = Nothing
    .ScreenUpdating = True
End With
End Sub
Запрос INSERT к базе Firebird
 
Если делаем запрос через IBexpert, то выходит запрет записи ID.
 
Запрос INSERT к базе Firebird
 
Хочу добавить строку в базу Firebird, на запросе выдает ошибку,
Код
Public Sub Insert()
'On Error Resume Next
Dim ADOcon As Variant
Set ADOconn = CreateObject("ADODB.Connection")
With Application
    .ScreenUpdating = False
    With ADOcon
        .ConnectionString = "ODBC;DSN=Shelter;Driver=Firebird/InterBase(r) driver;Dbname=C:\SHELTER.FDB;CHARSET=NONE;;UID=SYSDBA;"
        .Open
    End With
    With Workbooks(ActiveWorkbook.Name).ActiveSheet
       
        ADOconn.Execute ("INSERT INTO GUESTS(ID) VALUES('1157')")
                    
    End With
    ADOconn.Close
    Set ADOconn = Nothing
    .ScreenUpdating = True
End With
End Sub

Запрос на чтение "SELECT GUESTS.ID, GUESTS.NAME FROM GUESTS GUESTS" проходит без ошибок.
Кто знает правильный синтаксис запроса c INSERT?
Практические задания для изучения Excel, Ищу практические задания
 
Спасибо.
Но мне нужно человеку объяснить и показать на простых примерах.
Находил в интернете хороший сборник из практических заданий, сейчас не могу найти.  
Практические задания для изучения Excel, Ищу практические задания
 
Мне нужны задания в виде файлов Excel, где я могу практически отработать теорию.
Практические задания для изучения Excel, Ищу практические задания
 
Кто нибудь встречал в интернете простые практические задачи для изучения Excel: Форматирование ячеек, абсолютные и относительные ссылки, работа с функциями Сумм(), Макс(), Мин(), ссылки на другой лист?
Раньше встречал, сейчас не могу найти.  
Всплывающее окно рядом с активной ячейкой на VBA
 
Спасибо
Отмена команды сортировки через Ribbon XML editor
 
Нашел подходящие команды:

<commands>
     <command idMso="SortAscendingExcel" enabled="false"/>
<command idMso="SortDescendingExcel" enabled="false"/>
<command idMso="SortCustomExcel" enabled="false"/>
<command idMso="SortDialog" enabled="false"/>
     <command idMso="SortCustomExcel" enabled="false"/>
<command idMso="SortFilterMenu" enabled="false"/>
<command idMso="SortDialogClassic" enabled="false"/>
<command idMso="SortClear" enabled="false"/>
</commands>

Пока не могу найти команды отключения сортировки максимального и минимального значения, вызываемые из контекстного меню фильтра.
Всплывающее окно рядом с активной ячейкой на VBA
 
Скорее это был объект Надпись, вызываемый из меню ленты (Вставка-Текст-Надпись).
Я хочу узнать какие окна можно вызывать с помощью VBA и подобрать подходящее для моей задачи.
Всплывающее окно рядом с активной ячейкой на VBA
 
Как средствами VBA вызвать информационное окно?
Под информационным окном я подразумеваю объект отличающийся от MsgBox или UserForm, похожий на окно примечания без стрелки.
На старом форуме встречал код, сейчас не могу его найти.
Отмена команды сортировки через Ribbon XML editor
 
Если установить пароль на лист и флажок 'Сортировка' не устанавливать, тогда фильтр будет работать только на листе. На ленте фильтр будет заблокирован.
Отмена команды сортировки через Ribbon XML editor
 
Я с Вами полностью согласен. Наша компания и большая часть России находится в индустриальном периоде развития. Руководители используют административные методы управления и развиваться по пути кадрового менеджмента не хотят (сугубо личное мнение).

Для решения текущей задачи мне необходимо узнать имя контрола в формате XML, отвечающего за отключение сортировки в рабочей книги.
Отмена команды сортировки через Ribbon XML editor
 
На работе используем совместный доступ к книге Excel. Если один из пользователей книги применяет сортировку, то во время сохранения все данные в книге съезжают.

Как отключить команду сортировки, используя Ribbon XML Editor?
 
Маштаб таблицы под активное окно на VBA
 
Спасибо
Маштаб таблицы под активное окно на VBA
 
Как задать масштаб активного окна рабочего листа под размеры таблицы?
Справочник по элементам RibbonX
 
Формулировку подобрал общую, т.к. не все могут понять "Объектная модель".

Спасибо, будем изучать.
Справочник по элементам RibbonX
 
Ribbon XML Editor для редактирования, имеет хорошую подсветку, но изучить по нему объектную модель не представляется возможным.
Александр Витер описал очень малую часть работы с RibbonX, в частности добавление закладок кнопок, обратный вызов.
Меня интересуют наименования объектов RibbonX, чтобы можно было с ними работать.  
Справочник по элементам RibbonX
 
Где можно найти справочник по элементам RibbonX (наименование объектов, иконок, кнопочек, и.т.д.)?
Поиск в проводнике на VBA
 
Без вариантов?
Поиск в проводнике на VBA
 
У меня стоит WinXP, по умолчанию запускается  Find.
Поиск в проводнике на VBA
 
Все это реализовано, но для тех кто не хочет менять привычки хочу сделать поиск через проводник.
Поиск в проводнике на VBA
 
В нашей организации сотрудники привыкли искать отсканированные документы через проводник.
Ищем документ в реестре сформированном в Excel, сверяем с отсканированной копией.
Все документы сложенны по месяцам и для наглядности проще отсеять документы по типу. Для этого нужно научиться вызывать окно проводника с поиском и искать с определенными условиями.    
Поиск в проводнике на VBA
 
Библиотеку подключил, на строке shFolderView.FilterView "*.txt" выдает ошибку: "Object doesn´t support this property or method".
Поиск в проводнике на VBA
 
Мне нужно окно вызываемое вот этим кодом Set oFnd = CreateObject("Shell.Application").FindFiles
Поиск в проводнике на VBA
 
Да, необходимо вызвать окно проводника для поиска файлов
Поиск в проводнике на VBA
 
Когда работаю с аргументом find, выводится ошибка  "No association for file extension".  В остальных случаях находит  указанный файл (explore,  open,  edit, print), но с маской *.txt не работает.

Как правильно задать аргументы?
Поиск в проводнике на VBA
 
Нашел похожую процедуру.
Помогите расшифровать аргументы и добавить поиск файлов по маске *.txt
Код
Option Explicit
'API declaration for the windows "Search Results" dialog
Private Declare Function ShellSearch& Lib "shell32.dll" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long)
        
Private Const SW_SHOWNORMAL = 1


Sub ShowWindowsSearchDialog_API()
'   Specified drive to Search
    Const szSDrive As String = "C:\"
    
    ShellSearch 0, "find", szSDrive, "", "", SW_SHOWNORMAL
End Sub
Поиск в проводнике на VBA
 
Мне нужно вывести окно проводника с результатом поиска.

Если я использую CreateObject("Shell.Application").FindFiles, выводиться пустое окно, т.к. не заданы аргументы для поиска (Искомые файлы, папка поиска).
Поиск в проводнике на VBA
 
Как правильно вызвать окно проводника, чтобы вывести список файлов определенного расширения?
Например: Ищем все файлы с расширением txt на диске C:/

Попытался использовать следующий код, но выводит только окно поиска.
Не знаю как правильно подставить аргументы
Set oFnd = CreateObject("Shell.Application").FindFiles
Не работают фильтры Office 2003
 
Требования фильтра знакомы, все фильтры использую в непрерывных списках и без объединений.
В моем случае активные фильтры не подсвечиваются синим цветом и не срабатывают. Если отключаю фильтр, то на строке где он был ранее включен остается его изображение.
Страницы: 1 2 3 4 5 След.
Наверх