При открытии файла xlsx через VBA выдаёт запрос на сохранени

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » При открытии файла xlsx через VBA выдаёт запрос на сохранени (Макросы/Sub)

DimonMF

Дата: Воскресенье, 21.12.2014, 23:55 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Есть такой код в файле Access:
[vba]

Код

Option Explicit

Private Sub txtBookEx_Click()
     Dim exBook As Workbook
     Dim i, ListCount As Integer 'количество элементов списка листов книги Excel

     'функция выбора файла Excel для экспорта
     strNameFileExport = XFileDial()

     txtBookEx.Text = strNameFileExport 'текст в строке выбора файла

     ListEx.Text = "Файл загружается..."
     'открываем книгу Excel
     Set exBook = Workbooks.Open(strNameFileExport)

     For i = 1 To exBook.Sheets.Count
         ListEx.AddItem exBook.Sheets(i).Name
     Next i
     exBook.Close 'закрываем книгу Excel
     Set exBook = Nothing
     ListEx.ListIndex = 0
End Sub

[/vba]

Нужен для выбора файла Excel и нужного листа для последующего экспорта в базу данных.

Как только выполняется "Set exBook = Workbooks.Open(strNameFileExport)" Excel подаёт звуковой сигнал и программа останавливается, потому, что выскакивает запрос на сохранение файла.
При чём интересно, что с файлами формата xls такого не происходит.
Подскажите в чём секрет?

Приложил файл, который пытаюсь открыть

К сообщению приложен файл: _09_14___65.xlsx (74.9 Kb)

Ответить

doober

Дата: Понедельник, 22.12.2014, 00:57 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

Репутация: 323 ±

Замечаний: 0% ±

Excel 2010

Надо весь код формы приложить.
Сам код рабочий,проверил в Accesse
Настораживает то,что в событиях текстбокса вы открываете файл и меняете значение этого
текстбокса,возможно есть в другом месте отработка события изменения текста,
и она приводит к повторному открытию-закрытию файла

Ответить

Страница 1 из 1
1