Question : Excel envoyant la feuille de travail

Salut les experts, le

Hope quelqu'un peuvent assister ceci car j'ai passé la plupart de deux jours essayant d'ajuster ce morceau de code à envoyer une feuille de travail basée sur un code de groupement. J'espère qu'il peut être tordu plutôt que changé entièrement. En outre, plus le meilleur est plus simplifié (si possible) comme je suis un newbie.

Data est entré dans la fiche technique. Il y a un code de groupement appelé la région. le

There est une feuille de distribution qui a les champs suivants : Région et destinataire. Le champ de région de la fiche technique est manuallly entré en colonne A avec le nom de destinataires. Quand le macro « SendItAll » est couru, il copie les données de la fiche technique dans la feuille de rapport basée sur le code de groupement dans la DG Télécommunications et envoie la feuille de travail au destinataire appelé. les issues du

The sont : le

quand la feuille de travail est créée pour l'envoi par courrier électronique de lui ne ressemble pas à la feuille de rapport pendant qu'il perd etc. de composition. Également la feuille de rapport elle-même doit être restructurée chaque fois après que le macro soit couru. comment est-ce que je peux améliorer le code pour éliminer cette restructuration ou données absentes dans etc. des rangées 1 et 2 ? le

Secondly, quand la feuille de travail est envoyée comment peux j'obtenir écrit dans le morceau de code une ligne standard dans le corps du message énonçant (le nom du destinataire) et à « veuillez trouver ci-joint des résultats » et du respect pendant que le dossier du

Sample de fermeture etc… attachait… le macro s'appelle les mercis à l'avance
du

Many de « Senditall " class= " lastRow de
>Attachments de " nom " de class= de
class= " valeur " de
>

class= " fileInfo " de
le title= " de " nom de fichier de class= " de Results-Test.xlsm le class= (115 KBS)  Javascript de href= " de " attachmentDetails de class= " de (type de dossier détails)  
class= " description " de
Échantillon File
le class= de
de >
class= de

Réponse : Excel envoyant la feuille de travail

Cet extrait de code emploie l'objet de perspectives, pour créer un message de courrier qui sera sauvé dans vos ébauches.

Changement. Économiser à. Envoyer pour l'envoyer immédiatement mais ceci pourrait soulever des questions avec vos arrangements de sécurité.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
SendItAll secondaire public ()
    
    Faible outlookApp
    Faible mItem
    Faible lRow en tant que longtemps
    Sur le résumé d'erreur après
    Placer l'outlookApp = le GetObject ("", « Outlook.Application »)
    Si Err.Number <> 0 puis
        Placer l'outlookApp = le CreateObject (« Outlook.Application », le "")
    Finir si
    Sur l'erreur 0 GoTo
    Application.ScreenUpdating = Fase
    lRow = feuilles de travail (« données »). Gamme (« A65536 »). Extrémité (xlUp). Rangée
    'Clair dehors toutes vieilles données sur le rapport
    Feuilles (« rapport »). Choisi
    Gamme (« A4 : ANNONCE » et lRow) .ClearContents
    'Données de sorte par région
    'Feuilles (« données »). Choisi
    'Gamme (« A1 ») .CurrentRegion.Select
    'Selection.Sort Key1 : =Range (« A2 »), en-tête : =xlYes
    'Traiter chaque disque sur la distribution
    Feuilles (« distribution »). Choisi
    FinalRow = gamme (« A50 »). Extrémité (xlUp). Rangée
    Pour I = 2 à FinalRow
        Feuilles (« distribution »). Choisi
        RegionToGet = gamme (« A » et i). Valeur
        Destinataire = gamme (« B » et i). Valeur
        'Clair dehors toutes vieilles données sur le rapport
        Feuilles (« rapport »). Choisi
        Gamme (« A4 : ANNONCE » et lRow) .ClearContents
        'Obtenir les disques des données
        Feuilles (« données »). Choisi
        Gamme (« A1 ») .CurrentRegion.Select
        'Allumer AutoFilter, s'il n'est pas allumé
        Si ActiveSheet.AutoFilterMode = puis Selection.AutoFilter faux
        'Filtrer les données juste à cette région
        Champ de Selection.AutoFilter : =1, Criteria1 : =RegionToGet
        'Choisir seulement les cellules évidentes et copier pour rapporter
        Selection.SpecialCells (xlCellTypeVisible). Choisir
        Destination de Selection.Copy : =Sheets (« rapport »). Gamme (« A4 »)
        'Arrêter l'Autofilter
        Selection.AutoFilter
        'Copier la feuille de rapport à un nouveau livre et à un email
        Feuilles (« rapport »). Copie
        ActiveWorkbook.SaveAs « C:\Windows\temp\book123.xls »
        
'        Application.Dialogs (xlDialogSendMail). Montrer le _
'            arg1 : =Recipient, _
'            arg2 : = " rapport - « et RegionToGet
        Placer le mItem = l'outlookApp.CreateItem (l'olMailItem)
        Avec le mItem
            . À = destinataire
            . Sujet = « rapport - » et RegionToGet
            . Le corps = « ceci est votre rapport »
            . Attachments.Add « C:\Windows\temp\book123.xls »
            . Économiser
        Finir avec
        ActiveWorkbook.Close SaveChanges : =False
        Mise à mort « C:\Windows\temp\book123.xls »
        Application.ScreenUpdating = Fase
      
    Après i
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us