Есть такой код в файле 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 такого не происходит.
Подскажите в чём секрет?
Приложил файл, который пытаюсь открыть