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

VBS Как перевести текст из oem866 в win1251

Fri, 18 May 2012 06:57:12 GMT

Есть строка Str с текстом в кодировке 866. Если сделать ей MsgBox в сообщении иероглифы. Как перевести строку в кодировку 1251 ?

Установка готового макроса в MS Office

Thu, 17 May 2012 09:38:22 GMT

Добрый день.

Требуется написать макрос на VBA, который бы добавлял панельку с кнопками в Word, Excel, вроде не проблема. Проблема в том, чтобы потом с помощью инсталлятора, Inno Setup, можно было этот макрос добавлять в Office, чтобы у пользователя после открытия Word или Excel, уже была эта панелька с кнопками.

Возможно ли такое в принципе? При этом, тоже самое должно происходить и для Office в Mac Os X. Если да то киньте пожалуйста, ссылки или описание процедуры установки.

Спасибо.

Блокировка Flash в Webbrowser

Tue, 15 May 2012 15:48:21 GMT

Никак не могу решить проблему блокировки Флэш в стандартном Webbrowser. Кто-нибудь сталкивался?

Что пробовал:
— Отрубание flash в самом Internet Explorer никак не действует на "внутренний" Webbrowser.
— отключал элементы с флэш сразу после загрузки (не очень экономно, так как часть успевает загрузится)

VBA, событие добавления строки

Tue, 03 Apr 2012 18:25:01 GMT

В лист Excel через DDE добавляются новые строки.

Как отловить событие добавления новой строки? Какое событие использовать?

VBAccelerator toolbar

Tue, 20 Mar 2012 04:17:05 GMT

Добрый день.

Для указанного в сабже контрола не работает вывод кириллицы, если указан английский формат стандартов (Regional and Language optionы в Панели управления). Язык для non-unicode программ указан русский. Все остальные элементы управления все отображают нормально. Если поставить русские региональные стандарты, то и тулбар уже выводит корректно. Если кто сталкивался с такой проблемой, это можно победить как-то? Спасибо.

как удалить произвольную последовательность символов?

Mon, 05 Mar 2012 05:27:43 GMT

Здравствуйте.
перед применением метода Split(",") хочу почистить содержимое строки:
myString = "qwert [1], asdf [14], erty[_1_], uiop [50]"
Как избавиться от не нужных мне квадратных скобок и любых символов между ними?
Спасибо!

438 error - Object doesn't support this property or method

Mon, 23 Jan 2012 17:43:50 GMT

Всем привет

Вот такая ошибка происходит при присвоении obj1 = nothing в VB6
Кто знает где копать?

Код вот
Sub a()
Dim objServer As Object
Set obj1 = CreateObject("ST.Server")

...
вызовы методов obj1
...

obj1 = Nothing
end sub

ST.Server — out of proc сервер с дуальным интерфейсом
Если убрать obj1 = Nothing все нормально и сервер через какоето время выгружается сам.

MSHFlexGrid (VB6), MergeCells

Fri, 20 Jan 2012 13:03:54 GMT

Как слить ячейки в контроле MSHFlexGrid? Этот код почему-то не работает:

        fg.MergeCells = flexMergeFree
        fg.MergeCol(1) = True
        fg.MergeCol(2) = True
        fg.MergeCol(3) = True
        fg.MergeRow(1) = True
        fg.MergeRow(2) = True
        fg.Redraw = True

пользовательские формы в OWA

Sat, 19 Nov 2011 07:05:10 GMT

Приветствую всех!
В Outlook есть пользовательские формы(задачи). Теперь мы хотим пользоваться Oulook Web Access
Не могу найти примеры как эти формы реализовать там. Не подскажете куда смотреть?
В интернете поискал, нет инфы. Или там инфы нет или я плохой искатель.

Как проверить символ в ячейке Excel?

Tue, 25 Oct 2011 08:25:55 GMT

Есть таблица Excel, в ячейке AH8 записан текст: test3_123. Подскажите пожалуйста чайнику самый простой способ как на VBA проверить, что пятым символом в этой ячейке является 3?

Спасибо!

Путь к файлу указан, а файл отсутствует. Как обойти ошибку?

Mon, 10 Oct 2011 13:28:52 GMT

Как исправить ошибку, когда путь к изображению есть, а самого изображения нет?

Crystal versus VB. Help please!

Fri, 07 Oct 2011 07:40:13 GMT

