Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2323]
Результаты поиска
krosav4ig Дата: Среда, 03.02.2016, 14:36 | Сообщение № 1361 | Тема: Сравнение элементов массивов и подсчет количества макс. элем
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а у меня немассивная формула
Код
=СЧЁТ(ИНДЕКС(1/(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(4;СМЕЩ($A$4:$A$6;;$A$3:$AD$3-1;))=$A$4:$AD$6);СТРОКА(AE1);))

или
Код
=СУММПРОИЗВ(Ч(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(4;СМЕЩ($A$4:$A$6;;$A$3:$AD$3-1;))=$A4:$AD4))
К сообщению приложен файл: 6957685.xlsx (9.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 03.02.2016, 14:39
 
Ответить
Сообщениеа у меня немассивная формула
Код
=СЧЁТ(ИНДЕКС(1/(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(4;СМЕЩ($A$4:$A$6;;$A$3:$AD$3-1;))=$A$4:$AD$6);СТРОКА(AE1);))

или
Код
=СУММПРОИЗВ(Ч(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(4;СМЕЩ($A$4:$A$6;;$A$3:$AD$3-1;))=$A4:$AD4))
Автор - krosav4ig
Дата добавления - 03.02.2016 в 14:36
krosav4ig Дата: Вторник, 02.02.2016, 16:38 | Сообщение № 1362 | Тема: использовать данные из ячейки как параметр для процедуры SQL
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Lania, у вас MS SQL Server?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеLania, у вас MS SQL Server?
Автор - krosav4ig
Дата добавления - 02.02.2016 в 16:38
krosav4ig Дата: Вторник, 02.02.2016, 16:27 | Сообщение № 1363 | Тема: является ли 5 знак четным или нет?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант :)
Код
ЕЧЁТН(МУМНОЖ(ОТБР(A1;{2;3})*1000;{-1:1}))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 02.02.2016, 16:29
 
