» Excel VBA (часть 3)

AndVGri
Спасибо. Может что то не так делаю, но выдает ошибку:
byref argument type mismatch

Вот так вставляю в код:
s7 = Split(m3, "ailto:")
s8 = s7(1)
s9 = Split(s8, "?")
s10 = s9(0)

If InStr(1, m3, "ailto:") > 0 Then s12 = htmlStrToStr(s10) Else s12 = ""

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

Код: Public Function htmlStrToStr(ByVal forThis As String)

Хорошо, спасибо, попробую.

Добавлено:
AndVGri
Добрый день.
Благодарю, все работает!.

Есть переменная типа String. Нужно заменить n-й символ внутри строки, представленной этой переменной на другой.
Не соображу как элегантней это сделать. Можно конечно вырезать часть строки в начале, часть в конце, потом всё склеить. Но нельзя ли сразу заменить только нужный символ?

а чем Replace плейс негодится, если мидом клеить не хотите.

KF121
Да наверное так и сделаю.
Спасибо!

Цитата:

...как элегантней это сделать

Элегантней, все-таки Mid-ом. Например:

Код: Sub Main()
Dim s As String
s = "aaabbbcccddd" 'исходная переменная
'Заменим 5-й символ на "U":
Mid$(s, 5, 1) = "U"
MsgBox s 'результат
End Sub

хочется реализовать открытие excel книги с формы. форму только видно, книги нет.
в Workbook_Open
UserForm.Show
и затем сворачиваю окно
Application.WindowState = xlMinimized
вместе с ним и форма исчезает.
не помню, ранее как-то делал желаемое(пользователь только с формой работал)
и все крутилось.
возможно задавал малые размеры окну. или применял другие методы
вызываемые из других событий?

Karlo Daddy
Цитата:

открытие excel книги с формы

Какой книги? С какой формы? Кто такой этот потерпевший?
Форма ведь не может быть в воздухе. Для нее тоже нужна книга (или другой родитель).

М.б. _Скрытие_ книги при открытии принадлежащей ей формы?
Если так, то надо .WindowState = xlMinimized привязать к событию формы Initialize, а не к Workbook_Open.

Karlo Daddy

Код:
Private Sub Workbook_Open()
ThisWorkbook.Windows(1).Visible = False
'...

[more=СКРИПТ]If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").resizeWorkingPane 178,27,false
session.findById("wnd[0]/tbar[0]/okcd").text = "MIGO"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_FIRSTLINE:SAPLMIGO:0010/subSUB_FIRSTLINE_REFDOC:SAPLMIGO:2040/ctxtGODYNPRO-OUTBOUND_DELIVERY").text = "6001532711"
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_FIRSTLINE:SAPLMIGO:0010/subSUB_FIRSTLINE_REFDOC:SAPLMIGO:2040/ctxtGODYNPRO-OUTBOUND_DELIVERY").caretPosition = 10
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_HEADER:SAPLMIGO:0101/subSUB_HEADER:SAPLMIGO:0100/tabsTS_GOHEAD/tabpOK_GOHEAD_GENERAL/ssubSUB_TS_GOHEAD_GENERAL:SAPLMIGO:0110/txtGOHEAD-BKTXT").text = "10130140/010411/0008695"
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_HEADER:SAPLMIGO:0101/subSUB_HEADER:SAPLMIGO:0100/tabsTS_GOHEAD/tabpOK_GOHEAD_GENERAL/ssubSUB_TS_GOHEAD_GENERAL:SAPLMIGO:0110/txtGOHEAD-BKTXT").setFocus
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_HEADER:SAPLMIGO:0101/subSUB_HEADER:SAPLMIGO:0100/tabsTS_GOHEAD/tabpOK_GOHEAD_GENERAL/ssubSUB_TS_GOHEAD_GENERAL:SAPLMIGO:0110/txtGOHEAD-BKTXT").caretPosition = 23
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/tabsTS_GOITEM/tabpOK_GOITEM_BATCH").select
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/tabsTS_GOITEM/tabpOK_GOITEM_BATCH/ssubSUB_TS_GOITEM_BATCH:SAPLMIGO:0335/btnOK_BATCH_CLASS").press
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S").verticalScrollbar.position = 10
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,8]").text = "10130140/010411/0008695/06"
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,9]").text = " "
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,8]").setFocus
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,8]").caretPosition = 26
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/subSUB_DETAIL_TAKE:SAPLMIGO:0304/chkGODYNPRO-DETAIL_TAKE").selected = true
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/subSUB_DETAIL_TAKE:SAPLMIGO:0304/chkGODYNPRO-DETAIL_TAKE").setFocus
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/btnOK_NEXT_ITEM").press
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/tabsTS_GOITEM/tabpOK_GOITEM_BATCH/ssubSUB_TS_GOITEM_BATCH:SAPLMIGO:0335/btnOK_BATCH_CLASS").press
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S").verticalScrollbar.position = 10
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,8]").text = "10130140/010411/0008695/04"
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,9]").text = " "
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,9]").setFocus
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,9]").caretPosition = 2
session.findById("wnd[0]/tbar[0]/btn[3]").press[/more]