Ребят, здрасте.
Помогите пожалуйста с очень для меня непонятной ситуацией.
Уже который день бьюсь над задачей.

Отчет должен формироваться в приложении на VB (написанно когда-то кем-то)
Но происходит косячек после чего весь массив обнуляется и в отчет не передается ни один параметр.
Привожу часть кода и собственно где обнуляется.

Dim main As New Object

        Select Case _reportType
            Case 0
                main = New CRCheckConsistency2
                posCollection.Add("CPOSWITHSALES")
                posCollection.Add("CPOSWITHOUTSALES")
                posCollection.Add("CPOSMODIF")
                posCollection.Add("CPOSABNORMALTREND")
                posCollection.Add("EANWITHSALES")
                posCollection.Add("EANWITHOUTSALES")
                posCollection.Add("EANABNORMALTREND")
                posCollection.Add("EANMODIF")
                posCollection.Add("CPOSUNKNOWN")
                posCollection.Add("EANUNKNOWN")
                posCollection.Add("CPOSWITHOUTADDR")
                posCollection.Add("EANWITHOUTDESC")
                posCollection.Add("CPOSEXCLUDED")
                posCollection.Add("EANEXCLUDED")

            Case 1
                main = New CRCheckRelevance2
                posCollection.Add("ACTPOSWITHOUTSALES")
                posCollection.Add("SUPPPOSWITHSALES")
                posCollection.Add("INACBRDWITHSALES")
                posCollection.Add("ACTBRDWITHSALES")
                posCollection.Add("ACTBRDWITHOUTSALES")
                posCollection.Add("POSPERCHAIN")
                posCollection.Add("POSPERCHANNEL")
                posCollection.Add("BRANDPERPRICECAT")
                posCollection.Add("BRANDPERTASTE")
                posCollection.Add("BRANDPERBLEND")
                posCollection.Add("BRANDPERSIZE")
                posCollection.Add("BRANDPERMANUFACT")
                posCollection.Add("OTPPERMANUFACT")
                posCollection.Add("TOTALPERMANUFACT")
                posCollection.Add("WRLCHECK")
        End Select

        Dim _checkResultDetailDatatable As DataTable = dsReport.Tables("CHECK_RESULT_DETAIL")
        Dim nbr As Integer = checkResultDetailAdapter.SelectBySubEntityByMonth(_checkResultDetailDatatable, _subentityId, _monthId, typeResultIds)
        dsReport.AcceptChanges()

        Dim crSubReport As ReportDocument
        For Each typeCode In posCollection
            crSubReport = New ReportDocument

            typeResult = typeResultAdapter.SelectByCodeGetBo(typeCode)

            crSubReport = main.OpenSubreport(typeCode)

            crSubReport.Database.Tables(0).SetDataSource(dsReport) 'Вот тут, в этом месте main опустошается. Все параметры точнее опустошаются


            main.SetParameterValue("typeResultId", typeResult.TYP_RSLT_ID, typeCode) 'тут заполнился main а выше очистился... и у меня в отчете пусто
            main.SetParameterValue("period", VISTA.Main.boSubentityProcess.month, typeCode)
            main.SetParameterValue("subentity", VISTA.Main.boSubentityProcess.subEntity, typeCode)

            Select Case _reportType
                Case 0
                    main.SetParameterValue("title", "CONSISTENCY CHECK RESULTS", typeCode)
                Case 1
                    main.SetParameterValue("title", "RELEVANCE CHECK RESULTS", typeCode)
            End Select

            Dim sberp As ReportDocument = New ReportDocument()

        Next

        For Each typeCode In posCollection
            dv = New DataView(dsReport.Tables("CHECK_RESULT_DETAIL"))
            typeResult = typeResultAdapter.SelectByCodeGetBo(typeCode)
            dv.RowFilter = "TYP_RSLT_ID = " + typeResult.TYP_RSLT_ID.ToString()
            If dv.Count = 0 Then
                main.SetParameterValue(typeCode + "View", True)
            Else
                main.SetParameterValue(typeCode + "View", False)
            End If
        Next

        CrystalReportViewer1.ReportSource = main

Может у кого есть какие идеи?
Зарание благодарен!!!

Autosave для user form Outlook

Wed, 21 Sep 2011 08:05:35 GMT

Имеется пользовательская форма(задача). Outlook 2007
Хочу чтобы приходило событие автосохранения в мою форму.
Пишу в коде формы

