Frage : Kompatible Störung in Excel 2003

Hallo, möchte

I Expertenhilfe fordern. Die angebrachte Akte ist wirklich umgewandelte Version von Excel 2007. Jedoch zeigt die umgewandelte Version Störungen wie:

>> kompilieren Störung, die verbraucherbestimmte nicht definierte Art (module_ VorSendMail (txtEmail als Schnur) _Module verdunkeln 2
„Funktion SendMsg (strSubject als Schnur, _
strBody als Schnur, _
strTO als Schnur, _
wahlweise freigestelltes strDoc als Schnur, _
wahlweise freigestelltes strCC als Schnur, _
wahlweise freigestelltes strBCC als Schnur)

oLapp als Outlook.Application“

And

Runtime Störung: Unterstützung des Gegenstandes nicht diese Art der Methode (privates Unterseeboot CommandButton1_Click ()) an _Userform1

.TintAndShade = 0

At

Sub ClearRows () _ Modul 4
.TintAndShade = 0

Hope Experten kann mir helfen, dieses Störungen zu korrigieren damit sein bearbeitbares in Excel 2003. Ich habe auch den kompatiblen Report für Expertendurchsicht angebracht.

Attachments:

Excel2003.xls (198 KBs) (Akten-Art Details)

xls

Antwort : Kompatible Störung in Excel 2003

FYI das Projekt war verschlossen und nicht sogar erkennen umgeben oder formatieren mit einer Bibliotheksstörung.
Sowieso diese Änderungen versuchen.


Für die Funktion SendMsg in Module1

Funktion SendMsg (strSubject als Schnur, _
                   strBody als Schnur, _
                   strTO als Schnur, _
                   Wahlweise freigestelltes strDoc als Schnur, _
                   Wahlweise freigestelltes strCC als Schnur, _
                   Wahlweise freigestelltes strBCC als Schnur)
       
    Schwaches oLapp
    Schwaches oItem
    Schwache myattachments

    oLapp = CreateObject („Outlook.Application“) einstellen
    oItem = oLapp.CreateItem (olMailItem) einstellen

    oItem.Subject = strSubject
    oItem.To = strTO
    oItem.CC = strCC
    Wenn Blätter („Hauptleitung“) .CheckBoxes („Überprüfungs-Kasten 1“) = 1 dann oItem.CC = „[email protected]“
    oItem.BCC = strBCC
    oItem.BodyFormat = olFormatHTML
    oItem.HTMLBody = strBody
    oItem.Importance = olImportanceHigh
   
   
    oItem.Display
   
   
   
    oLapp einstellen = nichts
    oItem einstellen = nichts
       
Funktion beenden

in userform1:

Privates Unterseeboot CommandButton1_Click ()
Schwaches ws1 als Arbeitsblatt
Schwaches ws2 als Arbeitsblatt
Schwaches rng als Strecke
Schwaches celle als Strecke
I als lang verdunkeln
N als lang verdunkeln
R als lang verdunkeln

Einstellen ws1 = Blätter („Hauptleitung“)
Einstellen ws2 = Blätter („Report“)
Mit ws1
    Rng einstellen =. Strecke (. Zellen (2, „A“). Zellen (. Rows.Count, „A“). Ende (xlUp))
Ende mit

Für i = 0 zu Me.ListBox1.ListCount - 1
    Wenn Me.ListBox1.Selected (i) = dann ausrichten
        Für n = 0 zu Me.ListBox2.ListCount - 1
            Wenn Me.ListBox2.Selected (N) = dann ausrichten
                Für jedes celle im rng
                    Wenn celle = Me.ListBox1.List (i) und CStr (celle. Versatz (0, 8)) = CStr (Me.ListBox2.List (N)) dann
                        ws1.Range (ws1.Cells (celle. Reihe, „A“), ws1.Cells (celle. Reihe, „E“)). _ Kopieren
                            ws2.Cells (ws2.Rows.Count, „A“). Ende (xlUp). Versatz (1, 0)
                    Beenden wenn
                Folgendes celle
            Beenden wenn
        Folgendes n
    Beenden wenn
Zunächst I
Mit ws2
    r =. Strecke („A“ u. Rows.Count). Ende (xlUp). Reihe
    . Zellen (R+ 1, „E“) = „Gesamtsumme“
    . Zellen (R+ 2, „E“) = WorksheetFunction.Sum (. Strecke („E2: E“ u. r))
    . Zellen (R+ 2, „E“) .NumberFormat =“ [h]: Millimeter "
    . Zellen (R+ 2, „E“). Font.ColorIndex = 30
    . Zellen (R+ 1, „E“). Font.ColorIndex = 30
    . Zellen (R+ 2, „E“). Font.Bold = ausrichten en
    . Zellen (R+ 1, „E“). Font.Bold = ausrichten en
    Mit. Strecke („A2: E“ u. r)
        .FormatConditions.Delete
        .FormatConditions.Add Art: =xlExpression, Formula1: = " =MOD (REIHE (), 2)=0 "
        .FormatConditions (1).Interior.ColorIndex = 20
    Ende mit
    Mit. Strecke („A“ u. R+ 1 u.“: E " u. R+ 2)
        . Einfaßt (xlDiagonalDown) .LineStyle = xlNone
        . Einfaßt (xlDiagonalUp) .LineStyle = xlNone
        . Einfaßt (xlEdgeLeft) .LineStyle = xlNone
        . Einfaßt (xlEdgeRight) .LineStyle = xlNone
        . Einfaßt (xlInsideVertical) .LineStyle = xlNone
        . Einfaßt (xlInsideHorizontal) .LineStyle = xlNone
        Mit. Ränder (xlEdgeTop)
            .LineStyle = xlDouble
            .ColorIndex = xlAutomatic
            . Gewicht = xlThick
        Ende mit
        Mit. Ränder (xlEdgeBottom)
            .LineStyle = xlDouble
            .ColorIndex = xlAutomatic
            . Gewicht = xlThick
        Ende mit
    Ende mit

   
Ende mit
Anruf Module1.checker
Enden-Unterseeboot

--- in Modul 4, clearrows

VorClearRows ()

    Strecke („A2: E1000“). Auserwählt
    Mit Selection.Interior
        . Muster = xlNone
    Ende mit
    Selection.Delete Verschiebung: =xlUp
    Strecke („A2“). Auserwählt
Enden-Unterseeboot