Frage : Tabelle exportieren und ein Feld im Export ausschließen

Ich möchte eine Tabelle in Excel exportieren und ein Feld von der Tabelle im Export ausschließen (ohne eine Frage als te Objekt-Typ zu verwenden), das ich hping, um eine SQL-Aussage zu verwenden, um die Felder zu definieren, um eher als das table.

Is mögliches dieses zu exportieren?

Antwort : Tabelle exportieren und ein Feld im Export ausschließen

gpotenza,

Annehmen das:
1) Der Tabellenname ist immer der selbe
2) Sie haben eine Spalte, die Sie ausschließen möchten, und sein Name ändert nie

dieses dann versuchen.

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:
6:
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:

VorExportToExcel ()
    
    'späte Schwergängigkeit des Gebrauches für Excel
    
    Schwache rs ALS DAO.Recordset
    Schwaches xlApp als Gegenstand
    Schwaches xlWb als Gegenstand
    Schwache xlWs als Gegenstand
    Schwacher Kostenzähler als lang
    Schwacher ColNumber als lang
    
    Const SaveToPath als Schnur = „c:\Results\Report _“
    Const SQL als Schnur = „VORWÄHLEN * VON [SomeTable]“
    Const ColumnToDelete als Schnur = „DeleteMe“
    
    Rs = CurrentDb.OpenRecordset (SQL) einstellen
    
    'instantiate Excel-Gegenstand
    
    xlApp = CreateObject („Excel.Application“) einstellen
    xlApp.DisplayAlerts = falsch
    xlWb = xlApp.Workbooks.Add einstellen
    xlWs = xlWb.Worksheets einstellen (1)
    Mit xlWs
        'recordset Überschriften schreiben
        Für Kostenzähler = 0 zu den rs. Fields.Count - 1
            . Zellen (1, Gegen+ 1) = rs. Felder (Gegen). Name
        Zunächst
        . Zellen (2, rs 1).CopyFromRecordset
        Wenn xlApp.CountIf (. Strecke („1: 1“), ColumnToDelete) > 0 dann
            ColNumber = xlApp.Match (ColumnToDelete. Strecke („1: 1“), 0)
            . Zellen (1, ColNumber) .EntireColumn.Delete
        Beenden wenn
    Mit beenden
    
    'Excel 2007/2010 erfordert das Dateiformat spezifiziert zu werden, also Überprüfung
    'für Anwendungsversion.  für mehr Info sehen:
    'http://www.dailydoseofexcel.com/archives/2006/10/29/saveas-in-excel-2007/
    
    Wenn Val (xlApp.Version)  < 12="" Then="" xlWb="">
Weitere Lösungen  
 
programming4us programming4us