Подскажите пожалуйста, записал данный скрипт в SAP через встроенную программу записи макросов. Много всего перечитал, но так и не смог сделать так чтобы данные выделенные жирным шрифтом вставлялись из EXCEL файла с названием например book1 из графы A1 A2 A3 и A4 соответсвенно. Заранее огромное спасибо, помогите пожалуйста дописать данный скрипт.

Amg65, есть тег more - нажмите кнопку редактировать на моем посте и отредактируйте свой пост по [more=образцу]

If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").resizeWorkingPane 178,27,false
session.findById("wnd[0]/tbar[0]/okcd").text = "MIGO"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_FIRSTLINE:SAPLMIGO:0010/subSUB_FIRSTLINE_REFDOC:SAPLMIGO:2040/ctxtGODYNPRO-OUTBOUND_DELIVERY").text = "6001532711"
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_FIRSTLINE:SAPLMIGO:0010/subSUB_FIRSTLINE_REFDOC:SAPLMIGO:2040/ctxtGODYNPRO-OUTBOUND_DELIVERY").caretPosition = 10
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_HEADER:SAPLMIGO:0101/subSUB_HEADER:SAPLMIGO:0100/tabsTS_GOHEAD/tabpOK_GOHEAD_GENERAL/ssubSUB_TS_GOHEAD_GENERAL:SAPLMIGO:0110/txtGOHEAD-BKTXT").text = "10130140/010411/0008695"
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_HEADER:SAPLMIGO:0101/subSUB_HEADER:SAPLMIGO:0100/tabsTS_GOHEAD/tabpOK_GOHEAD_GENERAL/ssubSUB_TS_GOHEAD_GENERAL:SAPLMIGO:0110/txtGOHEAD-BKTXT").setFocus
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_HEADER:SAPLMIGO:0101/subSUB_HEADER:SAPLMIGO:0100/tabsTS_GOHEAD/tabpOK_GOHEAD_GENERAL/ssubSUB_TS_GOHEAD_GENERAL:SAPLMIGO:0110/txtGOHEAD-BKTXT").caretPosition = 23
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/tabsTS_GOITEM/tabpOK_GOITEM_BATCH").select
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/tabsTS_GOITEM/tabpOK_GOITEM_BATCH/ssubSUB_TS_GOITEM_BATCH:SAPLMIGO:0335/btnOK_BATCH_CLASS").press
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S").verticalScrollbar.position = 10
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,8]").text = "10130140/010411/0008695/06"
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,9]").text = " "
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,8]").setFocus
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,8]").caretPosition = 26
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/subSUB_DETAIL_TAKE:SAPLMIGO:0304/chkGODYNPRO-DETAIL_TAKE").selected = true
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/subSUB_DETAIL_TAKE:SAPLMIGO:0304/chkGODYNPRO-DETAIL_TAKE").setFocus
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/btnOK_NEXT_ITEM").press
session.findById("wnd[0]/usr/ssubSUB_MAIN_CARRIER:SAPLMIGO:0003/subSUB_ITEMDETAIL:SAPLMIGO:0301/subSUB_DETAIL:SAPLMIGO:0300/tabsTS_GOITEM/tabpOK_GOITEM_BATCH/ssubSUB_TS_GOITEM_BATCH:SAPLMIGO:0335/btnOK_BATCH_CLASS").press
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S").verticalScrollbar.position = 10
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,8]").text = "10130140/010411/0008695/04"
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,9]").text = " "
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,9]").setFocus
session.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,9]").caretPosition = 2
session.findById("wnd[0]/tbar[0]/btn[3]").press
[/more]
Прочтите еще вот это

Amg65
Со скриптом - несколько не по теме

Код:
Dim xls, pBook, pSheet
Set xls = CreateObject("Excel.Application")
Set pBook = xls.Workbooks.Open("d:\path\book1.xlsx")
Set pSheet = pBook.Worksheets(1)
WScript.Echo pSheet.Range("A1").Value
WScript.Echo pSheet.Range("A2").Value
WScript.Echo pSheet.range("A3").value

