Форум 'Visual Basic' на RSDN

[VBS] выполнение кода из переменной

Fri, 23 May 2025 15:38:24 GMT

Здравствуйте!В скрипте есть переменная, которая содержит VBS-скрипт. Подскажите, пожалуйста, как можно выполнить код из этой переменной не записывая в отдельный файл.

получить значение ячейки xlsx-файла

Sun, 09 Mar 2025 13:48:45 GMT

Hi all,
VBA почти не знаю, но вот
понадобилось написать пользовательскую функцию, которая принимает имя xls-файла и считывает значения определенных ячеек в нем.
Сам алгоритм я написал на примере открытого файла, теперь встает вопрос, как его изменить, чтобы ячейки считывались не из текущего файла, а из любого другого на HDD.
Научите плиз, как обращаться к ячейкам внешнего файла

Замена контента Bookmark в документе Word.

Fri, 12 Jul 2024 12:47:40 GMT

Здравствуйте коллеги,

задача состоит в замене подписи в сообщении Outlook.

Имеется такой код из https://stackoverflow.com/questions/51752921/outlook-vba-set-signature-to-new-email-so-the-signature-can-be-changed-via :

wdStory = 6
wdMove = 0

Set objBkm = Nothing
Set objDoc = Inspector.WordEditor

Set objSel = objDoc.Application.Selection

'remember the cursor position
set cursorRange = objDoc.Range
cursorRange.Start = objSel.Start
cursorRange.End = objSel.End

If objDoc.Bookmarks.Exists("_MailAutoSig") Then
   'replace old signature
   Debug.Print "old signature found"
   set objBkm = objDoc.Bookmarks("_MailAutoSig")
   objBkm.Select
   objDoc.Windows(1).Selection.Delete
ElseIf objDoc.Bookmarks.Exists("_MailOriginal") Then
  ' is there the original email? (_MailOriginal)
  set objBkm = objDoc.Bookmarks("_MailOriginal")
  objSel.Start = objBkm.Start-2 'give room for the line break before. It includes the line
  objSel.End = objBkm.Start-2
Else
  'insert at the end of the email
  objSel.EndOf wdStory, wdMove
End If

'start bookmark
set bkmStart = objDoc.Bookmarks.Add("_tempStart", objSel.Range)

'end bookmark
set bkmEnd = objDoc.Bookmarks.Add("_tempEnd", objSel.Range)
bkmEnd.End = bkmEnd.End + 1
bkmEnd.Start = bkmEnd.Start + 1
objSel.Text = " "

set objBkm = objDoc.Bookmarks.Add("_MailAutoSig", bkmStart.Range)

objBkm.Range.insertFile "c:\Users\<user>\AppData\Roaming\Microsoft\Signatures\test.htm", , false, false, false
objBkm.Range.InsertParagraphBefore
objBkm.End = bkmEnd.Start - 1 'since we added 1 above for bkmEnd

objSel.Start = cursorRange.Start
objSel.End = cursorRange.End

bkmStart.Delete
bkmEnd.Delete

Но работает нестабильно. Не предложите ли что-нибудь более надежное? Можно на C#.

Спасибо заранее.

Функция листа ГОД(): как вызвать из кода или использовать в формуле массива?

Sun, 20 Aug 2023 10:00:03 GMT

Добрый день,
не подскажет ли кто, как решить следующую проблему:
на листе Excel есть колонка дат (A1:A100). Надо подсчитать количество ячеек с заданным годом, например, 2025.
Можно создать рядом дополнительную колонку — "год" с помощью функции ГОД(), а под ней функцией CЧЁТЕСЛИ(B1:B100, 2025) получить результат.
Этот вариант не подходит, так как не хочется заводить дополнительную колонку. Поэтому пытаюсь сделать двумя способами.
Способ 1. С помощью своей функции, которую использовать в ячейке как =CountYear(A1:A100, 2025) :

Function CountYear(range_data As Range, year As Long) As Long
Dim datax As Range
Dim result As Long
CountYear = 0   
For Each datax In range_data
result = Application.WorksheetFunction.year(datax)     ' тут проблема!!!
     If result = year Then
       CountYear = CountYear + 1
     End If
Next datax
End Function

Проблема в отмеченной строке: я хочу использовать функцию листа ГОД(), но, во-первых, не понимаю, как эту функцию из "русского" Excel записать правильно (по-английски?), а во-вторых, при наборе "WorksheetFunction." среди подсказок к этому объекту методов ГОД() или year() вообще нет. В итоге на этой строке отладчик останавливается, и всё.
Что делать?

