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

Страницы: 1
Динамический выпадающий список с данными полученными по REST API
 
Есть небольшой локальный API.
По GET запросу выдаёт json со списком файлов в папке.

Как его прикрутить к выпадающему списку?
После выбора из списка, данные должны сохраняться в документе, т.е. если нет доступа к API, при открытии документа мы видим данные которые были выбраны из списка.

Сейчас список формируется следующим образом: VBA скрипт, смотрит папку, ищет файлы по маске, заполняет список.

Я бы вообще хотел сделать заполнение ячеек данными из API.  
Изменить макросы VBA в большом количестве книг
 
По системе раскидано куча excell файлов с vbs скриптов внутри каждого.
Там простой скрипт: по нажатию на кнопку, берётся список файлов из определённой папки и запихивается в дроп-лист определённой клетки.
Проблема в том, что поменялся путь/адрес доя папки. Что бы скрипт работал, нужно открывать редактор в экселе и менять переменную

Есть ли возможность как-то автоматически пройтись по всем экселевским файлам, и при условии что внутри Y скрипт, внести в него изменения (в коде), ну или заменить его на другой (наверное как вариант удалить внутренний и импортировать BAS файл)

Как такое можно осуществить? На чём?
Знаю Python, но не могу подобрать нужной библиотеки для этого. Всё что нашел, не позволяет VBS редактировать
VBscript как узнать номер строки или номер столбца выбранной ячейки используя ACE.OLEDB и SQL запрос?
 
Использую VBscript  для чтения XLS файла на сервере без использования Excel используя библиотеку ACE.OLEDB
Как узнать номер строки или номер столбца выбранной ячейки?
Я правильно понимаю, ACE.OLEDB позволяет читать xls только через SQL запросы?
Подключение библиотеки через VBA
 
Не получается скриптом подключить библиотеку для работы с MySQL
Код
Dim s As String
s = "C:\Program Files\Common Files\System\ado\msado15.dll"
ThisWorkbook.VBProject.References.AddFromFile s
    Dim oConn As Object
    Set oConn = New ADODB.Connection
    
    
    oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
        "SERVER=localhost;" & _
        "DATABASE=pprint;" & _
        "UID=root;" & _
        "PASSWORD=;" & _
        "PORT:3306;" & _
        "charset=cp1251;" & _
        "Option=3;"
 'Ïîëó÷åíèå äàííûõ èç áàçû äàííûõ
        Dim cmd As ADODB.Command 
    Set cmd = New ADODB.Command
    
    Dim rec As ADODB.Recordset 
    Set rec = New ADODB.Recordset
    Set cmd.ActiveConnection = oConn 
    cmd.CommandText = "SELECT * FROM tools  WHERE IDCUT= '" & mstr & "'" 
    cmd.CommandType = adCmdText
    cmd.Execute
    rec.Open cmd

    With rec

        
    Distorsia = Replace(.Fields("HDist").Value, ",", ".")
    Zub = .Fields("zub").Value
        DPrint = Replace(.Fields("HPrint").Value, ",", ".")
    Polimer = Replace(.Fields("HPolimer").Value, ",", ".")

        'äëÿ ïîëèìåðà 1.7
        Polimer17 = Replace(.Fields("Hpolimer_17").Value, ",", ".")
        Distorsia17 = Replace(.Fields("Hdist_17").Value, ",", ".")
    Vsheet = Replace(.Fields("Vsheet").Value, ",", ".")

        HCountItem = .Fields("HCountItem").Value
    VCountItem = .Fields("VCountItem").Value

    End With

Пробую напрямую dll добавить.
Код
Dim s As String
s = "C:\Program Files\Common Files\System\ado\msado15.dll"
ThisWorkbook.VBProject.References.AddFromFile s
Где ошибка?
VBA данные из MySQL в переменные
 
Есть БД с таблицей

Подключаюсь по коду:
Код
' Собственно, попробовать подключиться к БД:
    Dim oConn As Object
    Set oConn = New ADODB.Connection
    
    oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
        "SERVER=localhost;" & _
        "DATABASE=pp_cut;" & _
        "UID=root;" & _
        "PASSWORD=;" & _
        "PORT:3306;" & _
        "charset=cp1251;" & _
        "Option=3;"
 'Получение данных из базы данных
    Dim cmd As ADODB.Command  'переменная в которой будет запрос
    Set cmd = New ADODB.Command
    
    Dim rec As ADODB.Recordset 'переменная в которой будет результат запроса
    Set rec = New ADODB.Recordset
    Dim test As String
    Set cmd.ActiveConnection = oConn 'указываем соединение
    cmd.CommandText = "SELECT HDist FROM tools  WHERE IDCUT= 'A1014'" 'собственно, запрос
    cmd.CommandType = adCmdText
        
    Set rec.ActiveConnection = oConn
    rec.Open cmd
    
    oConn.Close
Брал из примера

Собственно, вот в чём вопрос:
У меня порядка 8 столбцов в таблице. По запросу нужно найти строку в столбце IDCUT = некой переменной. Далее из результата (у нас же выходит одна строка) нужно столбцы в переменные записать.
Например переменная test = колонке 'HPrint', test1 = Vsheet

Как это сделать?
VBA скрипт для Excel - Как вставить значение из mdb файла Access по SQL запросу без названия столбца
 
Использую VBA скрипт в  Excel для вставки в ячейку таблицы Excel данных по SQL запросу из БД Access (файл mdb).
Вот сам скрипт. Он работает:
Код
Sub SQLQuery_1()
Dim varConn As String
Dim varSQL As String
  
    Range("A1").CurrentRegion.ClearContents
  
    varConn = "ODBC;DBQ=\\Server-esko\ae_base\BD_CutTools.mdb;Driver={Driver do Microsoft Access (*.mdb)}"
  
    varSQL = "SELECT HCountItem FROM cut_tools WHERE cut_name='A141'"
  
         With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Cells(1, 1))
             .CommandText = varSQL
             .Name = "Query-39008"
             .Refresh BackgroundQuery:=False
         End With
  
End Sub
Проблема в том, что в Excel вставляется помимо результата SQL запроса, еще и название столбца(ов) Access. Как сделать что бы не вставлялись названия столбцов?
VBA Экспорт в XML из таблицы значений без дублей сравнивая 2 столбца
 
Есть таблица:
Номер название файла угол поворота
Экспортирую её в XML.
Последовательно дважды формируется XML. Сначала все строки в определенном формате без угла поворота, только название файла, потом второй блок XML где нужно и название файла, и угол поворота. НО! во втором блоке нужны значения строк без дублей (если название файла и угол одной строки совпадает с другой, то объединить) .
Файл приложил.
Страницы: 1
Наверх