Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как запустить Access из Excel? / 7 сообщений из 7, страница 1 из 1
10.10.2005, 16:21:36
    #33315523
NBSD
NBSD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как запустить Access из Excel?
Как находясь в Экселе программно (VBA) запустить Access (открыть в нем файл) и выполнить сохранение (Аксесом) открытого файла.

Сорри, если путано. Может кто-то так делал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2005, 23:02:00
    #33318561
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как запустить Access из Excel?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Sub OpenFileByAccApp()
    Dim accApp As Access.Application
    Dim strDatabase As String
    
    Set accApp = New Access.Application
    
    strDatabase = "E:\1\dbNew.mdb"
    
    With accApp
        .NewCurrentDatabase strDatabase
        .DoCmd.TransferDatabase acImport, "dBase IV", _
          "E:\1\", acTable, "Book.dbf", "tblNew", False
        .Visible = True
    End With
    
    Set accApp = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2005, 13:58:18
    #33320023
NBSD
NBSD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как запустить Access из Excel?
супер!! большое спасибо!

если можно еще 1 нюанс:

accApp.OpenAccessProject "C:\kemer\Dev\ImportGen\IMPORT2.DBF" - не видит файл ("или открыт др. пользователем монопольно"), хотя файл есть и не открыт.

Т.е. как открыть тем же методом DBF?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2005, 15:46:32
    #33320463
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как запустить Access из Excel?
Из хелпа.

OpenCurrentDatabase
You can use the OpenCurrentDatabase method to open an existing Microsoft Access database (. mdb ) as the current database.

OpenAccessProject
You can use the OpenAccessProject method to open an existing Microsoft Access project (. adp ) as the current Access project in the Microsoft Access window.

Этими методами нельзя открыть dbf или другие файлы.

NBSDТ.е. как открыть DBF?
См. мое предыдущее сообщение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2005, 17:48:46
    #33320921
NBSD
NBSD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как запустить Access из Excel?
Пользователь2
Этими методами нельзя открыть dbf или другие файлы.


есть ли альтернатива? идею вроде понял, так что может направишь, где почитать об этом подробнее?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2005, 20:47:23
    #33321248
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как запустить Access из Excel?
С dbf можно работать через ADO.DAO почитай про это.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2005, 12:39:58
    #33322280
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как запустить Access из Excel?
Смотри. Если я открою Access, нажму открыть, выберу Dbf базу. Access автоматически создат базу с прилинкованной таблицей, с таким же именем и в той же директории, где база Dbf.

Эти действия равносильны вот такому коду:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
    ' Dbf находится в папке E:\1\Book.dbf.
    
    Dim accApp As Access.Application
    Dim strDatabase As String
    
    Set accApp = New Access.Application
    
    strDatabase = "E:\1\Book.mdb"
    
    With accApp
        .NewCurrentDatabase strDatabase
        .DoCmd.TransferDatabase acLink, "dBase IV", _
          "E:\1\", acTable, "Book.dbf", "Book", False
        .Visible = True
    End With
    
    Set accApp = Nothing

Можно сделать еще проще:

Код: plaintext
1.
    Call Shell("C:\Program Files\Microsoft Office\Office11\Msaccess.exe " _
      & "E:\1\Book.dbf", vbMaximizedFocus)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как запустить Access из Excel? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 417ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2167032]:
 0ms
get settings:
 11ms
get forum list:
 21ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 69ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 233ms
total:  417ms
x
x
Закрыть


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