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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 След.
VBA: обратиться к элементам объекта
 
Цитата
написал:
между именем обьекта и свойством ставите точку. все - вы обратились к свойству обьекта
если обращаетесь к методу обьекта, то еще после всего нужно указать обязательные параметры, которые нужны методу
если я правильно понял что если укажу

a = jsonObj.body.items.0.id
то значение a станет 3600000865А4 ?
у меня так не получается, видимо чтото не так делаю -  пишет Invalid or unqualified reference


а если к другому свойству обращаюсь
a = jsonObj.body.items1.id то пишет Object doesn't support this property or method
VBA: обратиться к элементам объекта
 
Добрый день
Прошу прощения за возможно глупый вопрос, но ничего не смог найти
Подскажите как можно обратиться к значениям типа jsonObj.body.items.0.id?
Изменено: jfd - 20.01.2023 13:22:26
VBA: определить адрес измененной ячейки
 
Jack Famous, спасибо за наводку )
вопрос решен
VBA: определить адрес измененной ячейки
 
Добрый день

Подскажите может есть метод определения адреса измененной ячейки, в том случае когда мы отслеживаем изменения в диапазоне ячеек для запуска макроса?

Можно через оффсет от активной ячейки, но кажется это коряво и не всегда будет работать.

Например в таком макросе.

Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J:J")) Is Nothing Then
Call Mymacro
End If
End Sub



vba: дождаться завершения выполнения Shell
 
БМВ, у меня затык вышел с тем что переменные были в кавычках и читались как текст, в вашем последнем примере такая же история
Код
WshShell.Run("cmd /c copy " & updFilePath & updFileArr(i) & ", " & fnSyn, 1, True)
vba: дождаться завершения выполнения Shell
 
БМВ,ваш совет помог. файл копируется, выдает статус 0.

Спасибо
vba: дождаться завершения выполнения Shell
 
БМВ,вы знаете был косяк, с "/с", только сейчас понял что раскладка была русская,
поставил "/с" на место, возвращает статус 1, но все равно не копирует.
такие заморочки возникли потому что на машина, которая копирует файл с сетевого ресурса, не в домене, первоначально использованный Shell вроде как помог решить эту проблему
vba: дождаться завершения выполнения Shell
 
не получилось скопировать файл
Код
Set WshShell = CreateObject("WScript.Shell")
    StatusPrc = WshShell.Run("cmd copy updFilePath & updFileArr(i), fnSyn", 1, True)
CMD запускается, но висит окно пока его не закроешь в ручную, после закрытия отдает статус -1073741510

Что я делаю не так?
vba: дождаться завершения выполнения Shell
 
Всем спасибо за ответы
vba: дождаться завершения выполнения Shell
 
Добрый день,
подскажите, можно ли как-то дождаться завершения процесса копирования файла, а потом продолжить выполнение скрипта. Через паузу по времени к сожалению не гарантированно.Копирование реализовано так

