- Открыть файл (также с паролем) — VBA Excel
- Видеокурсы по Excel
- Ъпо воде
- Что нужно узнать
- Открытая книга (*.xls)
- Требуется профессионал
- Открыта рабочая книга с паролем
- Требуется профессионал
- Открытый CSV-файл
- Excel 2003
- Открытый CSV-файл — Excel 2007–2010
- Всего
- Если
- Павел Ласбк — автор сайта
- Комментарии
- Крнко Любош
- Крнко Любош
- Павел Ласбак
- Радек Орсаг
- Павел Ласбак
- Радек Орсаг
- Павел Ласбак
- Крнко Любош
- Павел Ласбак
- Крнко Любош
- Павел Ласбак
- Арни
- Павел Ласбак
- Арни
- Ллубик
- Jan.gregor@seznam.cz
- Войтех
- karel.korec@gmail.com
- Здравствуйте
- Здравствуйте
- Штефан
- Иван
Открыть файл (также с паролем) — VBA Excel
Видеокурсы по Excel
В сотрудничестве с SEDUO я создал несколько видеокурсов:
- Как работать с Excel – научитесь эффективно использовать Excel – самый популярный ( рейтинг 97 %, более 13 000 студентов, + 750 положительных отзывов ) – Получить курс
- MaxiCourse Excel – получите лучшую работу, больше денег, станьте незаменимым ( более 6 часов просмотра, 160 уроков ) – Получить курс
- G-таблицы. — если не нравится Excel, воспользуйтесь курсом на Google-таблицах
Как использовать VBA в Microsoft Excel для открытия файла (также защищенного паролем). Необходимо знать пароль.
Обновлено и дополнено: 02.06.2013
Ъпо воде
Как открыть файл Excel с помощью VBA. Как открыть книгу Excel, если она защищена паролем (вы должны знать пароль)? Если вы не знаете, как это сделать, вы читаете нужную статью.
Примечание: Здесь вы не найдете, как узнать пароль к зашифрованному файлу. Вы должны искать в другом месте.
Что нужно узнать
Или краткий обзор:
- Открыть книгу (*.xls)
- Открыта рабочая книга с паролем
- Открытый CSV-файл
Открытая книга (*.xls)
Поиск прост.
Примечание. Предполагается, что файл (книга) существует.
Требуется профессионал
Открыта рабочая книга с паролем
Поиск прост
Рабочие книги.Откройте «C:\password-file.xls», Password:=»password»
Примечание: Паролем является текст в кавычках password ;), я знаю, что это не оригинал, но не буду раскрывать свой любимый пароль: 4rT#j&3љ; Тк!2.
Требуется профессионал
Открытый CSV-файл
Excel 2003
Открытый CSV-файл — Excel 2007–2010
К решению необходимо добавить информацию ( Локально ).
Рабочие книги.Открыть»C:\document.csv», Local:=True
PathAddresare = ThisWorkbook.Path Workbooks.Open Filename:=PathAddresare & «\csv-separator-center.csv»
Всего
Если вы хотите что-то добавить, используйте комментарии 🙂
Статья обновлена: 19.09.2020 11:07
Если
Помог ли этот веб-сайт сэкономить вам время и деньги? Помог ли он решить проблему? Готовы ли вы предоставить символическое вознаграждение за дальнейшее развитие? Выберите форму вознаграждения, которая вам подходит.
Павел Ласбк — автор сайта
Microsoft Office (Word, Excel, Google Sheets , PowerPoint) Я использую с 2000 года (с 2004 года в этом домене) — В 2017 году я получил престижную награду MVP от Microsoft (пока я единственный из IR в категории Excel). Я также делюсь своими знаниями и опытом онлайн в видеороликах для SEDUO . В компаниях преподаю и консультирую , работаю в МУНИ. Я создаю этот сайт более 15 лет. Существует более 1000 бесплатных инструкций, советов и рекомендаций, включая более 250 различных шаблонов и рабочих книг.
Комментарии
Крнко Любош
Добавлено: 28.06.12 13:37
Добрый день! Работаю бухгалтером в строительной компании. Работа не о подсчете, а о массовых записях в таблицах Excel (имущество, записи расходов и доходов, владение имуществом, касса и т.д.) если владельцу нужна только какая-то информация из этих таблиц, ищу решение, как что-то сделать с этой информацией и как проще всего. Вы не можете мне советовать. с честью Кренко из Словакии
Крнко Любош
Добавлено: 28.06.12 13:42
мой адрес: krikolubos@gmail.com
Павел Ласбак
Добавлено: 28.06.12 16:21
Кому Крнько Любошу: используйте фильтры http://office.lasakovi.com/excel/data/ms-excel-filtry-uvod/
Радек Орсаг
Добавлено: 07.04.12 12:33
Добрый день. Есть какой-то код, гдесохранить пользовательские данные (такие как имена пользователей, даты, время), что-то вроде журнала, во внешнем файле excel, расположенном в другой адресной книге, чтобы в списке не было видно, что данный файл (нужен log.xls) используется ? Спасибо за ответ.
Павел Ласбак
Добавлено: 07.04.12 16:35
К Радеку Орсагу: Могу ли я написать статью, подобную моей, где есть возможность сохранения в тот же файл, только лист скрыт (xlSheetHiden), его можно редактировать и данные сохранять в другой файл. http://office.lasakovi.com/excel/vba-soubory/excel-vba-kdo-pristupa-do-souboru/ Проблема в том, что если кто-то отключит макросы, это не сработает. В качестве альтернативы, если он знает, как лучше работать с MS Excel, он может обойти это.
Радек Орсаг
Добавлено: 04.07.12 16:47
Павлу Ласаку: Да, меня вдохновила ваша статья о сохранении на другой лист. Но если файл имеет свойство «только для чтения», макрос все равно запустится, но параметр не будет записан.
Павел Ласбак
Добавлено: 07.04.12 22:14
Радеку Орсагу: С разрешения, я попытаюсь практически изменить атрибут файла, написать и вернуть атрибут.
Крнко Любош
Добавлено: 27.11.12 11:37
Добрый день! Я пытаюсь открыть файл в соответствии с инструкциями Workbooks.Open C:\dokument.xls, но он продолжает выдавать мне номер строки или метку, или оператор, или конец оператора. Открываю в excel 2010. спасибо Kriko
Павел Ласбак
Добавлено: 27.11.12 22:27
Крико Любошу: Где у вас только эта строка?
Крнко Любош
Добавлено: 28.11.12 12:07
Я хочу вернуться к созданию кода для запуска файла на компьютере из произвольного подкаталога. спасибо
Павел Ласбак
Добавлено: 28.11.12 22:56
Кому Крнко Любошу: Как сказано выше, MyPath = «D:\adresar\subadresar» MyFile = «file-with-password.xls» Workbooks.Open MyPath & «\» & Мой файл
Арни
Добавлено: 24.08.13 19:10
Здравствуйте, я импортирую внешние данные в новую книгу. Это из другого файла Excel, например pm.xls. На данный момент у меня есть заданный путь, поэтому файл должен иметь какое-то имя и находиться в определенном заранее указанном каталоге, иначе он не будет импортировать данные. Мне бы нужна была пользовательская форма или что-то подобное, чтобы после запуска макроса всплывало классическое меню, как в винде для открытого файла. Это означает, что я мог сам выбрать файл, а затем продолжить процедуру. Спасибо
Павел Ласбак
Добавлено: 25.08.13 16:11
Для Арни: используйте Application.GetOpenFilename: FileOpen = Application.GetOpenFilename _ (Title:=»Выберите файл для импорта», _ FileFilter:=»Excel Files *.xls (*.xls)»)
Арни
Добавлено: 26.08.13 16:24
Хорошо, это работает, но, должно быть, я допустил ошибку. Мне нужно было бы сделать это в команде: Данные/Импорт внешних данных/Импорт данных. Видеть код.: Sub Import_datSM() ‘ ‘ Import_datSM Macro ‘ Импорт данных измерений СМ из файла C:/MERENI/sm.xls ‘ ‘ Sheets(«List»).Select Sheets.Add.Name = «SM-1310» Sheets .Add .Name = «SM-1550» Sheets.Add.Name = «SM-Results» With ActiveSheet.QueryTables.Add(Connection:=Array( _ «OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password=» «» «;User Source=C:\MERENI\sm.xls;Mode=Share Deny Write;Extended Properties=»»HDR=» _ , _ «YES;»»;Jet OLEDB:Системная база данных=»»»»; Jet OLEDB: Путь к реестру = «»»»; Jet OLEDB: Пароль базы данных = «»»»; Jet OLEDB: Тип двигателя = 35; Jet OLEDB: «_, _» Режим блокировки базы данных = 0; Jet OLEDB: Global Partial Bulk Ops= 2;Jet OLEDB:Глобальные массовые транзакции=1;Jet OLEDB:Новый пароль базы данных» _ , _ «=»»»»;Jet OLEDB:Создать системную базу данных=False;Jet OLEDB:Зашифровать базу данных=False;Jet OLEDB: Не копировать локаль в компактном = False; Jet OLE» _ , «БД: компактный без репликиRepair=False;Jet OLEDB:SFP=False»), Destination _ := Sheets(«SM-1310»).Range(«A1»)).CommandType = xlCmdTable .CommandText = Array(«Sheet1$») .Name = «sm» .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True serve0.InfoPeriod = True serve0.Period True .SourceDataFile = «C:\MERENI\sm.xls» .Refresh BackgroundQuery:=False End With Sheets(«List»).Выберите End Sub Thanks
Ллубик
Добавлено: 29.11.13 23:22
Хорошие статьи, но. . . но у меня проблема с открытием файла xlsx (наверное excel2010) в офисе 2003. Пакет совместимости установлен, но он работает странно. Нажатие на значок файла преобразует и откроет его, но Excel Open не откроет файл. Тоже проблема в макросе, VBA. . . как открыть такой файл? К тому же с паролем, чтобы не было недостатка. . .(Я знаю пароль)
Jan.gregor@seznam.cz
Добавлено: 21.01.14 13:12
Здравствуйте, работает нормально, НО у меня проблема с номером рядом с ним: Excel, давайте отдадим тому, у кого есть сервис. Все смотрят туда, но только секретарь пишет изменения. файл имеет Пароль для изменения, поэтому файл открывается и хочет ввести пароль на запись или открыть в режиме только для чтения («Введите пароль для доступа на запись или открыть только для чтения») и предлагает либо ввести пароль, либо кнопки Just для чтения (Только чтение), Cancel (Отмена). Я нашел параметр IgnoreReadOnlyRecommended, но это уже другая история. Спасибо за совет
Войтех
Добавлено: 21.10.14 23:05
Вы пытаетесь открыть заблокированный файл XLS или XLSX и не знаете, как это сделать? Вы пытаетесь установить на свой компьютер все больше и больше гарантированно работающих программ расшифровки, и единственным результатом являетсябезмозглый? Прочтите эту статью www.erada.cz/?p=1337 и сразу узнайте, как добиться успеха с выходом из системы легко, без нервов, а также бесплатно за считанные секунды!
karel.korec@gmail.com
Добавлено: 03.08.15 15:52
Добрый день, спасибо за эти сайты, они для меня отличный источник вдохновения. Теперь у меня небольшая проблема с экспортом данных с другого листа.Ваш макрос для открытия диалога с источником, что хорошо.Но мне даже не нужно открывать источник, как читать данные из него и скопируйте его на активный целевой лист.Данные (числа) находятся в определенном поле (например, A1:J3), всего в источнике 25 таких полей.И мне нужно скопировать их в те же определенные поля в мишени. в поле на листе 1 и в то же время на листе 2. Надеюсь, я описал это ясно, это не должно быть более высокого уровня. Спасибо за любую помощь.
Здравствуйте
Добавлено: 29.06.15 20:07
Здравствуйте, кажется я где-то ошибся, но в любой момент открываю макрос ( без проблем ) для шитья блокнота по инструкции выше. Тема открывается, но в этот момент макрос перестает работать 🙁 Если я не открываю его макросом, а он уже открыт, то все проходит без проблем. Не мог бы кто-нибудь быть так добр и посоветовать мне «трюк», как чтобы заставить макрос продолжать работу даже после того, как большое спасибо заранее за любой совет
Здравствуйте
Добавлено: 29.06.15 21:07
Дополнительно: это макрос, который можно запустить с помощью сочетания клавиш «CTRL+». при запуске макросов — запускать их все без проблем.
Штефан
Добавлено: 06.05.16 18:03
Здравствуйте, я хотел бы узнать, как написать код на VBA, чтобы открыть файл, который я сохранил накануне (макрос: текст + дата). Файл называется «текст»_дата (ггггммдд) желательно с последней, «самой высокой» датой. p.s. естькуда писать время последнего изменения (дата+время) выбранного файла в ячейку?
Добавлено: 10.05.16 14:44
Он у меня уже есть. Dim dtTestDate As Date Dim dtDate As String Dim sStartWB As String Const sPath As String = «L:\Section Logistics\» Const dtEarliest = #1/5/2016# dtTestDate = Date sStartWB = ActiveWorkbook.Name While ActiveWorkbook.Name = sStartWB And dtTestDate >= dtEarliest On Error Resume Next Workbooks.Open sPath & «текст» & Format(dtTestDate, «ddmmyyy») & «.xlsx» dtTestDate = dtTestDate — 1 При ошибке Перейти к 0 Wend If ActiveWorkbook.Name = sStartWB Then MsgBox «Предыдущий файл не найден.»
Иван
Добавлено: 16.05.16 12:50
Открыть файл = Application.GetOpenFilename _ (Title:=»Выберите файл для импорта», _ FileFilter:=»Excel Files *.xls (*.xls)») выше. как еще узнать имя файла? Так что я могу обратиться к нему позже. спасибо
Добавлено: 16.05.16 12:54
К Ивану: — Имя_файла_и_Расширение из Пути_и_файла fNameExt = Dir(FileOpen) ‘ другой способ через Split
Добавлено: 29.06.16 10:35
Мне нужно открыть другую книгу (experiment2.xls) из одной книги (experiment1.xls) и одновременно закрыть Experiment1.xls. Переключиться на вторую книгу не проблема, но при попытке сразу закрыть Experiment1.xls выдает ошибку.