Загрузка БД Access в Excel

[maksimka2112]

Подскажите, пожалуйста, как сделать так, чтобы при нажатии кнопки открывалось окно с выбором бд для загрузки и, после выбора бд, она загружалась, начиная от ячейки B5 ? БД аксесовская

[motorway]

Вообще есть в меню Данные - из Access.

[maksimka2112]

Ну вот как загрузить базу данных догадался (с помощью макроса, хотя код получился очень некрасивый). А когда поработал с листом, надо сделать так, чтобы изменений сохранились в бд. Как это осуществить, не подскажите?

[maksimka2112]

Блииин...Вставляю приведённый код, нажимаю на кнопку и БД загружается. Произвожу какие-то изменения на листе, опять жму на кнопку - данные перезагружаются в заданном диапазоне и плюс загружаются эти же данные в соседнем диапазоне...как тут быть?

Private Sub CommandButton1_Click()
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=База данных MS Access;DBQ=D:\uchoba\ДИПЛОМ\vba\проба\р\exprmnt\коп\ИС_РЭПи.mdb;DefaultDir=D:\uchoba\ДИПЛОМ\vba\проба\р\expr" _
        ), Array("mnt\коп;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")) _
        , Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT АКТИВ.АКТИВ, АКТИВ.`Код показателя`, АКТИВ.`На начало отчетного периода`, АКТИВ.`На конец отчетного периода`" & Chr(13) & "" & Chr(10) & "FROM `D:\uchoba\ДИПЛОМ\vba\проба\р\exprmnt\коп\ИС_РЭПи`.АКТИВ АКТИВ" _
        )
        .Name = "Запрос из База данных MS Access"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

[doober]

Вам надо написать запрос Update на обновление измененной строки.
Сделать красиво-это не простая задачка.
если строк немного .можно написать запрос на обновление всех строк.
учите язык Sql

[maksimka2112]

Сообщение от doober

Вам надо написать запрос Update на обновление измененной строки.
Сделать красиво-это не простая задачка.
если строк немного .можно написать запрос на обновление всех строк.
учите язык Sql

10 мая диплом сдавать...а ещё пояснительная на 140 листов...учить уже некогда. Да уж и так большого прогресса в программировании достиг , пусть и в вба. Я же вообще полный 0 был.

[maksimka2112]

В принципе с этим вопросом разробрался...сделал некрасиво, но сделал...просто перед тем, как загрузить бд, очищаю ячейки...тупость конечно, но всё же.

Подскажите , пожалуйста, как теперь сохранить изменения в базу данных? То есть, если я в экселе изменил какие-то параметры в существующем диапазоне, как мне теперь зафиксировать эти изменения в соответствующей таблице в аксесе?

[maksimka2112]

а в том коде оказывается надо было заменить xlInsertDeleteCells на xlOverWriteCells...пишу это, потому что может кому-нибудь такому, как я, понадобится это