pBook.Saved = True
pBook.Close
xls.Quit
Set xls = Nothing

Спасибо за ответ, но я вообще чайник в этом ) можешь показать как твой скрипт вставить в мой чтобы работал?

Amg65
Замени твой скрипт этим, это упрощенный вариант того, что ты записал.

Этот скрипт только находит данные в Excel а мой указывает путь куда их нужно вставить уже в другой программе, мне надо их объединить.

Помогите открыть файлик xla, работает только на 2003 офисе... т.к. не шарю в VBA хочу перетащить все процедуры в 2010. Уже везде писал ни один форум не помогает. Может кто поможет? Могу детально описать что делает файлик, хотя можно глянуть на 2003...

http://narod.ru/disk/9917154001/Subst2.rar.html

eugenee1704, забирай

asbo

Спасибо ОГРОМНОЕ!!!

Скажи только снял пароль с кода или что то еще переписывал? Т.к. он не только открылся он запустился в 2010 офисе... УРА!

eugenee1704, на здоровье :)
Это же была надстройка. Для гибкости я преобразовал ее в простой xls файл. Поэтому он и запустился :) Если он нужен будет именно как надстройка, надо его как надстройку (xla) и сохранить. Больше ничего не изменял. Жаловался он на то, что старый формат макросов - я позволил ему автоматически преобразоваться.

asbo
"Всё гениальное - просто" Кто находит - это просто, тот гений)) Еще раз спасибо!

eugenee1704, еще раз на здоровье :)
Я неточно выразился - все это я уже потом сделал, после того, как защиту снял. В лоб не получилось - поэтому долго и возился... Да еще БГ намутил с рекомендациями по цифровым подписям - я бросился сдуру его рекомендации читать-выполнять, время потратил :)

Подскажите пожалуйста, в настройках экселя стоит "Использовать системный разделитель " т.е. запятую, а ComboBox при AddItem меняет ее на точку при добавлении дробных чисел. В итоге мат. вычисления не идут, падает по ошибке "несовпадение типов". Может кто нибудь поскажет как победить комбу? с листбоксом таже проблема

М.б. попробовать с явным указанием

Application.DecimalSeparator = ","
Application.UseSystemSeparators = False

И ведь в некоторых случаях MS использует только американскую точку. Я не помню, а разве комбо и лист не текстовые данные хранят и возвращают?

Не знал, куда запостить. Вопрос по макросам в Visual Studio, которые можно назначать комбинациям клавиш.

Как можно сделать вставку выделенной части текста по клику средней кнопкой (как в линуксе)? (это включает создание доп. буфера)

И по макросам:
Получил объект TextSelection, как расширить это выделение на все строчки, которых оно касается? Т. е. довыделить первую и последнюю.
Это нужно для того, чтобы дописать макрос, который дублирует строчки:

Код:
Sub CopyLineBelow()
DTE.ActiveDocument.Selection.Collapse()
DTE.ActiveDocument.Selection.Copy()
DTE.ActiveDocument.Selection.Paste()
End Sub

Sub CopyLineAbove()
DTE.ActiveDocument.Selection.Collapse()
DTE.ActiveDocument.Selection.Copy()
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.Paste()
End Sub

Написал программку Платёжные поручения.
Чтобы все пользовались, хотел разместить на сайте Microsoft, мне ответили, что такого раздела у них уже нет. Послал письмо на vbnet.ru, пришло уведомление по электронной почте, что такого адреса нет.
Где бы можно было разместить с охватом широкой аудитории?

KolyaP
И с этой страницы на VBNet не грузится?

AndVGri

После заполнения формы, выдаёт следующее:
500 - Internal server error.
There is a problem with the resource you are looking for, and it cannot be displayed.

Добрый день.
Есть ли аналог функции ПОИСК в VBA. Нужно найти в строке вхождение типа 45/35/9 и вытащить первое число.
Строки разные:
Ахматової серія КТУ, 19/25кер/бет, 49/19/12, стяжка, с/в сумісний, балкон, розвинена інфраструктура, 80000у.о., код 2130
Ахматовой ул. 20/22, 17/23к., новострой, 48/21/14, красный кирпич, спецпроект, паркинг. без отделки - 75000у.е.;
Григоренко, 28, 48/20/12, c ремонтом, л/з, - 77000у.е.
Спасибо.

andrewkard1980, есть. Для поиска вхождения - InStr, InStrRev. Для выделения части - Left, Right, Mid