Ir para conteúdo
Fórum Script Brasil

Adriano321souza

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre Adriano321souza

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

Adriano321souza's Achievements

0

Reputação

  1. Bom dia, estou tentando editar um script VBA SAP para automatizar uma rotina, mas não estou conseguindo. Podem me ajudar. Preciso lançar o dado no ítem Equip. Superior e o código foi feito para lançar no ítem Loc. Instalação e não tenho acesso para gravar macro no SAP. Segue o código original Option Explicit Sub macro_cadastro() Dim Appl, SapGuiAuto, Connection, session, WScript Dim ultimacelula As Integer Dim i As Integer If Not IsObject(Appl) Then Set SapGuiAuto = GetObject("SAPGUI") Set Appl = SapGuiAuto.GetScriptingEngine End If If Not IsObject(Connection) Then Set Connection = Appl.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 Appl, "on" End If session.findById("wnd[0]").maximize ultimacelula = Cells(ActiveSheet.UsedRange.Rows.Count, 1).Row For i = 2 To ultimacelula session.findById("wnd[0]/tbar[0]/okcd").Text = "IE01" session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]/usr/ctxtRM63E-EQTYP").Text = "R" session.findById("wnd[0]/usr/ctxtRM63E-EQTYP").SetFocus session.findById("wnd[0]/usr/ctxtRM63E-EQTYP").caretPosition = 1 session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]/usr/subSUB_EQKO:SAPLITO0:0152/subSUB_0152B:SAPLITO0:1525/txtITOB-SHTXT").Text = Cells(i, "c") session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\01/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1020/ctxtITOB-BEGRU").Text = Cells(i, "e") session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\01/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1020/subSUB_1020A:SAPLITO0:1025/ctxtITOB-EQART").Text = Cells(i, "d") session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\01/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1020/ctxtITOB-BEGRU").SetFocus session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\01/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1020/ctxtITOB-BEGRU").caretPosition = 3 session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\02").Select session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\02/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1050/ctxtITOB-SWERK").Text = Cells(i, "f") session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\02/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1050/ctxtITOB-BEBER").Text = Cells(i, "g") session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\02/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1050/ctxtITOB-ABCKZ").Text = Cells(i, "h") session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\02/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1050/txtITOB-EQFNR").Text = Cells(i, "i") session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\02/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1050/txtITOB-EQFNR").SetFocus session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\02/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1050/txtITOB-EQFNR").caretPosition = 23 session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\03").Select session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\03/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1052/ctxtITOB-GSBER").Text = Cells(i, "j") session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\03/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1052/ctxtITOB-KOSTL").Text = Cells(i, "k") session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\03/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1052/ctxtITOB-KOSTL").SetFocus session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\03/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1052/ctxtITOB-KOSTL").caretPosition = 10 session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\04").Select session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\04/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1060/subSUB_1060A:SAPLITO0:1065/btnFCODE_CIPL").press session.findById("wnd[1]/usr/ctxtIEQINSTALL-TPLNR").Text = Cells(i, "l") session.findById("wnd[1]/usr/ctxtIEQINSTALL-TPLNR").caretPosition = 25 session.findById("wnd[1]/tbar[0]/btn[16]").press session.findById("wnd[2]/tbar[0]/btn[0]").press session.findById("wnd[0]/tbar[0]/btn[11]").press Next i End Sub
  2. Boa noite! Gostaria de saber como colocar texto na frente da imagem, como no Portfólio deste site http://tecmec.org.br/ Preciso que seja em html Fiz um modelo em formato de tabela, mas falta inserir o texto para aparecer como no site citado <html> <head> <title>Imaguens</title> </head> <body> <Table> <tr> <td><IMG src="http://tecmec.org.br/wp-content/uploads/2018/04/germany-1349329_1920-uai-1440x1080.jpg" WIDTH=100%> <td><IMG src="http://tecmec.org.br/wp-content/uploads/2018/04/germany-1349329_1920-uai-1440x1080.jpg" WIDTH=100%> <td><IMG src="http://tecmec.org.br/wp-content/uploads/2018/04/germany-1349329_1920-uai-1440x1080.jpg" WIDTH=100%> </tr> <tr> <td><IMG src="http://tecmec.org.br/wp-content/uploads/2018/04/germany-1349329_1920-uai-1440x1080.jpg" WIDTH=100%> <td><IMG src="http://tecmec.org.br/wp-content/uploads/2018/04/germany-1349329_1920-uai-1440x1080.jpg" WIDTH=100%> <td><IMG src="http://tecmec.org.br/wp-content/uploads/2018/04/germany-1349329_1920-uai-1440x1080.jpg" WIDTH=100%> </tr> </Table> </body> </html>
×
×
  • Criar Novo...