Код
Shell "cmd /c copy """ & updFilePath & updFileArr(i) & """, """ & fnSyn & """"
    Application.Wait Now + TimeSerial(0, 0, 10)


Заранее благодарен
переменная в параметре SQL запроса
 
Jungl, не, так сразу пробовал - не работает
переменная в параметре SQL запроса
 
БМВ, предполагал что
pRSet.Find "id=" & rrrr & Chr(34), 0, adSearchForward      
pRSet("log_time") = Now
можно назвать запросом
не сделал по вашему варианту, изза слабого знания SQL, если так можно то попробую завтра,  это проще.
спасибо
переменная в параметре SQL запроса
 
Добрый вечер, подскажите пожалуйста что не так
Вкратце что делаю: если в БД есть запись с значением поля sn = 111111, то меняю значение другого поля
делаю так

Код
pRSet.Open "Select `id` from dog_tb WHERE `sn`=" & obArr(i_db, 3), pConn, adOpenStatic, adLockOptimistic
rrrr = pRSet.Fields.Item(0).Value
    If pRSet.EOF = False Then
        'изменение поля записи
        pRSet.Close
        pRSet.Open "Select * from dog_tb", pConn, adOpenStatic, adLockOptimistic
        pRSet.MoveFirst
        pRSet.Find "id=" & rrrr & Chr(34), 0, adSearchForward
        pRSet("log_time") = Now
        pRSet.Update
    End If

pRSet.Find "id=" & rrrr & Chr(34), 0, adSearchForward - не работает

если для проверки pRSet.Find "id=1" , 0, adSearchForward - т.е. подставить руками значение переменной, то работает
Что не правильно делаю?

Заранее спасибо
Изменено: jfd - 25.04.2018 20:16:54
Скрипт печати. Автоматическая печать, Печать файлов
 
Цитата
Карина написал:
Можно только один вопрос ))))
Эта задача вообще решаема?
Ну хоть что-нибудь ответьте))))
Просмотров уже 30...
В принципе решаема, но наверное не интересна, для тех кто может ее решить. Тем более что вы попросили не  помочь вам решить задачу, а сделать все за вас.
Попробуйте фильтровать файлы по маске и помещать в папку файлы в нужном порядке. Возможно это будет выходом в вашей ситуации.
VBA: работа с COM-портом из Excel 64-bit, NETComm.ocx аналог MSComm32.ocx
 
Доброго всем времени суток,
хотел бы снова полохматить тему COM-порта и 64-битного  экселя.
Встроенная библиотека mscomm32.ocx в 64 не работает, как все знают.
Есть некий ее аналог NETComm.ocx (http://www.hardandsoftware.net/NETCommOCX.htm) для 64битных систем.
Может кто с ней сталкивался и работал?
Творительный падеж для ФИО
 
есть для перевода в родительный
Макрос для замены текста в ячейке по неполному совпадению
 
а вариант что в карточку внесли веноград, йаблока и т.п. не рассматриваете?
т.е. найти по неполному соответствию  и заменить не сложно, но вот всегда ли это будет корректно
Изменено: jfd - 21.07.2016 15:47:03
Excel 2002 (XP) обновляется результат формулы только после сохранения
 
может автоматический пересчет отключен?
VBA - макрос для маркирования каждых n ячеек одинаковыми данными
 
Думаю что можно так,
не очень красиво но работает
Код
Sub blabla()

LROW = Cells(Rows.Count, 2).End(xlUp).Row
grN = 1
fStr = 1

For i = 1 To LROW Step 15
    For Z = 1 To 15
        If Cells(fStr + Z + nSw, 2) <> "" Then Cells(fStr + Z + nSw, 3) = grN + iCount
    Next Z
    iCount = iCount + 1
    nSw = nSw + 15
Next i

End Sub
VBA: like not - есть ли чтото подобное?
 
Андрей VG, наконец дошло
надо было использовать
AND NOT что-то LIKE блаблабла
а я пытался AND что-то NOT  LIKE блаблабла

всем спасибо
VBA: like not - есть ли чтото подобное?
 
Все же вынужден попросить разжевать про not like. С внутренним отрицанием разобрался, вроде, не не подходит
Есть такая конструкция    
Код
 If fil.Name Like "*" & "doc" And fil.Name Like "Заявка*" & ".doc"And fil.ParentFolder.Name Like "*ОТКАЗ" Then 
То есть требуется если fil.Name = вордовский файл, при этом не содержит слово Заявка и не находится в папке со словом ОТКАЗ сделать чтото, и вот там просится Like Not, а Not Like не работает
VBA: like not - есть ли чтото подобное?
 
Добрый день
не хватает конструкции Like Not "балблабла"
как уважаемые профи выходят из такой ситуации?
Спасибо заранее
Макрос шаблона Word
 
вот тут точно не пинают за вопросы про ворд. инфа 100%
Автоматический перенос данных из Excel в форму Word
 
если я не ошибаюсь, есть стандартный функционал для такого рода действий - называется слияние
Экспорт данных (фото) из Excel в Word
 
ts-79,дада, я чтобы долго не думать так удалил тег <foto> :)
Экспорт данных (фото) из Excel в Word
 
благодаря специалисту по VBA в word родилось такое дополнение в коде.
ПС. не совсем понятно какая разница в том  как была вставлена фоо в документ эксель

Код
Dim WA As Object, WD As Object
Dim iFileName As String
Dim wb As Workbook
Set wb = ThisWorkbook
iFileName = Range("A3")
 
Set WA = CreateObject("Word.Application")
Set WD = WA.Documents.Open(wb.Path & "\ÑÏÐÀÂÊÀ_1.docx")
 
WD.Range.Find.Execute FindText:="<FIO>", ReplaceWith:=Cells(3, 1), Replace:=2
WD.Range.Find.Execute FindText:="<klass>", ReplaceWith:=Cells(4, 1), Replace:=2
WD.Range.Find.Execute FindText:="<dolzhnost>", ReplaceWith:=Cells(5, 1), Replace:=2
WD.Range.Find.Execute FindText:="<gr>", ReplaceWith:=Cells(6, 1), Replace:=2
WD.Range.Find.Execute FindText:="<mr>", ReplaceWith:=Cells(7, 1), Replace:=2
WD.Range.Find.Execute FindText:="<naz>", ReplaceWith:=Cells(8, 1), Replace:=2
WD.Range.Find.Execute FindText:="<obr>", ReplaceWith:=Cells(9, 1), Replace:=2
WD.Range.Find.Execute FindText:="<step>", ReplaceWith:=Cells(10, 1), Replace:=2
WD.Range.Find.Execute FindText:="<foto>", ReplaceWith:=Cells(11, 1), Replace:=2 ' <---------- 
wb.ActiveSheet.Shapes.Item(2).Copy   ' <----------          
WD.Tables(1).Cell(1, 1).Range.PasteAndFormat wdPasteDefault ' <----------
WA.ActiveDocument.Activate
WA.Visible = True
WA.ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\" & iFileName & " - " & Date & ".docx"
Set WA = Nothing

End Sub
Раскладываем цифры и считаем, нужен макрос решающий данную проблему
 
я ничего не понял. вы хотите какойто аналог группировок, но как это должно выглядеть для меня загадка.
делайте более доступные для понимания примеры. 1 столбец, на одном листе исходный вид, на другом желаемый
Раскладываем цифры и считаем, нужен макрос решающий данную проблему
 
макрос разлаживает цифры из активной ячейки
если моя правильно панимать
Код
Sub разлаживаемЦифры()

strC = ActiveCell.Value
nSt = Left(strC, InStr(strC, "-") - 1)
nEn = Mid(strC, InStr(strC, "-") + 1)
ActiveCell.offset(1, 0).Activate
Do While nSt < CDbl(nEn)
    ActiveCell = CDbl(nSt) + 1
    ActiveCell.offset(1, 0).Activate
    nSt = nSt + 1
Loop
End Sub
Автоматическая рассылка с вложением листа Excel
 
если имеется ввиду указать не свой адрес емыла, то похоже никак
Изменено: jfd - 31.03.2016 15:55:24
VBA: номер последней строки диапазона
 
CAHO,спасибо
Страницы: 1 2 3 4 5 6 7 8 9 10 11 След.
Наверх