COLORIR CÉLULA EXCEL

W8.LISBOA 02/09/2016 09:01:11
#466459
Olá pessoal!!

Estou executando um script para fazer algumas tarefas repetitivas no SAP conforme abaixo, gastaria de colorir a célula no excel conforme andamento do script:
 Sub BtnProcessar()

If Not IsObject(App) Then
   Set SapGuiAuto = GetObject([Ô]SAPGUI[Ô])
   Set App = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
   Set Connection = App.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 App, [Ô]on[Ô]
End If

Dim objExcel
Dim objSheet, intRow, i
Set objExcel = GetObject(, [Ô]Excel.Application[Ô])          [ô]CHAMA O EXCEL ATIVO
Set objSheet = objExcel.ActiveWorkbook.ActiveSheet       [ô]LER O CONTEÚDO DA PRIMEIRA ABA DO EXCEL

For i = 2 To objSheet.UsedRange.Rows.Count               [ô]LER DA PLANILHA A PARTIR DA 2 LINHA

    DOCUMENTO = Trim(CStr(objSheet.Cells(i, 1).Value))   [ô]A VARIÁVEL DOCUMENTO
    TEXTO = Trim(CStr(objSheet.Cells(i, 2).Value))       [ô]A VARIÁVEL TEXTO

session.findById([Ô]wnd[0][Ô]).maximize
session.findById([Ô]wnd[0]/tbar[0]/okcd[Ô]).Text = [Ô]ME22N[Ô]
session.findById([Ô]wnd[0][Ô]).sendVKey 0
session.findById([Ô]wnd[0]/tbar[1]/btn[17][Ô]).press
session.findById([Ô]wnd[1]/usr/subSUB0:SAPLMEGUI:0003/ctxtMEPO_SELECT-EBELN[Ô]).Text = DOCUMENTO
session.findById([Ô]wnd[1][Ô]).sendVKey 0
session.findById([Ô]wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT3/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1230/subTEXTS:SAPLMMTE:0100/cntlTEXT_TYPES_0100/shell[Ô]).selectedNode = [Ô]F17[Ô]
session.findById([Ô]wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT3/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1230/subTEXTS:SAPLMMTE:0100/cntlTEXT_TYPES_0100/shell[Ô]).topNode = [Ô]F15[Ô]
session.findById([Ô]wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT3/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1230/subTEXTS:SAPLMMTE:0100/subEDITOR:SAPLMMTE:0101/cntlTEXT_EDITOR_0101/shellcont/shell[Ô]).Text = TEXTO
session.findById([Ô]wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT3/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1230/subTEXTS:SAPLMMTE:0100/subEDITOR:SAPLMMTE:0101/cntlTEXT_EDITOR_0101/shellcont/shell[Ô]).setSelectionIndexes 5, 5
session.findById([Ô]wnd[0]/tbar[0]/btn[11][Ô]).press
session.findById([Ô]wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT3/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1230/subTEXTS:SAPLMMTE:0100/subEDITOR:SAPLMMTE:0101/cntlTEXT_EDITOR_0101/shellcont/shell[Ô]).setSelectionIndexes 0, 0

[ô]NESTE MOMENTO COLORIR A CéLULA QUE CONTEM COMO CONTEÚDO A VARIÁVEL [Ô]DOCUMENTO[Ô]
    
Next

End Sub
ASHKATCHUP 02/09/2016 09:57:05
#466462 Resposta escolhida
Um exemplo de código para pintar células no excel:

Option Explicit

Private Sub CommandButton1_Click()
    Dim sTexto          As String
    Dim objWorkBook     As Workbook
    Dim objSheet        As Worksheet
    Dim objCelula       As Range
    [ô]
    [ô]Salva o que será procurado
    sTexto = TextBox1.Text
    [ô]
    [ô]Objeto Workbook (arquivo)
    Set objWorkBook = Application.ActiveWorkbook
    [ô]Objeto WorkSheet (planilha)
    Set objSheet = objWorkBook.ActiveSheet
    [ô]
    [ô]Procura o texto informado nas células usadas (UsedRange)
    Set objCelula = objSheet.UsedRange.Find(sTexto)
    [ô]
    [ô]Verifica se encontrou alguma coisa
    If Not objCelula Is Nothing Then
        [ô]Pinta a célula de vermelho
        objCelula.Interior.Color = vbRed
    End If
    [ô]
End Sub

W8.LISBOA 02/09/2016 11:09:08
#466467
Resolvido!!

  objSheet.Cells(i, 1).Interior.Color = vbGreen
JCM0867 02/09/2016 12:09:02
#466472
Vai no excel, crie uma macro execute as funções de colorir e gravado os comandos na macro e salve a macro. Depois vai na edição da macro e pegue as linhas de comando que ele criou que é VBA e coloque no sistema.
Quando tem algo que pretendo fazer no excel e não lembro os comandos, faço assim.





[txt-color=#0000f0]Precisando de um Sistema de Gestão Educacional?[/txt-color]
Desenvolvido em VB.NET + SQL Server + Crystal Reports
Conheça nossa Solução: www.cjsystem.com.br
Tópico encerrado , respostas não são mais permitidas
Voltar