Pergunta : Erro compatível em Excel 2003

Olá!, o

I gostaria de pedir a ajuda dos peritos. A lima unida é realmente versão convertida de Excel 2007. Entretanto, a versão convertida mostra erros como: o

>> compila o erro, tipo definido pelo utilizador não definido (erro secundário do

Runtime do

And do _Module de SendMail do module_ (txtEmail como a corda) 2
da “o
do
de SendMsg função (strSubject como a corda, o _
strBody como a corda, o strTO do _
como a corda, o strDoc opcional do _
como a corda, o strCC opcional do _
como a corda, o strBCC opcional do _
como a corda) escurecem o oLapp como Outlook.Application”: A sustentação do objeto não este tipo de método (submarino confidencial CommandButton1_Click ()) em _Userform1


Sub ClearRows de/>.TintAndShade = de 0

At () peritos de/>.TintAndShade = de 0

Hope pode ajudar-me a retificar este erros de modo que seu praticável em Excel 2003. Eu uni igualmente o relatório compatível para o perusal dos peritos.





class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
nome de arquivo " do class= do >Excel2003.xls " fileSize " > (198 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
class= " descrição " >xls
do
o class= de
do >
class= do

Resposta : Erro compatível em Excel 2003

O FYI o projeto era fechado e não reconhecerá mesmo cerca ou formata com um erro da biblioteca.
Em todo o caso, tentar estas mudanças.


Para a função SendMsg em Module1

Função SendMsg (strSubject como a corda, _
                   strBody como a corda, _
                   strTO como a corda, _
                   strDoc opcional como a corda, _
                   strCC opcional como a corda, _
                   strBCC opcional como a corda)
       
    oLapp não ofuscante
    oItem não ofuscante
    Myattachments não ofuscantes

    Ajustar o oLapp = o CreateObject (“Outlook.Application”)
    Ajustar o oItem = o oLapp.CreateItem (o olMailItem)

    oItem.Subject = strSubject
    oItem.To = strTO
    oItem.CC = strCC
    Se folhas (“cano principal”) .CheckBoxes (de “caixa verificação 1”) = 1 então oItem.CC = “[email protected]”
    oItem.BCC = strBCC
    oItem.BodyFormat = olFormatHTML
    oItem.HTMLBody = strBody
    oItem.Importance = olImportanceHigh
   
   
    oItem.Display
   
   
   
    Ajustar o oLapp = nada
    Ajustar o oItem = nada
       
Terminar a função

em userform1:

Submarino confidencial CommandButton1_Click ()
Ws1 não ofuscante como a folha
Ws2 não ofuscante como a folha
Rng não ofuscante como a escala
Celle não ofuscante como a escala
Escurecer i como por muito tempo
Escurecer n como por muito tempo
Escurecer r como por muito tempo

Ajustar ws1 = folhas (o “cano principal”)
Ajustar ws2 = folhas (o “relatório”)
Com ws1
    Ajustar o rng =. Escala (. Pilhas (2, “A”). Pilhas (. Rows.Count, “A”). Extremidade (xlUp))
Extremidade com

Para i = 0 a Me.ListBox1.ListCount - 1
    Se Me.ListBox1.Selected (i) = retificar então
        Para n = 0 a Me.ListBox2.ListCount - 1
            Se Me.ListBox2.Selected (n) = retificar então
                Para cada celle no rng
                    Se celle = Me.ListBox1.List (i) e CStr (celle. Offset (0, 8)) = CStr (Me.ListBox2.List (n)) então
                        ws1.Range (ws1.Cells (celle. Fileira, “A”), ws1.Cells (celle. Fileira, “E”)). Copiar o _
                            ws2.Cells (ws2.Rows.Count, “A”). Extremidade (xlUp). Offset (1, 0)
                    Terminar se
                Celle seguinte
            Terminar se
        N seguinte
    Terminar se
Em seguida i
Com ws2
    r =. Escala (“A” & Rows.Count). Extremidade (xlUp). Fileira
    . Pilhas (r + 1, “E”) = “total geral”
    . Pilhas (r + 2, “E”) = WorksheetFunction.Sum (. Escala (“E2: E” & r))
    . Pilhas (r + 2, “E”) .NumberFormat =” [h]: milímetro "
    . Pilhas (r + 2, “E”). Font.ColorIndex = 30
    . Pilhas (r + 1, “E”). Font.ColorIndex = 30
    . Pilhas (r + 2, “E”). Font.Bold = retificam
    . Pilhas (r + 1, “E”). Font.Bold = retificam
    Com. Escala (“A2: E” & r)
        .FormatConditions.Delete
        tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =MOD (FILEIRA (), 2) =0 "
        .FormatConditions (1). Interior.ColorIndex = 20
    Extremidade com
    Com. Escala (“A” & r + 1 &”: E " & r + 2)
        . Limita (xlDiagonalDown) .LineStyle = xlNone
        . Limita (xlDiagonalUp) .LineStyle = xlNone
        . Limita (xlEdgeLeft) .LineStyle = xlNone
        . Limita (xlEdgeRight) .LineStyle = xlNone
        . Limita .LineStyle = xlNone ( xlInsideVertical)
        . Limita .LineStyle = xlNone (xlInsideHorizontal)
        Com. Beiras (xlEdgeTop)
            .LineStyle = xlDouble
            .ColorIndex = xlAutomatic
            . Peso = xlThick
        Extremidade com
        Com. Beiras (xlEdgeBottom)
            .LineStyle = xlDouble
            .ColorIndex = xlAutomatic
            . Peso = xlThick
        Extremidade com
    Extremidade com

   
Extremidade com
Chamada Module1.checker
Submarino da extremidade

--- no módulo 4, clearrows

ClearRows secundário ()

    Escala (“A2: E1000”). Seleto
    Com Selection.Interior
        . Teste padrão = xlNone
    Extremidade com
    Deslocamento de Selection.Delete: =xlUp
    Escala (“A2”). Seleto
Submarino da extremidade
Outras soluções  
 
programming4us programming4us