Function Item_BeforeAutoSave()
MsgBox "BeforeAutoSave"
End Function

Событие генерируется только в новой, еще несохраненной задаче.
А в уже существующей нет. В чем может быть загвоздка?
Интернет перерыл. Ничего нет, кроме того, что этот обработчик нужно добавлят вручную.

ПОМОГИТЕ ПЛИЗ!!!!!!!

vba+access: некорректный вызов функции из формы

Wed, 14 Sep 2011 08:44:44 GMT

Придумал функцию для текстового поля, которая делает заглавной первую букву в текстовом поле:

Public Function CapitalLetter(text_value As String) As String ' делаем первую букву заглавной

text_value = UCase(Left(text_value, 1)) + LCase(Right(text_value, Len(text_value) — 1))

End Function
Функция будет использоваться на многих формах, поэтому она сделана public

На форме есть текстовое поле Form_f_Student.Surname

На загрузку формы делаю следующее:

Private Sub Form_Load()

Form_f_Student.Surname.Text = CapitalLetter(Form_f_Student.Surname.Text)

End Sub

При запуске дебага получаю сообщение, что невозможно обратиться к свойству или методу у которого не получен фокус.

Если я функцию привязываю к событию "изменение", то получаю сообщение о некорректном вызове функции или аргумента (invalid procedure call or argument)

Пробовал объявить локальную переменную для записи изменений в текстовом поле, но результат тот же...

Каким образом нужно засунуть функцию на форму, чтобы при вводе данных в текстовое поле оно обрабатывалось функцией?

Что можете мне посоветовать?
За любые советы буду премного благодарен

Получение прокси по умолчанию VBA Excel

Fri, 02 Sep 2011 10:26:07 GMT

Есть страница доступная через https. Есть скрипт, который читает эту страницу через WinHttpRequest (Должен читать). Доступ к этой странице происходит через прокси сервер, который настроен по умочанию в винде.
Так собственно сам вопрос.
1. Как можно WinHttpRequest заставить использовать прокси по умолчнию? SetProxy не помогает. Прокси настроен для всех протоколов.
2. Если нельзя заставить использовать прокси по умочанию, как прочитать настройки прокси с помощью VBA?

EXCEL DCOM PageSetup

Thu, 01 Sep 2011 10:49:22 GMT

Клиент через DCOM взаимодействует с EXCEL-сервером в домене на другом компе (Win2008 x64).

Один пользователь может обращаться к PageSetup, другой — нет. Получает сообщение:Unable to set the property XXX of the PageSetup.

Оба пользователя в домене и члены группы "Пользователи DCOM" и в остальном — документы EXCEL генерируются нормально.

В Microsof говорят (http://support.microsoft.com/kb/291298), что такая ошибка — если не установлен принтер, Но он есть и доступен от обоих пользователей (т.е. если залогиниться на сервер, то принтеры видны и вручную диалог настройки страницы в EXCEL вызывается).

В чём же может быть причина.
Если второму пользователю всё же не доступны принтеры, то где это можно явно указать.

map

Mon, 15 Aug 2011 14:15:08 GMT

Коллеги, подскажите, как в VB называется тип данных, реализующий map?
От типа данных нужен быстрый поиск.

Формы, Excel, VBA

Thu, 11 Aug 2011 06:41:32 GMT

подскажите, пожалуйста, как программно передать фокус ввода с формы(vbModeless)
на лист Excel без закрытия формы?

Outlook: Navigate from Tasks to Mail

Mon, 08 Aug 2011 07:21:17 GMT

Коллеги, хочу написать плагин (скрипт) для аутлука. UseCase следующий:
1) Навигируемся в фолдер "Tasks"
2) Выбираем письмо, которое туда попадает автоматически при отметке его красным флажком
3) Жмакаем кнопку со скриптом — перемещаемся в папку "Mail" с фокусом на это письмо.

С VBA знаком, но только в Word и Exel, аутлуковскую модель очень плохо знаю, поэтому буду рад подсказкам.
Ну или если кто знает готовый плагин — давайте ссылку. Мне в общем то нужен результат

Спасибо!

Как программно выключить ПК в NT4?

Thu, 04 Aug 2011 14:35:21 GMT

Как программно выключить ПК в NT4, чтобы не выскакивало сообщение о возможности отключениия питания?