Ответить
Сообщениееще вариант :)
Код
ЕЧЁТН(МУМНОЖ(ОТБР(A1;{2;3})*1000;{-1:1}))
Автор - krosav4ig
Дата добавления - 02.02.2016 в 16:27
krosav4ig Дата: Вторник, 02.02.2016, 16:16 | Сообщение № 1364 | Тема: Автоматический перенос строк с одного листа на другой
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант, без формул, с использованием подключений, сделал из файла Александра (_Boroda_)
К сообщению приложен файл: 7291683_3.xlsm (29.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант, без формул, с использованием подключений, сделал из файла Александра (_Boroda_)
Автор - krosav4ig
Дата добавления - 02.02.2016 в 16:16
krosav4ig Дата: Вторник, 02.02.2016, 13:19 | Сообщение № 1365 | Тема: использовать данные из ячейки как параметр для процедуры SQL
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Lania, процедура у вас должна выполняться в макросе или в подключении книги?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеLania, процедура у вас должна выполняться в макросе или в подключении книги?
Автор - krosav4ig
Дата добавления - 02.02.2016 в 13:19
krosav4ig Дата: Воскресенье, 31.01.2016, 14:18 | Сообщение № 1366 | Тема: Обратный порядок слов в ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
disub, Марина (Manyasha) просто забыла еще в 1 строке поменять разделитель[vba]
Код
Function строка_наоборот(cell As Range)
Dim arr, res$, i&
arr = Split(cell, "-")'Вот тут тоже менять разделитель
For i = UBound(arr) To 0 Step -1
res = res & arr(i) & "-"'Вот здесь менять разделитель
Next i
строка_наоборот = Mid(res, 1, Len(res) - 1)
End Function
[/vba]

еще 1 вариант UDF
[vba]
Код
Function ReverseWords$(s$, Optional delim$ = "-")
    Dim arr$(), i&
    arr = Split(StrReverse(s), delim)
    For i = 0 To UBound(arr)
        arr(i) = StrReverse(arr(i))
    Next
    ReverseWords = Join(arr, delim)
End Function
[/vba]
К сообщению приложен файл: 2687109.xls (41.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеdisub, Марина (Manyasha) просто забыла еще в 1 строке поменять разделитель[vba]
Код
Function строка_наоборот(cell As Range)
Dim arr, res$, i&
arr = Split(cell, "-")'Вот тут тоже менять разделитель
For i = UBound(arr) To 0 Step -1
res = res & arr(i) & "-"'Вот здесь менять разделитель
Next i
строка_наоборот = Mid(res, 1, Len(res) - 1)
End Function
[/vba]

еще 1 вариант UDF
[vba]
Код
Function ReverseWords$(s$, Optional delim$ = "-")
    Dim arr$(), i&
    arr = Split(StrReverse(s), delim)
    For i = 0 To UBound(arr)
        arr(i) = StrReverse(arr(i))
    Next
    ReverseWords = Join(arr, delim)
End Function
[/vba]
Автор - krosav4ig
Дата добавления - 31.01.2016 в 14:18
krosav4ig Дата: Суббота, 30.01.2016, 01:19 | Сообщение № 1367 | Тема: Изображение в форме в зависимости от активного листа
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
названия файлов должны совпадать со значениями ячейки H3, т.е. Avicularia Versicolor.jpg, Brachipelma Boehmei.jpg и т.д.
К сообщению приложен файл: 9587419.zip (42.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеназвания файлов должны совпадать со значениями ячейки H3, т.е. Avicularia Versicolor.jpg, Brachipelma Boehmei.jpg и т.д.
Автор - krosav4ig
Дата добавления - 30.01.2016 в 01:19
krosav4ig Дата: Четверг, 28.01.2016, 18:34 | Сообщение № 1368 | Тема: Число страниц на листе
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант [vba]
Код
Sheets(1).Cells(1, 24).Offset(Cnt, 0) = ExecuteExcel4Macro("get.document(50,""" & Sheets(Elem).Name & """)")
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак вариант [vba]
Код
Sheets(1).Cells(1, 24).Offset(Cnt, 0) = ExecuteExcel4Macro("get.document(50,""" & Sheets(Elem).Name & """)")
[/vba]
Автор - krosav4ig
Дата добавления - 28.01.2016 в 18:34
krosav4ig Дата: Четверг, 28.01.2016, 18:16 | Сообщение № 1369 | Тема: Создать отдельные файлы из большого файла
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вопрос на засыпку. Зачем все эти танцы с бубном? (я имею ввиду поиск позиций начала и конца раздела) Можно же [vba]
Код
ch.Sections(i).range.ExportAsFixedFormat ...
[/vba] Или я чего-то не знаю?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеВопрос на засыпку. Зачем все эти танцы с бубном? (я имею ввиду поиск позиций начала и конца раздела) Можно же [vba]
Код
ch.Sections(i).range.ExportAsFixedFormat ...
[/vba] Или я чего-то не знаю?
Автор - krosav4ig
Дата добавления - 28.01.2016 в 18:16
krosav4ig Дата: Четверг, 28.01.2016, 02:38 | Сообщение № 1370 | Тема: Создание макроса для автоматической смены данных в таблице
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Anna_Med, 28.01.2016 в 01:40, в сообщении № 1
Пример прикреплен.
чего-то я его не вижу...

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Anna_Med, 28.01.2016 в 01:40, в сообщении № 1
Пример прикреплен.
чего-то я его не вижу...
Автор - krosav4ig
Дата добавления - 28.01.2016 в 02:38
krosav4ig Дата: Четверг, 28.01.2016, 00:56 | Сообщение № 1371 | Тема: Создать отдельные файлы из большого файла
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
mechanix85, вам нужно изменить тип разрывов раздела
1 вариант: Выделяем весь документ, жмем Разметка страницы>Параметры страницы(маненькая кавдратненькая кнопочка)>Источник бумаги>Начать раздел: С нечетной страницы
2 вариант: 3 заменить один разрыв на разрыв с нечетной страницы, скопировать его (символ раздела), выполнить замену - найти: ^b, заменить на: ^c Заменить все
Теперь можно печатать весь документ сплошняком двухсторонней печатью
Если разделов немного, то можно вручную печать каждый раздел, указывая его при печати в поле диапазон страниц (s1 - первый раздел, s2- второй)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеmechanix85, вам нужно изменить тип разрывов раздела
1 вариант: Выделяем весь документ, жмем Разметка страницы>Параметры страницы(маненькая кавдратненькая кнопочка)>Источник бумаги>Начать раздел: С нечетной страницы
2 вариант: 3 заменить один разрыв на разрыв с нечетной страницы, скопировать его (символ раздела), выполнить замену - найти: ^b, заменить на: ^c Заменить все
Теперь можно печатать весь документ сплошняком двухсторонней печатью
Если разделов немного, то можно вручную печать каждый раздел, указывая его при печати в поле диапазон страниц (s1 - первый раздел, s2- второй)
Автор - krosav4ig
Дата добавления - 28.01.2016 в 00:56
krosav4ig Дата: Среда, 27.01.2016, 22:57 | Сообщение № 1372 | Тема: Как массово очистить форматы ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант, открываем файл архиватором, в файле \xl\styles.xml заменяем
Цитата
<cellStyleXfs count="..."><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/>...</cellStyleXfs>
на
Цитата
<cellStyleXfs count="1"><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/></cellStyleXfs>

и
Цитата
<cellStyles count="...">...<cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>

на
Цитата
<cellStyles count="1"><cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 27.01.2016, 22:58
 
Ответить
Сообщениекак вариант, открываем файл архиватором, в файле \xl\styles.xml заменяем
Цитата
<cellStyleXfs count="..."><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/>...</cellStyleXfs>
на
Цитата
<cellStyleXfs count="1"><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/></cellStyleXfs>

и
Цитата
<cellStyles count="...">...<cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>

на
Цитата
<cellStyles count="1"><cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>
Автор - krosav4ig
Дата добавления - 27.01.2016 в 22:57
krosav4ig Дата: Вторник, 26.01.2016, 15:24 | Сообщение № 1373 | Тема: Как массово очистить форматы ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Sopilkar, 26.01.2016 в 14:58, в сообщении № 3
как очистить сам НАБОР (или как его там назвать) форматов

макросом (Что такое макросы VBA в Excel?)
[vba]
Код
Option Explicit
Sub dd()
    Dim st As Style
    For Each st In ActiveWorkbook.Styles
    If Not st.BuiltIn Then st.Delete
    Next
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Sopilkar, 26.01.2016 в 14:58, в сообщении № 3
как очистить сам НАБОР (или как его там назвать) форматов

макросом (Что такое макросы VBA в Excel?)
[vba]
Код
Option Explicit
Sub dd()
    Dim st As Style
    For Each st In ActiveWorkbook.Styles
    If Not st.BuiltIn Then st.Delete
    Next
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 26.01.2016 в 15:24
krosav4ig Дата: Вторник, 26.01.2016, 00:31 | Сообщение № 1374 | Тема: Автоматическое заполнение данных из файла в файл
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
ссылка
еще

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 26.01.2016, 00:34
 
Ответить
СообщениеЗдравствуйте
ссылка
еще
Автор - krosav4ig
Дата добавления - 26.01.2016 в 00:31
krosav4ig Дата: Вторник, 26.01.2016, 00:13 | Сообщение № 1375 | Тема: Прочитать содержимое ячейки таблицы Excel,вставленной в Word
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
если документ рядом с exe файлом
внедренный лист сохраняется в текущую папку в файл embedded.xls
[vba]
Код
...

Uses ...,oleauto

...

procedure ExportEmbeddedXlSheet();
Var
    varWDApp,varWDDoc,varOleFormat:OleVariant;
    strPath:string;
begin
    strPath:=ExtractFilePath(ParamStr(0));
    varWDApp:=createoleobject('word.application');
    varWDdoc:=varWDApp.documents.open(strPath+'8302418.docx');
    varOleFormat:= varWDDoc.inlineshapes.item(1).oleformat;
    varOleFormat.activate;
    varOleFormat.object.activesheet.saveas(strPath+'embedded.xls',56);
    varWDdoc.close(false);
    varWDApp.Quit
end;
...
[/vba]
varOleFormat.object.activesheet - это объект класса excel.worksheet, к из него можнополучать все свойства и применять все методы, описанные тут
[offtop]
Цитата Отпрос, 25.01.2016 в 20:51, в сообщении № 3
фафла

тут читать у вместо а или й всесто ф? ^_^ [/offtop]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 26.01.2016, 04:53
 
Ответить
Сообщениеесли документ рядом с exe файлом
внедренный лист сохраняется в текущую папку в файл embedded.xls
[vba]
Код
...

Uses ...,oleauto

...

procedure ExportEmbeddedXlSheet();
Var
    varWDApp,varWDDoc,varOleFormat:OleVariant;
    strPath:string;
begin
    strPath:=ExtractFilePath(ParamStr(0));
    varWDApp:=createoleobject('word.application');
    varWDdoc:=varWDApp.documents.open(strPath+'8302418.docx');
    varOleFormat:= varWDDoc.inlineshapes.item(1).oleformat;
    varOleFormat.activate;
    varOleFormat.object.activesheet.saveas(strPath+'embedded.xls',56);
    varWDdoc.close(false);
    varWDApp.Quit
end;
...
[/vba]
varOleFormat.object.activesheet - это объект класса excel.worksheet, к из него можнополучать все свойства и применять все методы, описанные тут
[offtop]
Цитата Отпрос, 25.01.2016 в 20:51, в сообщении № 3
фафла

тут читать у вместо а или й всесто ф? ^_^ [/offtop]
Автор - krosav4ig
Дата добавления - 26.01.2016 в 00:13
krosav4ig Дата: Понедельник, 25.01.2016, 18:29 | Сообщение № 1376 | Тема: Создание динамического списка по нескольким условиям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
вариант с доп. столбцом и сводной
К сообщению приложен файл: 8187620.xlsx (17.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениевариант с доп. столбцом и сводной
Автор - krosav4ig
Дата добавления - 25.01.2016 в 18:29
krosav4ig Дата: Воскресенье, 24.01.2016, 17:23 | Сообщение № 1377 | Тема: Сумма по звум значениям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=СУММЕСЛИМН($I$5:$I$12;$D$5:$D$12;$D16;$F$5:$F$12;E$15)
или сводная
[offtop]мало того что опоздал, но и названия столбцов добавил почти такие же ... :(
К сообщению приложен файл: 3775392.xlsx (12.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 24.01.2016, 17:30
 
Ответить
Сообщение
Код
=СУММЕСЛИМН($I$5:$I$12;$D$5:$D$12;$D16;$F$5:$F$12;E$15)
или сводная
[offtop]мало того что опоздал, но и названия столбцов добавил почти такие же ... :(
Автор - krosav4ig
Дата добавления - 24.01.2016 в 17:23
krosav4ig Дата: Воскресенье, 24.01.2016, 15:13 | Сообщение № 1378 | Тема: Общие итоги в сводной таблице по определенной группировке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант УФ формула в диспетчере имен
Код
=И(ПОЛУЧИТЬ.ЯЧЕЙКУ(56;'отч по работам'!$A16)="Признак разделения";'отч по работам'!$A16<>"работники")
К сообщению приложен файл: 9774283.xlsm (16.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант УФ формула в диспетчере имен
Код
=И(ПОЛУЧИТЬ.ЯЧЕЙКУ(56;'отч по работам'!$A16)="Признак разделения";'отч по работам'!$A16<>"работники")
Автор - krosav4ig
Дата добавления - 24.01.2016 в 15:13
krosav4ig Дата: Воскресенье, 24.01.2016, 02:33 | Сообщение № 1379 | Тема: Программно нижний колонтитул в Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
А можно без VBA? ;)
К сообщению приложен файл: 7044400_2.xls (70.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 24.01.2016, 06:27
 
Ответить
СообщениеА можно без VBA? ;)
Автор - krosav4ig
Дата добавления - 24.01.2016 в 02:33
krosav4ig Дата: Суббота, 23.01.2016, 20:12 | Сообщение № 1380 | Тема: Выдает ошибку при использовании SQL запроса из Excel vba
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
немного опоздал :(
добавлю, что диапазон нужно не просто очищать, а удалять, ибо остаются подключения
добавил еще 1 вариант на Лист2
[vba]
Код
Sub SQLQuery_1()
    Dim varConn As String
    Dim varSQL As String
    
    Range("A1").CurrentRegion.Delete xlUp
    
    varConn = "ODBC;DSN=MS Access Database;DriverId=25;DBQ=База данных7.accdb_;DefaultDir=" & ThisWorkbook.Path
    varSQL = "SELECT Имя, Фамилия, Должность FROM Таблица1"
    
    With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1"))
        .CommandText = varSQL
        .Name = "Query-39008"
        .Refresh BackgroundQuery:=False
    End With
End Sub
[/vba]
К сообщению приложен файл: SQL_.xlsm (28.2 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Суббота, 23.01.2016, 20:12
 
Ответить
Сообщениенемного опоздал :(
добавлю, что диапазон нужно не просто очищать, а удалять, ибо остаются подключения
добавил еще 1 вариант на Лист2
[vba]
Код
Sub SQLQuery_1()
    Dim varConn As String
    Dim varSQL As String
    
    Range("A1").CurrentRegion.Delete xlUp
    
    varConn = "ODBC;DSN=MS Access Database;DriverId=25;DBQ=База данных7.accdb_;DefaultDir=" & ThisWorkbook.Path
    varSQL = "SELECT Имя, Фамилия, Должность FROM Таблица1"
    
    With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1"))
        .CommandText = varSQL
        .Name = "Query-39008"
        .Refresh BackgroundQuery:=False
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 23.01.2016 в 20:12
Мир MS Excel » Записи участника » krosav4ig [2323]
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!