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

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

Set Fso = CreateObject("Scripting.FileSystemObject")
Set tfolder = fso.GetSpecialFolder(2)
путьквременнойпапке = tfolder
...
Рейтинг: 0 / 0
09.09.2004, 17:47:57
    #32688251
Kwazimoda
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Представление таблицы в Pivot-ной форме
2АлексейК
При запуске этой процедуры VBA ругается на переменную fso ошибкой:
Object required (Error 424)
А какого формата fso, tfolder - string ?
...
Рейтинг: 0 / 0
09.09.2004, 17:49:54
    #32688259
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Представление таблицы в Pivot-ной форме
variant
...
Рейтинг: 0 / 0
09.09.2004, 17:52:07
    #32688266
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Представление таблицы в Pivot-ной форме
Код: 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, 18:08:47
    #32688317
Kwazimoda
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Представление таблицы в Pivot-ной форме
Все заработало, спасибо !
А вот нельзя ли определить по какому пути расположена сама база ?
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Представление таблицы в Pivot-ной форме / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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