Вопрос : Ехпортируйте таблицу и исключите поле в экспорте

Я хотел был бы ехпортировать таблицу в Эксел и исключить поле от таблицы в экспорте (без использования вопроса как тип предмета te), котор я hping для использования заявления SQL определить поля для того чтобы ехпортировать довольно чем table.

Is это по возможности? class=

Ответ : Ехпортируйте таблицу и исключите поле в экспорте

gpotenza,

Если допустить, что:
1) Имя таблицы всегда этим же
2) Вы имеете одну колонку, котор вы хотите исключить, и свое имя никогда не изменяет

после этого попытайтесь это.

Патрик
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 ()
    
    'вязка польз последняя для Эксел
    
    Тусклые rs КАК DAO.Recordset
    Тусклое xlApp как предмет
    Тусклое xlWb как предмет
    Тусклые xlWs как предмет
    Тусклый счетчик как длиной
    Тусклый ColNumber как длиной
    
    Const SaveToPath как шнур = «_ c:\Results\Report»
    Const SQL как шнур = «ВЫБИРАЕТ * ОТ [SomeTable]»
    Const ColumnToDelete как шнур = «DeleteMe»
    
    Установите rs = CurrentDb.OpenRecordset (SQL)
    
    'instantiate предмет Эксел
    
    Установите xlApp = CreateObject («Excel.Application»)
    xlApp.DisplayAlerts = ложно
    Установите xlWb = xlApp.Workbooks.Add
    Установите xlWs = xlWb.Worksheets (1)
    С xlWs
        'напишите рубрики recordset
        Для счетчика = 0 к rs. Fields.Count - 1
            . Клетки (1, встречное + 1) = rs. Поля (встречные). Имя
        Затем
        . Клетки (2, rs 1).CopyFromRecordset
        Если xlApp.CountIf, то (. Ряд («1: 1»), ColumnToDelete) > 0 после этого
            ColNumber = xlApp.Match (ColumnToDelete. Ряд («1: 1»), 0)
            . Клетки (1, ColNumber) .EntireColumn.Delete
        Закончитесь если
    Закончитесь с
    
    'Эксел 2007/2010 требует, что формата файла определена, поэтому проверка
    'для варианта применения.  см. для больше info:
    'http://www.dailydoseofexcel.com/archives/2006/10/29/saveas-in-excel-2007/
    
    Если Val, то (xlApp.Version)  < 12="" Then="" xlWb="">
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us