ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Представление таблицы в Pivot-ной форме
9 сообщений из 9, страница 1 из 1
Представление таблицы в Pivot-ной форме
    #32688023
Kwazimoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kwazimoda
Участник
1. Подскажите, как программно по уму сделать открытие таблицы через Exel в Pivot-ной форме с установленными параметрами (такие-то столбцы в том-то месте). Чтобы можно было потом сохранить этот файл, если нужно.
2. Как автоматически определить путь по которому лежит ета *.mdb, может какая функция есть? И вообще там как получить путь виндузовской папки TEMP(по-умолчанию), например?
Буду рад рассмотреть любые идеи.
...
Рейтинг: 0 / 0
09.09.2004, 16:39:58
| Ответить | Цитировать | Написать  
Представление таблицы в Pivot-ной форме
    #32688047
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
Set Fso = CreateObject("Scripting.FileSystemObject")
Set tfolder = fso.GetSpecialFolder(2)
...
Рейтинг: 0 / 0
09.09.2004, 16:45:39
| Ответить | Цитировать | Написать  
Представление таблицы в Pivot-ной форме
    #32688050
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
это было как найти временную папку
...
Рейтинг: 0 / 0
09.09.2004, 16:46:20
| Ответить | Цитировать | Написать  
Представление таблицы в Pivot-ной форме
    #32688100
Kwazimoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kwazimoda
Участник
АлексейКSet Fso = CreateObject("Scripting.FileSystemObject")
Set tfolder = fso.GetSpecialFolder(2)

Алексей, а не мог бы ты пояснить как это использовать, я к сожалению пока не сильно разбираюсь в тонкостях VBA.
...
Рейтинг: 0 / 0
09.09.2004, 17:04:00
| Ответить | Цитировать | Написать  
Представление таблицы в Pivot-ной форме
    #32688113
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
ставишь этот код в любой модуль где надо узнать имя временной папки
если нужен этот путь то присвой нужной переменной

Set Fso = CreateObject("Scripting.FileSystemObject")
Set tfolder = fso.GetSpecialFolder(2)
путьквременнойпапке = tfolder
...
Рейтинг: 0 / 0
09.09.2004, 17:07:43
| Ответить | Цитировать | Написать  
Представление таблицы в Pivot-ной форме
    #32688251
Kwazimoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kwazimoda
Участник
2АлексейК
При запуске этой процедуры VBA ругается на переменную fso ошибкой:
Object required (Error 424)
А какого формата fso, tfolder - string ?
...
Рейтинг: 0 / 0
09.09.2004, 17:47:57
| Ответить | Цитировать | Написать  
Представление таблицы в Pivot-ной форме
    #32688259
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
variant
...
Рейтинг: 0 / 0
09.09.2004, 17:49:54
| Ответить | Цитировать | Написать  
Представление таблицы в Pivot-ной форме
    #32688266
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Public Sub tst()
Dim fso
Dim tfolder

Set fso = CreateObject("Scripting.FileSystemObject")
Set tfolder = fso.GetSpecialFolder( 2 )
MsgBox tfolder
End Sub
...
Рейтинг: 0 / 0
09.09.2004, 17:52:07
| Ответить | Цитировать | Написать  
Представление таблицы в Pivot-ной форме
    #32688317
Kwazimoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kwazimoda
Участник
Все заработало, спасибо !
А вот нельзя ли определить по какому пути расположена сама база ?
...
Рейтинг: 0 / 0
09.09.2004, 18:08:47
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Представление таблицы в Pivot-ной форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32688259&tid=1671870]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 46ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 199ms
total:  318ms
созд. / загр.: 318ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]