|
Здравствуйте. |
|
|
Karataev Пользователь Сообщений: 2308 |
Наверное Вам надо создать пустой файл, скопируйте в него все листы из имеющегося файла, и скопируйте модули с макросами. С тем файлом, который Вы выложили на форуме, работать наверное нельзя, т.к. если зайти в VBE, то видно, что несколько модулей книг. Такого по идее не должно быть. |
|
Вот и хотелось причину выяснить. |
|
|
Karataev Пользователь Сообщений: 2308 |
Причину можно искать, но файлом в том виде, какой сейчас есть, мне кажется нельзя пользоваться. |
|
sokol92  Пользователь Сообщений: 4456 |
Уважаемый DmitriyBastr! Профессор ( ZVI ) уже наметил для Вашего файла (и аналогичных) курс лечения . |
От себя хочу добавить: перед копированием листов преобразуйте «умные» таблицы в обычные диапазоны.|
DmitriyBastr  Пользователь Сообщений: 82 |
#6 21.02.2018 15:00:35 Этим файлом и не пользуются уже. |
|
Разрушительный сбой |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
.
.
.
).
.I am struggling to find relevant information on the
‘run-time error ‘-2147418113 (8000ffff)’ — Catastrophic Failure’
I am experiencing.
Sub GenerateAIA_Click()
Dim SQL_query, SQL_syntax, DB_path, setting_conn As String
Dim conn As New ADODB.Connection
Dim query_rslt As New ADODB.Recordset
Dim mth, mth_yr As Variant
Dim dt As Date
Dim i, bol As Integer
Dim temp1, temp2 As Variant
dt = Sheets("Main").Range("C4")
mth_yr = MonthName(Month(Sheets("Main").Range("I12")), False) & " " & Year(Sheets("Main").Range("I12"))
ThisWorkbook.Sheets("AIA").Select
DB_path = ThisWorkbook.FullName 'Refering the same workbook as Data Source
setting_conn = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DB_path & ";HDR=Yes';"
conn.Open setting_conn
SQL_syntax = "SELECT * FROM [Setup$]" 'Your SQL Statement (Table Name= Sheet Name=[Sheet1$])
query_rslt.Open SQL_syntax, conn
I have also noticed that this error is shown on the line
conn.Open setting_conn
I use excel 2016 and also my file format .xlsm
Anyone have idea why is this happening?
asked Feb 18, 2020 at 5:11
0
It seems your connection string has a problem.
Here’s how I got it to work:
(First make sure to add a reference to the Microsoft Active-X Data Objects Library)
Sub test()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:PCtest.xlsm;Extended Properties=""Excel 12.0 Macro;HDR=NO"";"
conn.Open
rs.Open "SELECT * FROM [Sheet1$]", conn
If Not rs.EOF Then
MsgBox rs(0) ' display the value of the first field in the first row
Else
MsgBox "No records found."
End If
rs.Close
conn.Close
End Sub
So take my example, change the filename to your XLSM file, and the sheet name to your sheet name (with a $ added to the end of it)
If your sheet has header names in the first now, use HDR=Yes, and if not, HDR=No
answered Feb 18, 2020 at 6:14
braXbraX
11.5k5 gold badges19 silver badges33 bronze badges
6
or you can change display resolution for your monitor
answered Dec 30, 2021 at 16:23
ahmadahmad
216 bronze badges
Ребята. И файлик у меня, благодаря более ранним советам бинарный, и наполнение формы уже практически на 98 % автоматизировано.
А вот перенести содержимое листов из одного файла в другой — практически невозможно. И дело даже не в объеме. Сами листы постоянно меняются.
Я просто научился жить с этой ошибкой. Возникает она строго когда меняется расположение/размер элемента на форме, которая
1. создана в 97 версии Excel
2. испытала по меньшей мере 48 модификаций (я версии считаю)
3. содержит пару сотен разных элементов.
4. испытала неоднократные нагрузки на основные элементы в тысячи и десятки тысяч записей
Я не говорю, что моя форма — великий и непогрешимый продукт моцга.
Она давно уже просится в отдельное приложение. Но пока я дорабатываю мелочи концепции — об отдельном приложении речи не идет.
То что xlsm — большая мусорка, я понимаю. Но сделать с этим пока ничего не могу. В файлах хls возникают проблемки с условным форматированием, некоторыми новыми функциями. От условного форматирования я планомерно ухожу. Но работы пока в этом направлении много. Индикация — важная вещь при экспресс-анализе непрерывно добавляющейся инфы.
А вот как уйти от функций СУММЕСЛИ, СЧЁТЕСЛИ и т.п.? Можно, конечно, наваять свою приблуду, но работать она будет заведомо и ощутимо медленнее. Доживу до SQL — буду выпендриваться.
Так что большинство советов я учитываю и использую. Они помогли мне в моем случае локализовать ошибку, условия ее возникновения, действия к ней приводящие, что мной и освещено здесь.
Добавлено через 2 часа 11 минут
Сообщение от StepInLik
6. На счет инфы со ссылкой и не лицензионным ПО не понял. Пожалуйста поясните.
Забыл совсем… прошу прощения. Если ПО нелицензионное (офис), то объективно возникает ошибка при подключении модуля, следящего за этим делом. Но у меня ошибка возникает и на лицензионном 2010 офисе (prof+). Так что ко мне это дело не относится. Ссылку здесь я привел, суммируя всё, что я нахожу или к чему прихожу сам по данному вопросу.
Добавлено через 5 минут
Сообщение от StepInLik
странно что он у вас вообще работает(и даже открывается) при (по всей видимости) таких объемах и будучи эксэмэльным (xlsx(m)
мои собственные проверки. Файл xlsm (2010-2013) работает и открывается при количестве строк 140 тыс. Файл еще работал, но у меня уже не открылся при количестве строки 730 тыс. Проблема была в нехватке оперативки. так что большой вопрос — а открылся ли файл. С таким монстром работать в excel почти невозможно (недопустимый износ нервов). поэтому дальше я не экспериментировал. Понятно, что мои задачи — задачи баз данных. Я сейчас отрабатываю концептуально программу обработки БД. Формировать БД и приложения, работающие с ней буду позже. И скорее всего с профильными спецами. Моя задача будет — грамотно формировать ТО с учетом ньюансов. Кто-б мне такой подарок в жизни сделал?!
Добавлено через 4 минуты
Сообщение от StepInLik
переносите не объекты (со всем мусором), а внешнее состояние объектов — т.е. содержимое, оформление, названия …
что имелось ввиду? копирование? как перенести форму? перерисовать?
я открываю VBA и драг-энд-дропом перетаскиваю формы, класс, модули из одного файла в другой. листы — копирую стандартным способом «переместить/копировать лист»
Добавлено через 1 минуту
Сообщение от anton-sf
с контролем создания и уничтожения объектов
я не уничтожаю и не создаю сами объекты на форме. Они созданы на этапе конструирования, позиционированы и отредактированы. Их наполнение — программное.
При редактировании элементов и возникает сбой.
Добавлено через 45 минут
Сообщение от AndreA SN
При редактировании элементов
имеется ввиду не программное наполнение, а редактирование элементов в конструкторе формы
Знаменитый «синий экран» стал такой же неотъемлемой частью Windows, как и легендарная кнопка «Пуск». Вот только наступление такого события становится проблемой. На синем фоне белыми буквами написана техническая информация, которая, теоретически, поможет установить причину проблемы. Но это будет уже потом, после принудительной перезагрузки с потерей данных и открытых документов.
💚 ПО ТЕМЕ: Как быстро очистить диск от мусора в Windows?
Коды ошибки могут свидетельствовать о проблемах как в аппаратной части, так и в программной. Удивительно, но порой сама компания Microsoft выпускает продукты, способные стать причиной критического сбоя ее же операционной системы.
В Windows 10 код ошибки 0x8000ffff напрямую связан с Центром обновления. Она также говорит о том, что есть проблемы с функционированием фирменного магазина приложений Microsoft Store. Возникает синий экран или уведомление с таким кодом ошибки зачастую после обновления Windows 10 и попытки установить приложение из Microsoft Store.
Тем не менее ошибка это не настолько критичная, чтобы парализовать работу компьютера и потребовать перестановки всей системы. Есть несколько способов ее устранения. Давайте ознакомимся с ними и попытаемся решить проблему с появлением ошибки «разрушительный сбой 0х8000FFFF».
💚 ПО ТЕМЕ: 32- или 64-битная Windows: какая разница и какую систему нужно устанавливать?
Далеко не все пользователи знают о том, что в Windows 10 имеется встроенный инструмент устранения неполадок в работе системы. В нем присутствует довольно большой список потенциальных источников проблем. Один из них как раз и относится к Microsoft Store. Для запуска этого инструмента проделайте следующее:
1. Нажмите комбинацию клавиш Windows + I
2. В строке поиска напишите «Устранение неполадок» и запустите предложенное приложение.
3. Проскролив вниз, выберите пункт «Приложения из Магазина Windows». Появится кнопка «Запустить средство устранения неполадок».
4. После нажатия на нее следуйте указанным инструкциям, что может решить проблему с ошибкой 0x8000ffff.
💚 ПО ТЕМЕ: Как бесплатно скачать программу Google Планета Земля Pro для Mac и Windows (раньше стоила 25 000 руб).
Удалите кэш Microsoft Store для исправления ошибки 0х8000FFFF
Другой способ борьбы с проблемой заключается в очистке кэша Microsoft Store. К сожалению, подобное меню Microsoft не предусмотрела, так что придется руками ввести несколько команд.
1. Нажмите комбинацию Windows + R, чтобы открыть окно «Выполнить».
2. В поле «Открыть» введите команду wsreset.exe и нажмите клавишу ОК.
3. Примерно на 10 секунд появится пустое черное окно, а когда оно исчезнет – запустится Microsoft Store. Если это не сработает, то кэш можно очистить иначе.
Снова нажмите комбинацию Windows + R и откройте окно «Выполнить».
Введите строку:
C:Users%USERNAME%AppDataLocalPackagesMicrosoft.WindowsStore_8wekyb3d8bbweLocalState
Откроется папка с кэшем магазина. Если внутри есть каталог Cache, то переименуйте его, например, в Cache.old. Затем, даже если папки Cache изначально и не было, создайте новую с этим именем.
Теперь можно запускать средство устранения неполадок, как было описано выше. Это поможет обнаружить и устранить проблему.
💚 ПО ТЕМЕ: Бесплатные видеоредакторы: 6 лучших программ для монтажа видео на Windows и Mac.
Переконфигурируйте или переустановите Microsoft Store для решения проблемы с ошибкой 0х8000FFFF
Для устранения ошибки можно попытаться заново настроить Microsoft Store. Для этого проделайте следующее:
1. В окне поиска меню «Пуск» введите команду Powershell. После ее отображения кликните правой кнопкой мыши и выберите опцию «Запуск от имени администратора».
2. В окне Powershell введите следующую команду:
Powershell -ExecutionPolicy Unrestricted Add-AppxPackage -DisableDevelopmentMode -Register
допишите к ней
$Env:SystemRootWinStoreAppxManifest.xml
и нажмите Enter.
3. Перезагрузите компьютер.
Иногда переконфигурирование Microsoft Store не помогает в борьбе с ошибкой 0x8000ffff. В таком случае можно попытаться полностью переустановить это приложение. Много времени это не займет. Для этого:
1. В окне поиска меню «Пуск» введите команду Powershell. После ее отображения кликните правой кнопкой мыши и выберите опцию «Запуск от имени администратора».
2. Вставьте в окно следующую команду:
Get-AppXPackage *WindowsStore* -AllUsers | Foreach {Add-AppxPackage -DisableDevelopmentMode -Register "$($_.InstallLocation)AppXManifest.xml"}
3. Закройте консоль Powershell и перегрузите систему.
💚 ПО ТЕМЕ: Как ускорить Windows, отключив ненужные службы операционной системы.
Используйте утилиты CHKDSK и SFC для решения проблемы с ошибкой 0х8000FFFF
Системная утилита CHKDSK является отличным инструментом Windows для проверки целостности файловой системы. В ходе работы с определенными ключами эта программа может также и устранять существующие проблемы. Запустить CHKDSK можно из командной строки, утилита имеет в своем арсенале несколько отличных функций.
1. В окне меню поиска введите запрос «Командная строка». Затем кликните по приложению правой кнопкой мыши и выберите опцию «Запуск от имени администратора».
2. В появившемся окне наберите команду chkdsk /r и нажмите клавишу «Ввод». Команда позволит начать сканирование системы на ошибки и будет их исправлять по мере обнаружения.
Если этот инструмент не поможет, то перейдите к следующему – Windows System File Check (SFC). Утилита похожа на предыдущую, но проверяет целостность не всех файлов на диске вообще, а системных самой операционной системы. Перед запуском программы SFC стоит убедиться в ее функциональности.
На данном шаге потребуется служебное средство DISM (Система обслуживания образов развертывания и управления ими). За сложным названием скрывается еще одна интегрированная в операционную систему утилита с широким спектром возможностей. В нашем случае понадобится команда с ключом, гарантирующим корректную работу исправления. В запущенной от имени Администратора командной строке введите следующую команду и нажмите Ввод:
DISM /online /cleanup-image /restorehealth
Дождитесь завершения процесса. Он может занять до 20 минут, но это зависит от скорости работы всей системы. Даже если покажется, что процесс подвис, стоит дождаться его завершения.
После завершения работы утилиты введите в командную строку команду:
sfc /scannow
и подтвердите выбор нажатием клавиши Ввод.
💚 ПО ТЕМЕ: Как автоматически переключать язык (раскладку) на клавиатуре в macOS или Windows.
Удалите системную папку SoftwareDistribution для исправления ошибки 0X8000ffff
Удаление этого каталога может восстановить работоспособность Центра обновления Windows и вместе с тем исправить ошибку «разрушительный сбой 0х8000FFFF». Однако спешить удалять «ненужную» папку не стоит. Все же ее содержимое системе требуется, и без нее возможны некоторые нежелательные эффекты. Например, удаление папки лишит систему истории ее обновлений. При следующей попытке обновить Windows сканирование установленных патчей может занять несколько минут.
1. В окне меню поиска наберите «Командная строка». Затем кликните по приложению правой кнопкой мыши и выберите опцию «Запуск от имени администратора».
2. Введите команду net stop wuauserv для остановки службы обновления системы.
3. Введите команду net stop bits. Она остановит службу фоновой интеллектуальной передачи данных, отвечающей за скачивание обновлений.
4. Запустите Проводник и вставьте в его адресную строку следующий путь:
C:WindowsSoftwareDistribution
После перехода в эту папку выделите все вложенные каталоги и файлы, нажав Ctrl + A. Удалите их с помощью нажатия клавиши Delete на клавиатуре.
Если удалить файлы не получается, то надо перегрузить компьютер и повторить этот процесс. После полной очистки каталога SoftwareDistribution систему надо снова перегрузить.
💚 ПО ТЕМЕ: Секреты Google Chrome для Windows и Mac: 15 возможностей, о которых вы могли не знать.
Осуществите проверку Служб Криптографии для устранения ошибки 0х8000FFFF
Эта служба тесно связана с Центром обновления Windows и с Microsoft Store. Если сервис будет некорректно работать или откажется отключенным, то операционная система не сможет обновляться и постоянно будет сыпать сообщениями об ошибках. Одна из них и имеет обозначение 0x8000ffff.
1. В строке меню поиска наберите «services» или «службы» и выберите классическое приложение.
2. В длинном списке найдите «Службы криптографии».
3. Удостоверьтесь, что в настройках типа запуска установлена опция «Автоматически».
4. Если служба отключена, то нажмите кнопку «Запустить».
♥ ПО ТЕМЕ: iCloud на компьютере, или как загружать фото, видео из облака на Windows и обратно.
Устранените возможные проблемы с сетью для решения проблемы с ошибкой 0х8000FFFF
По сообщениям некоторых пользователей ошибка 0x8000ffff может быть связана с неполадками в работе сети. Для устранения этих проблем тоже можно использовать встроенное в Windows 10 средство устранения неполадок.
1. Нажмите комбинацию клавиш Windows + I
2. В строке поиска напишите «Устранение неполадок» и запустите предложенное приложение.
3. Проскролив вниз, выберите пункт «Сетевой адаптер» или «Подключения к Интернету», следуя затем инструкциям на экране.
Если это не поможет, то попробуйте изменить настройки DNS. Переключение на альтернативные сервера иногда помогает решить проблемы с сетью.
1. В строке меню поиска наберите «состояние сети» и выберите соответствующее приложение из Параметров системы.
2. Перейдите на «Настройку параметров адаптера».
3. В списке сетевых адаптеров найдите основной, отвечающий за активное соединение, кликните на него правой кнопкой мыши и выберите Свойства → IP Версии 4 → Свойства.
4. В разделе «Использовать следующие адреса DNS-серверов» введите 1.1.1.1 и 8.8.8.8. Нажмите ОК.
Первый DNS сервер является быстрым и конфиденциальным, тогда как второй – публичный DNS компании Google.
💚 ПО ТЕМЕ: Как отформатировать (стереть) USB флешку на Windows или Mac (macOS).
Полный сброс настроек Windows 10, как последняя попытка решить проблему с ошибкой 0х8000FFFF
Если вышеперечисленные способы не помогли, то настала пора переходить к последнему. Сброс настроек Windows 10 уж точно поможет. В ходе этой процедуры системные файлы будут заменены на оригинальные. Теоретически это должно устранить связанные с управлением памятью ошибки. Но при этом большинство важных файлов останется в целости и сохранности.
1. Перейдите в Параметры Windows → Обновление и безопасность → Восстановление. В разделе «Вернуть компьютер в исходное состояние» нажмите клавишу «Начать».
2. На последнем шаге останется выберите одну из опций: «Сохранить мои файлы» или «Удалить все».
После этого начнется перезагрузка, поэтому лучше стоит заранее сделать копии всех важных файлов.
Ошибка с кодом 0x8000FFFF побеждена!
Один из вышеприведенных рецептов или их комбинация должны устранить проблему и вернуть Microsoft Store в работоспособное состояние. Надеемся, что вам не придется прибегать к последнему, наиболее кардинальному способу. К нему стоит обращаться, как к абсолютному и окончательному решению.
🔥 Смотрите также:
- В каком смартфоне самая лучшая камера – Топ 10.
- Скрытые возможности поиска Google: 20 интересных пасхалок, о которых вы могли не знать.
- Как передать пароль от Wi-Fi на чужой iPhone или iPad «в один тап», при этом не раскрывая его.
🍏 Мы в Telegram и YouTube, подписывайтесь!