Vraag : De Lijst van de uitvoer en sluit een gebied in de uitvoer uit

Typen Ik zou een lijst willen uitvoeren in Excel en een gebied uitsluiten van de lijst in de uitvoer (zonder een vraag aangezien te voorwerp te gebruiken) ik hping om een SQL verklaring te gebruiken om de gebieden te bepalen om eerder dan table.

Is dit uit te voeren mogelijk?

Antwoord : De Lijst van de uitvoer en sluit een gebied in de uitvoer uit

gpotenza,

Veronderstellend dat:
1) De lijstnaam is altijd het zelfde
2) U hebt één kolom u, en zijn naam nooit wilt uitsluiten veranderingen

dan probeer dit.

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:

Sub ExportToExcel ()
    
    'gebruiks recente band voor Excel
    
    Schemerige rs ALS DAO.Recordset
    Schemerige xlApp als Voorwerp
    Schemerige xlWb als Voorwerp
    Schemerige xlWs als Voorwerp
    Schemerige Teller zoals lang
    Schemerige ColNumber zoals lang
    
    Const SaveToPath als Koord = „c:\Results\Report _“
    Const SQL als Koord = „SELECTEERT * VAN [SomeTable]“
    Const ColumnToDelete als Koord = „DeleteMe“
    
    Reeks rs = CurrentDb.OpenRecordset (SQL)
    
    'concretiseer het voorwerp van Excel
    
    Plaats xlApp = CreateObject („Excel.Application“)
    xlApp.DisplayAlerts = Vals
    Reeks xlWb = xlApp.Workbooks.Add
    Reeks xlWs = xlWb.Worksheets (1)
    Met xlWs
        'schrijf recordset rubrieken
        Voor Teller = 0 aan rs. Fields.Count - 1
            . Cellen (1, Teller + 1) = rs. Gebieden (Tegen). Naam
        Daarna
        . Cellen (2, 1) .CopyFromRecordset rs
        Als xlApp.CountIf (. Waaier („1: 1“), ColumnToDelete) > 0 toen
            ColNumber = xlApp.Match (ColumnToDelete. Waaier („1: 1“), 0)
            . Cellen (1, ColNumber) .EntireColumn.Delete
        Eind als
    Eind met
    
    'Excel 2007/2010 vereist dat het dossierformaat worden gespecificeerd, zo controle
    'voor toepassingsversie.  zie voor meer info:
    'http://www.dailydoseofexcel.com/archives/2006/10/29/saveas-in-excel-2007/
    
    Als Val (xlApp.Version)  < 12="" Then="" xlWb="">
Andere oplossingen  
 
programming4us programming4us