Cuestión : Exportar la tabla y excluir un campo en la exportación

¿Quisiera exportar una tabla en Excel y excluir un campo de la tabla en la exportación (sin usar una pregunta como tipo de objeto del te) que hping para utilizar una declaración de SQL para definir los campos para exportar algo que el table.

Is esto posible? class= del

Respuesta : Exportar la tabla y excluir un campo en la exportación

gpotenza,

Si se asume eso:
1) El nombre de la tabla es siempre igual
2) Usted tiene una columna que usted quiere excluir, y su nombre nunca cambia

entonces intentar esto.

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 secundario ()
    
    'último atascamiento de las aplicaciones para Excel
    
    Rs déviles COMO DAO.Recordset
    xlApp dévil como objeto
    xlWb dévil como objeto
    xlWs déviles como objeto
    Contador dévil como de largo
    ColNumber dévil como de largo
    
    Const SaveToPath como secuencia = “_ de c:\Results\Report”
    Const SQL como secuencia = “SELECCIONA * DE [SomeTable]”
    Const ColumnToDelete como secuencia = “DeleteMe”
    
    Fijar los rs = CurrentDb.OpenRecordset (el SQL)
    
    'ejemplificar el objeto de Excel
    
    Fijar el xlApp = CreateObject (“Excel.Application”)
    xlApp.DisplayAlerts = falso
    Fijar el xlWb = xlApp.Workbooks.Add
    Fijar los xlWs = xlWb.Worksheets (1)
    Con los xlWs
        'escribir los títulos del recordset
        Para el contador = 0 a los rs. Fields.Count - 1
            . Células (1, + 1) contrario = rs. Campos (contrarios). Nombre
        Después
        . Células (2, rs 1).CopyFromRecordset
        Si xlApp.CountIf (. Gama (“1: 1”), ColumnToDelete) > 0 entonces
            ColNumber = xlApp.Match (ColumnToDelete. Gama (“1: 1”), 0)
            . Células (1, ColNumber) .EntireColumn.Delete
        Terminar si
    Terminar con
    
    'Excel 2007/2010 requiere el formato de archivo ser especificado, así que el cheque
    'para la versión del uso.  ver para más Info:
    'http://www.dailydoseofexcel.com/archives/2006/10/29/saveas-in-excel-2007/
    
    Si Val (xlApp.Version)  < 12="" Then="" xlWb="">
Otras soluciones  
 
programming4us programming4us