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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 66 След.
Вопрос по VBA в ворде.
 
Здравствуйте.
Так можно, если без форматирования.
Код
Sub SendMail0()

    Selection.WholeStory
    Selection.Copy

    Dim olapp As Object
    Dim olemail As Object
    Dim olInsp As Object
    Dim wddoc As Object

    On Error Resume Next
    Set olapp = GetObject(, "Outlook.Application")
    If Err <> 0 Then Set olapp = CreateObject("Outlook.Application")
    On Error GoTo 0
    Set olemail = olapp.CreateItem(0)
    With olemail
        .SentOnBehalfOfName = "travelconcierge.im@pg.com"
        .BodyFormat = 3
        .Body = 3
        .To = "кому"
        .Subject = "Запрос "
        .Display
        Set olInsp = .GetInspector
        Set wddoc = olInsp.wordeditor
        wddoc.Content.Paste
        wddoc.Application.Selection.InsertBefore "Подскажите, как добавить перед этим текстом в тело письма просто текст" & vbCrLf

    End With
End Sub
парсер vba для 2х сайтов, по одному табличному значению с 2-х сайтов спарсить
 
В работе
Выполнил, оплату получил
Изменено: doober - 20.01.2022 11:05:24
Outlook и перенос инфо в Excel
 
Цитата
Igorman написал:
filename = "C:\1.csv
Это ссылка на файл csv
Если такового нет, будет создан.
Для разбора темы сообщения используйте регулярные выражения для поиска
парсер vba для 2х сайтов, по одному табличному значению с 2-х сайтов спарсить
 
Адреса сайтов, бюджет?
подключение и запрос из VBA в MySQL
 
Разрядность офиса и разрядность драйвера одинаковые?
В  источниках данных (ODBC) посмотрите
Проблема с кодировкой при чтении txt файла через VBA в Excel
 
Если 2 разных макроса не работают, значит проблема не в них
У меня отработал без проблем
Изменено: doober - 18.01.2022 17:23:31
Проблема с кодировкой при чтении txt файла через VBA в Excel
 
А зачем эти танцы с бубном, если знаем кодировку
Код
Function Read_Text(Путь_К_Файлу As String) As String
    With CreateObject("ADODB.Stream")
    .Type = 2
    .Charset = "utf-8"
    .Open
    .LoadFromFile Путь_К_Файлу
    Read_Text = .ReadText
    .Close
   End With
End Function
Outlook и перенос инфо в Excel
 
Общий ящик не имеет ничего общего с отдельным экземпляром Outlook, к котором будет этот код
Outlook и перенос инфо в Excel
 
Коллеги по очереди работают с одним аутлуком?
Outlook и перенос инфо в Excel
 
Макрос надо писать в   Outlook, в модуле класса ThisOutlookSession и писать в файл csv
Код
' Код разместить в ThisOutlookSession

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim subj As String, filename As String
    filename = "C:\1.csv"
    If Item.Class = olMail Then
        subj = Item.Subject
        With CreateObject("Scripting.FileSystemObject")
            If .FileExists(filename) Then
                Set obj = .OpenTextFile(filename, 8)
            Else
                Set objf = .CreateTextFile(filename)
                Set objf = Nothing
                Set obj = .OpenTextFile(filename, 8)
            End If
            obj.Write subj & vbCrLf
            obj.Close
            Set obj = Nothing
        End With

    End If
End Sub
VBA Вставить копию диапазона в письмо
 
Шаг первый
Результат.Находим на  дружественном сайте
Работа на 75 евро, попробовал сам сделать, перестали работать некоторые разделы
 
Если в гугле, попробуем разобраться.Кнопок я там не увидел.Написал в личку
Работа на 75 евро, попробовал сам сделать, перестали работать некоторые разделы
 
Не претендую.
Пока Вы не избавитесь от этих ошибок, сомневаюсь что и за 1000 найдете исполнителя
Контроль счетов оплачены или нет с выводом остатка задолженности по контрагентам(возможно вывод актов сверки по контрагентам) - платно
 
Не могли на почту мне написать.
Написал на почту
Изменено: doober - 13.01.2022 19:48:28
VBA. Добавление массива в словарь.
 
Доброго.
Так нельзя получать данные
Цитата
arr_coord.Item(key)(i)
так надо.
a=arr_coord.Item(key)
x=a(0)
Можно так заполнять словарь.
Код
Public Function Arr_init(arr() As String) As Dictionary
    Dim count&
    Dim arr_tmp(), arr_coord As Dictionary
   set arr_coord = new Dictionary

    For i = 1 To UBound(arr())

        If Not arr_coord.Exists(arr(i)) Then  ' добавляю уникальное значение в словарь
            arr_coord.Item(arr(i)) = Array(i)
        Else
            arr_tmp = arr_coord.Item(arr(i))
            count = UBound(arr_tmp) + 1
            ReDim Preserve arr_tmp(count)
            arr_tmp(count) = i
            arr_coord.Item(arr(i)) = arr_tmp
        End If

    Next i

    Set Arr_init = arr_coord
