Question : Exporter le Tableau et exclure un champ dans l'exportation

Je voudrais exporter une table dans Excel et exclure un champ de la table dans l'exportation (sans employer une question en tant que type d'objet de te) que je hping pour employer une commande SQL Pour définir les champs pour exporter plutôt que le table.

Is ceci possible ? class= de

Réponse : Exporter le Tableau et exclure un champ dans l'exportation

gpotenza,

Assumer cela :
1) Le nom de table est toujours identique
2) Vous avez une colonne que vous voulez exclure, et son nom ne change jamais

essayer alors ceci.

Patrick
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 :
64 :

ExportToExcel secondaire ()
    
    'attache en retard d'utilisations pour Excel
    
    Faibles rs COMME DAO.Recordset
    Faible xlApp comme objet
    Faible xlWb comme objet
    Faibles xlWs comme objet
    Faible compteur en tant que longtemps
    Faible numération colonne en tant que longtemps
    
    Const SaveToPath comme corde = « _ de c:\Results\Report »
    Const SQL comme corde = « CHOISISSENT * À PARTIR [SomeTable] »
    Const ColumnToDelete comme corde = « DeleteMe »
    
    Placer les rs = le CurrentDb.OpenRecordset (le SQL)
    
    'instancier l'objet d'Excel
    
    Placer le xlApp = le CreateObject (« Excel.Application »)
    xlApp.DisplayAlerts = faux
    Placer le xlWb = le xlApp.Workbooks.Add
    Placer les xlWs = le xlWb.Worksheets (1)
    Avec des xlWs
        'écrire les titres de recordset
        Pour le compteur = 0 aux rs. Fields.Count - 1
            . Cellules (1, contre- + 1) = rs. Champs (contre-). Nom
        Après
        . Cellules (2, rs 1).CopyFromRecordset
        Si xlApp.CountIf (. Gamme (« 1 : 1 »), ColumnToDelete) > 0 puis
            Numération colonne = xlApp.Match (ColumnToDelete. Gamme (« 1 : 1 »), 0)
            . Cellules (1, numération colonne) .EntireColumn.Delete
        Finir si
    Finir avec
    
    'Excel 2007/2010 exige du format de fichier d'être spécifié, ainsi du contrôle
    'pour la version d'application.  voir pour plus d'information :
    'http://www.dailydoseofexcel.com/archives/2006/10/29/saveas-in-excel-2007/
    
    Si Val (xlApp.Version)  < 12="" Then="" xlWb="">
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