Questione : Esportare la Tabella ed escludere un campo nell'esportazione

Vorrei esportare una tabella in Excel ed escludere un campo dalla tabella nell'esportazione (senza usando una domanda come tipo di oggetto del te) che hping per usare una dichiarazione di SQL per definire i campi per esportare piuttosto che il table.

Is questo possibile? class= del

Risposta : Esportare la Tabella ed escludere un campo nell'esportazione

gpotenza,

Ammettere quello:
1) Il nome della tabella è sempre lo stesso
2) Avete una colonna che volete escludere ed il relativo nome non cambia mai

allora provare questo.

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 secondario ()
    
    'grippaggio ritardato di usi per Excel
    
    Rs fiochi COME DAO.Recordset
    xlApp fioco come oggetto
    xlWb fioco come oggetto
    xlWs fiochi come oggetto
    Contatore fioco come lungamente
    ColNumber fioco come lungamente
    
    Const SaveToPath come stringa = “_ di c:\Results\Report„
    Const SQL come stringa = “SELEZIONA * A PARTIRE [SomeTable]„
    Const ColumnToDelete come stringa = “DeleteMe„
    
    Regolare i rs = CurrentDb.OpenRecordset (SQL)
    
    'esemplificare l'oggetto di Excel
    
    Regolare il xlApp = CreateObject (“Excel.Application„)
    xlApp.DisplayAlerts = falso
    Regolare il xlWb = xlApp.Workbooks.Add
    Regolare i xlWs = xlWb.Worksheets (1)
    Con i xlWs
        'scrivere le intestazioni del recordset
        Per il contatore = 0 ai rs. Fields.Count - 1
            . Cellule (1, contro + 1) = rs. Campi (contro). Nome
        Dopo
        . Cellule (2, rs 1).CopyFromRecordset
        Se xlApp.CountIf (. Gamma (“1: 1„), ColumnToDelete) > 0 allora
            ColNumber = xlApp.Match (ColumnToDelete. Gamma (“1: 1„), 0)
            . Cellule (1, ColNumber) .EntireColumn.Delete
        Concluder se
    Concluder con
    
    'Excel 2007/2010 richiede il formato di file di essere specificato, in modo da il controllo
    'per la versione di applicazione.  vedere per più Info:
    'http://www.dailydoseofexcel.com/archives/2006/10/29/saveas-in-excel-2007/
    
    Se Val (xlApp.Version)  < 12="" Then="" xlWb="">
Altre soluzioni  
 
programming4us programming4us