End Function
Изменено: doober - 13.01.2022 10:50:38
Контроль счетов оплачены или нет с выводом остатка задолженности по контрагентам(возможно вывод актов сверки по контрагентам) - платно
 
В работе
Выполнил, оплату получил с приличной премией.
Спасибо Dymoons
Изменено: doober - 13.01.2022 10:55:09
Контроль счетов оплачены или нет с выводом остатка задолженности по контрагентам(возможно вывод актов сверки по контрагентам) - платно
 
Написал в личку
Выгрузка писем из Outlook или Яндекс почты в excel по шаблону
 
Пишу в личку
В работе.
Выполнил, оплату получил.
Изменено: doober - 11.01.2022 18:47:49
Получение книги ордеров с биржи по API
 
Это говорит о том, что есть публичный доступ без ключа и есть с ключом приватный
https://api.kucoin.com/api/v1/market/orderbook/level2_20?symbol=BTC-USDT    здесь ключа не надо
Получение книги ордеров с биржи по API
 
Цитата
написал:
выдает ошибку
Внимательно читайте доки.
Для api/v3/
API KEY PERMISSIONS
This endpoint requires the "General" permission.
Ошибка 3704 при выполнении запроса в VBA: Operation is not allowed when the object is closed, Закрывается RecordSet при попытке выгрузки данных из SQL
 
Попробуйте выполнить этот запрос в студии и замерьте время выполнения.
Предыдущие запросы с курсорами?
Сообщения в телеграмм из Google Sheet по триггерам
 
Цитата
Юрий М написал:
Кем?
Я
Создать функцию, которая позволит при нажатии на номер телефона отправлять POST запрос и активировать исходящий звонок
 
Написал в личку
В работе.
Выполнил, оплату получил
Изменено: doober - 18.12.2021 20:57:06
Вставка ссылки на сайт в ексель
 
Написал в личку
Выбор из выпадающего списка на html странице через vba
 
Анализируйте текст страницы, ищите какие функции повешены на событие onchange в селекте
Выбор из выпадающего списка на html странице через vba
 
Так все переключает
Код
Set SelectList = oIE.Document.getElementbyid("metrology_org_type")
SelectList.Value = "measurements"
SelectList.Value = "docs_expertise"
 '
Google Таблица нужно вытянуть количество уникальных кодов содержащихся в ячейках массива, В таблице список заказов, один заказ одна ячейка. В каждом заказе есть один/несколько товаров с уникальным кодом. Нужно вытянуть их количество
 
Цитата
написал:
Теперь открыла
Обалдеть, доступ без копирования, редактирования и создании копии на крайний случай.
И Вы ждете помощь. Формула в ячейке  B2
=ЕСЛИОШИБКА(QUERY($A$2:$A$67;"select count(A)  where A like '%"&B$1&"%' label count(A) ''";0);0)
Изменено: doober - 11.12.2021 23:22:42
Парсер OZON, Периодический сбор данных о ценах на товары
 
Здравствуйте.
Написал в личку
В работе

Выполнил, оплату получил
Изменено: doober - 14.12.2021 14:13:54
Найти точки пересечения наружные и внутренние , треугольника
 
Нежелание учить геометрию привело к текущему результату.
Я же в одной из  ваших тем пример с файлом расчета давал, надо было немного под текущую задачу подправить.
Мне понравился ответ.
Цитата
dxf написал:
все верно . спасибо огромное (геометрию скурил за школой)
PS:Этот макрос находится в файле excel
Изменено: doober - 01.12.2021 11:01:37
Найти точки пересечения наружные и внутренние , треугольника
 
Цитата
написал:
макрос в автокаде можно записать
Можно и в экселе, если знать что писать. Получите координаты, далее найдете им применение
Код
Sub GetCoordinates()
    Set appACAD = CreateObject("AutoCAD.Application")
    appACAD.Visible = True
    Set Doc = appACAD.activedocument
    Dim plineObj As Variant
    Dim points(0 To 7) As Double
    points(0) = 310: points(1) = 15:
    points(2) = 10: points(3) = 10:
    points(4) = 100: points(5) = 110:
    points(6) = 310: points(7) = 15:
    Set plineObj = Doc.ModelSpace.AddLightWeightPolyline(points)
    plineObj.Closed = True
    Dim offsetObj1 As Variant, offsetObj2 As Variant
    offsetObj1 = plineObj.Offset(10)
    offsetObj2 = plineObj.Offset(-10)
    Coordinates = plineObj.Coordinates
    Coordinates1 = offsetObj1(0).Coordinates
    Coordinates2 = offsetObj2(0).Coordinates
    Doc.Close (False)
    appACAD.Quit
    Set appACAD = Nothing
End Sub

Картинка чертежа и результат.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 66 След.
Наверх