Способ 2. С помощью массивов.
В ячейку ввожу формулу =СЧЁТЕСЛИ(ГОД(A1:A100);2025) и нажимаю CTRL-SHIFT-Enter. Выдаёт ошибку в формуле, и не понимаю, что надо исправить.

Буду благодарен за любой совет.

Свой элемент управления в VBA MS Access

Fri, 11 Nov 2022 10:58:41 GMT

Я не специалист в MS Access и VBA и что-то самомоу разобраться не совсем получается:
Итак, есть одно приложнеие MS Access, которое использует UserControl (ocx) созданный в VB6.
Исходники элемента управления тоже есть — работа с Clipboard, рисование кой-чего на UserControl, на первый вгляд ничего сложного.
Вот кстати код, который был взят за основу некоторой части этого элемента
Нужно портировать приложение на Access 64bit, поэтому было принято решение код из библиотеки перенять в VBA-Code прокта ну и снабдить вызовы windows функций соостетствующими директивами (#if Win64 then).

Вопрос 1:
Что взять за основу userControl? подформуляр? имено так я пытаюсь сейчас сделать, но мучают сомнения, да и как то туго продвигаюсь.
Или может быть можно как-то взять за основу, скажем VBA-элемент Image и инкапсулировать свою логику в нем, а потом использовать элемент в нескольких формах приложения.
Нужно будет еще реализовать Darg & Drop для него (все есть в ocx-коде, но еще не дошел)

Вопрос 2:
Нет студии VB6, где бы я мог проверить — а в коде ocx есть выховы "Clipboard.SetData Picture", где Picture as IPictureDisp.
Похоже что в ocx у UserControl имеется своя реализация Clipboard, которой нет в VBA.
Я Clipboard подменил DataObject (из Windows Forms 2.0 Object Library), но он умеет только строки, а не такие графические структуры. Что использовать здесь?

Буде рад вашим советам и наводкам.

Почему VBA Excel-я при переводе формулы с английского на немецткий изменяет её

Tue, 16 Feb 2021 08:10:02 GMT

Здравствуйте!

У меня есть вопрос:
Почему VBA Excel-я при переводе формулы VLOOKUP с английского на немецткий изменяет B:C на BEZUG! её?
Начальная формула:
Selection.FormulaLocal = GetLocalizedFormula("= SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(VLOOKUP($H2;translation_en_GB!B:C;2;""FALSE"");""%1"";$I2);""%2"";$J2);""%3"";$K2);""%4"";$L2)")

Функция перевода:
Function GetLocalizedFormula(formula As String)
' returns the English formula from the parameter in the local format
Dim temporary As String
temporary = Range("D1").formula
Range("D*").formula = formula
Dim result As String
result = Range("D*").FormulaLocal
Range("D*").formula = temporary
GetLocalizedFormula = result
End Function

После перевода:
= WECHSELN(WECHSELN(WECHSELN(WECHSELN(SVERWEIS($H2;translation_en_GB!#BEZUG!;2;"FALSCH");"%1";$I2);"%2";$J2);"%3";$K2);"%4";$L2)

Если я меняю вручную #BEZUG! на B:C, то работает так как надо.

Как это исправить?

65 лет Биллу Гейтсу

Thu, 29 Oct 2020 21:12:12 GMT

Было два дня назад. Планируете ли вы отпраздновать столетие со дня его рождения?

30.10.20 13:42: Перенесено из 'Visual Basic'

LIB с кодом в Visual Basic 6

Wed, 02 Oct 2019 05:33:44 GMT

подскажиет пожалуйста как скомпилировать LIB файл исполняемого кода в Visual Basic 6

VBS и WbemScripting&Win32_FontInfoAction

Fri, 28 Jun 2019 11:43:55 GMT

День добрый!
Никто не сталкивался с использованием на VBS объекта WbemScripting.SWbemLocator для получения списка шрифтов ?
Есть код:

Option Explicit


' ------------------------------------------------------------------------------
' ------------------------------------------------------------------------------
Dim  objLocator, objServices, objItems, objItem


Set  objLocator  = WScript.CreateObject("WbemScripting.SWbemLocator")
Set  objServices = objLocator.ConnectServer()
Set  objItems    = objServices.ExecQuery("Select * from Win32_FontInfoAction")


WScript.Echo("Размер коллекции: " & objItems.Count)

На строке

WScript.Echo("Размер коллекции: " & objItems.Count)

зависает примерно на полторы минуты (но результат выводит).

С чем это может быть связано ?
Или может кто подскажет другой способ проверки наличия шрифта по заданному имени (с помощью COM-объектов)...

Excel VBA: зависимые ячейки

Tue, 30 Apr 2019 08:45:55 GMT

Привет всем. Хочется немного не стандартного.
Хочу упростить отображение зависимых ячеек. Т.е. ткнул на ячейку, нажал на кнопку и посмотрел, что к ячейке привязано. Стандартных средств недостаточно, потому что интересуют в основном связи с другими листами.

Получить список ячеек не проблема, даже поделюсь здесь — может кто подскажет как это дело ускорить.

Кусочек кода

Private Const OneSec = 1 / (24# * 60# * 60#)
Private Const mArrayStep = 1000

Private Function intCellAddress(R As Range) As String
    intCellAddress = R.Parent.Name & "!" & R.Address
End Function

Private Sub EnableScrollbars(Enable As Boolean)
    With ActiveWindow
        .DisplayHorizontalScrollBar = Enable
        .DisplayVerticalScrollBar = Enable
    End With
End Sub

Private Function GetDependentCells(myCell As Range) As Variant
    GetDependentCells = ""
    myCell.Parent.ClearArrows
    myCell.ShowDependents
    CellAddress = intCellAddress(myCell)
    
    EnableScrollbars False
    
    Dim ArraySize As Long, target As Range
    ArraySize = mArrayStep
    ReDim a(1 To ArraySize) As String
    
    i = 1
    k = 1
    tTime = Now()
    On Error GoTo l_exit
    Do
        myCell.NavigateArrow False, i
        Set target = myCell.NavigateArrow(False, 1, i)
        s = intCellAddress(target)
        i = i + 1
        If s <> 1 Then
            a(k) = s
            k = k + 1
            If k >= ArraySize Then
                ArraySize = ArraySize + mArrayStep
                ReDim Preserve a(1 To ArraySize)
            End If
        End If
        If (Now() - tTime) > OneSec Then
            Application.StatusBar = "Checking varaible '" & mVariable & "' usage: " & i
            DoEvents
            tTime = Now()
        End If
    Loop While True
l_exit:
    EnableScrollbars True
    myCell.Parent.ClearArrows
    
    ReDim Preserve a(1 To i - 1)
    GetDependentCells = a
End Function

Хочется связать регионы с одинаковыми формулами, чтобы не флудить длинными списками с одинаковой формулой.
В качестве простого примера:
Ячейка A1 содержит формулу = MyCell * B1
Ячейка A2 содержит формулу = MyCell * B2
Ячейка A3 содержит формулу = MyCell * B3
Я хочу распознать такую последовательность и объединить ячейки в A1:A3 и присвоить им только первую формулу самой верхней или самой правой ячейки. В данном случае = MyCell * B1

На stackoverflow нашёл примерный подход, как можно сравнить формулы:

SameFormula = rng1.FormulaR1C1 = rng2.FormulaR1C1

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

Перевод кода из VBA в C++

Wed, 05 Sep 2018 11:35:49 GMT

Сейчас пишу приложение для работы с Word. Встроил в свое приложение окно Word и использую функции для отображения различных данных в Word через COM-интерфейсы.
Многое получилось, но есть некоторые моменты связанные с переводом с VBA-макросов, используя COM функции.
Для примера код VBA:

myRange.TextRetrievalMode.IncludeHiddenText = True

Есть в C++ в Range аналогичная фунция:

void Range::SetTextRetrievalMode(LPDISPATCH newValue)

Как правильно передать

IncludeHiddenText = True

Как проверить что массив инициализирован?

Wed, 01 Nov 2017 13:33:42 GMT

есть, допустим

Dim a() As String

как условие написать, чтоб не заходить в блок, если я его так и не инициализирую?

Вопрос про отладку

Fri, 14 Jul 2017 11:30:09 GMT

Есть программа (без исходников), которая открывает в ворд шаблон и формирует там отчет (через линкед фиелдс).
В шаблоне есть макрос (который предназначен для того, чтобы каждую страницу выкидывать (и сохранять) на экран в отдельном документе)
Хочу чтоб при открытии документа в методе app_MailMergeAfterMerge уже стояла точка останова. Что то там идет не так (глючит), а что не могу понять интуитивно (плохо знаю вба)
Это возможно?

Отдам в хорошие руки

Tue, 21 Feb 2017 14:04:11 GMT

Коллеги! Интересует ли кого-либо небольшая библиотека книг по Microsoft Visual Basic (4/5/6 версии)?
Отдам бесплатно самовывозом из Москвы, метро "Перово". Если кто-то проявит интерес, могу составить каталог книг и разместить его здесь. Мне более за ненадобностью, а нести на помойку жалко, в своё время были крутые, дорогие книжки.

vbscript: как скрыть окно процесса, зная его ProcessID ?

Sun, 06 Dec 2015 21:23:48 GMT

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

Dim WshShell, oExec, cmd
' Some command string - does not matter
cmd = "find " + CHR(34) + "qwerty" + CHR(34) + " c:\windows\system32\x*.*"
 
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(cmd)
 
Do While oExec.Status = 0
     WScript.Sleep 100
Loop
 
WScript.Echo oExec.ExitCode
WSCript.echo oExec.StdOut.ReadAll
WSCript.echo oExec.StdErr.ReadAll

Проблема в том, что при этом открывается консольное окно, которое мне совершенно не нужно.
Легко получить oExec.ProcessID, но как средствами VBS найти соответствующее окно и скрыть его?

Заранее благодарен за помощь.

Вызов скрипта книги из события

Fri, 18 Sep 2015 11:27:56 GMT

Абсолютно дурацкий вопрос, но времени на поиск ответа нет, результат нужен вчера.

Не программировал на vba 10 000 лет и всё, абсолютно всё забыл, хотя когда-то неплохо зажигал.

Разместил кнопку на листе документа xls, сделал обработчик нажатия кнопки, хочу из обработчика вызвать макрос, локализованный в "ЭтаКнига". Но не знаю как.

Хелп ми!!!

Что за цифры вначале строк кода

Wed, 09 Sep 2015 14:23:31 GMT

Приходится разбираться с чужим кодом на VB6, подскажите пожалуйста что за номера вначале строк (не везде в коде) ?
Вроде как не метки для оператора GoTo, поскольку за метками должно следовать двоеточие.

54400 strSQL = strSQL & " FROM T_B_OPM_HIST hist" & vbCrLf
54410 strSQL = strSQL & " left join (" & vbCrLf
54420 strSQL = strSQL & " SELECT ea.peaid, pea.EAKTO, ea.Titel, ea.VerantID AS EAVerantID, eaanw.Name || ', ' || eaanw.Vorname AS AVerant" & vbCrLf
54430 strSQL = strSQL & " ,CAST(CASE " & vbCrLf
54440 strSQL = strSQL & "

Как получить размер текста

Thu, 21 May 2015 13:19:47 GMT

Задача такая Нужно макросом нарисовать подложку а текст подложки отмасштабировать под размер страницы.
Размер листа можно получить через PageSetup. А вот как узнать размер текста так и не нашёл. Может кто знает?!

Как открыть пункт меню при запуске Word

Fri, 24 Apr 2015 08:21:34 GMT

Может кто-то знает можно ли при запуске Word открыть нужный пункт меню с помощью макроса.
Если можно, то как это сделать
Office 2003/ 2010
Заранее спасибо

autofill c функцией VBA

Sun, 15 Feb 2015 16:19:08 GMT

добрый день

Подскажите пожалуйста с проблемой

Есть столбец в ячейках которого — строки (от файла к файлу его номер может меняться). В другой столбец надо положить результат выполнения функции ПРАВСИМВ, примененную к ячейкам первого столбца. Хочу это сделать в VBA, так как строк достаточно много. Как это лучше сделать в VBA ?

Согласно хелпу есть функция Right, но ее, как мне кажется, придется вызывать в цикле
Есть ли возможность применить функцию к диапазону Range или это невозможно без цикла?
Вроде есть в VBA автозаполнение autofill, но как его заставить работать если первый столбец "плавающий" ?

Пытаюсь начать (при наличии шапки в таблице, начинаю со 2 строки)

Range(Cells(2, lastColumnNumber + 1)).Value = Right(Range(Cells(2, 3)).Value, 2)

ловлю ошибку

Run-time error '1004'
Method 'Range' of object '_Global' failed

Заранее спасибо