Как исправить vba, чтобы открыть много книг. Vba открыть книгу


открыть книгу и изменить название листа MS Excel онлайн

Я пытаюсь скопировать лист, и после этого откройте копию, чтобы изменить имя первого листа.

Это код, вставленный в Module1 :

Sub CopiarNovaPlanilha() Dim wkb As Workbook ActiveWorkbook.SaveCopyAs "I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS.xlsx" Set wkb = Workbooks.Open("I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS.xlsx") wkb.Sheets(1).Name = "FUNCIONARIOS" End Sub

Первая часть Sub для сохранения копии работает отлично. Хотя, когда я пытаюсь запустить вторую часть, она вызывает следующую ошибку:

Ошибка времени выполнения 1004: Excel не может открыть файл

И он говорит, что он не может понять расширение .xlsx или, возможно, файл поврежден, но я проверил, и файл в порядке.

Кто-нибудь знает, какая проблема?

Solutions Collecting From Web of "vba: открыть книгу и изменить название листа"

Это работает для меня

Private Sub derp() Dim wbk As Workbook Dim path As String path = "C:\Users\dcoats\Desktop\Book1.xlsx" Set wbk = Workbooks.Open(path) wbk.Sheets(1).Name = "FUNCIONARIOS" End Sub

Так, может быть, проверьте свою строку, которая соответствует пути к вашей книге?

РЕДАКТИРОВАТЬ

Я просто попробовал это, и он тоже работает.

Private Sub derp() Dim wbk As Workbook Dim path As String path = "C:\Users\dcoats\Desktop\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\Book1.xlsx" Set wbk = Workbooks.Open(path) wbk.Sheets(1).Name = "FUNCIONARIOS" End Sub

И я просто попробовал это

Private Sub derp() Dim wbk As Workbook Dim path As String path = "C:\Users\dcoats\Desktop\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\yaybook.xlsm" ThisWorkbook.SaveAs path, FileFormat:=52 Set wbk = Workbooks.Open(path) wbk.Sheets(1).Name = "FUNCIONARIOS" End Sub

Все работает, поэтому нам могут быть недостающие детали

Не хотите, чтобы ответить на вопрос об удержании Дуга, вот пример:

Попробуйте закомментировать вторую часть вашего кода – оставьте «saveas» и запустите. После завершения проверки проверьте файл в пути назначения – посмотрите, сможете ли вы его успешно открыть вручную.

Теперь в NEW sub откроем этот файл по коду. НЕ задайте имя листа еще. Дайте нам знать результат

Редактировать:

Попробуйте сохранить рабочий лист в новой книге и сохранить новую книгу:

Sub test() Dim wbk As Workbook Dim nwb As Workbook Dim path As String path = "C:\Users\dcoats\Desktop\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\" Set wbk = ThisWorkbook Set nwb = Workbooks.Add wbk.Sheets("Sheet1").Copy before:=nwb.Sheets(1) nwb.SaveAs path & "test2.xlsx" End Sub

Обновите «Лист1» на любое имя рабочего листа, которое вы сохраняете

excel.bilee.com

VBA Открыть книгу с шаблоном? MS Excel онлайн

Есть много способов, но я бы использовал такой подход:

Function FindDepotMemo() As String Dim oldPath, tempPath, newPath As String Dim FindFirstFile As String Dim addInt as Integer ' ASSUMING YOU ALREADY HAVE THIS PATH ' WE WILL USE THIS AS BASE PATH ' AND WE WILL INCREMENT THE NUMBER AND YEAR IN IT oldPath = "G:\BUYING\Food Specials\2. Planning\1. Planning\1. Planner\8. 2017" ' EXTRACT 8. 2017 FROM oldPath tempPath = Mid(oldPath, InStrRev(oldPath, "\") + 1) ' GET THE YEAR DIFFERENCE addInt = Year(Date) - CInt(Split(tempPath, ".")(1)) ' ADD THIS DIFFERENCE TO NUMBER AND YEAR ' AND NOW YOU HAVE CURRENT YEAR FOLDER newTemp = Split(tempPath, ".")(0) + addInt & ". " & Split(tempPath, ".")(1) + addInt FindFirstFile = Dir$(Path & "\" & "*.xlsx") While (FindFirstFile <> "") If InStr(FindFirstFile, "Test") > 0 Then FindDepotMemo = Path & FindFirstFile Exit Function End If FindFirstFile = Dir Wend End Function

Поскольку я добавил комментарии, чтобы помочь вам понять, что я делаю.

Попробуйте этот подход. Код проходит через имена папок 1. 2020, 1. 2019, 1. 2018 и текущий год, нахождение самого низкого, скажем, 1. 2018 существует. В этом году он затем ищет самый высокий номер месяца, оставив предыдущий для следующего выше. Если, скажем, существует 4. 2018, это путь, в котором он ищет имя файла, используя ваш исходный код.

Function FindDepotMemo() As String Dim Pn As String ' Path name Dim Fn As String ' Folder name Dim Sp() As String ' Split string Dim Arr() As String, Tmp As String Dim FindFirstFile As String Dim i As Integer Dim n As Integer For i = 2020 To Year(Date) Step -1 Pn = "G:\BUYING\Food Specials\2. Planning\1. Planning\1. Planner\1. " & CStr(i) & "\" If Len(Dir(Pn, vbDirectory)) Then Exit For Next i If i >= Year(Date) Then Sp = Split(Pn, "\") Arr = Sp n = UBound(Sp) - 1 Fn = Sp(n) For i = 2 To 12 Arr(n) = CStr(i) & Mid(Fn, 2) Pn = Join(Arr, "\") If Len(Dir(Pn, vbDirectory)) = 0 Then Exit For Sp = Arr Next i FindFirstFile = Join(Sp, "\") & "*.xlsx" While (FindFirstFile <> "") If InStr(FindFirstFile, "Planner") > 0 Then FindDepotMemo = Pn & FindFirstFile Exit Do End If FindFirstFile = Dir Wend End If End Function

Если не найдено 1. 2017 или выше, функция возвращает пустую строку. Я не смог проверить код на отсутствие данных.

excel.bilee.com

Исправьте vba, чтобы открыть много книг

инструкции

Шаг 1:

Шаг 2:

Шаг 3:

Совместимость: Windows 10, 8.1, 8, 7, Vista, XP Загрузить размер: 6MB Требования: Процессор 300 МГц, 256 MB Ram, 22 MB HDD

Ограничения: эта загрузка представляет собой бесплатную ознакомительную версию. Полный ремонт, начиная с $ 19.95.

Чтобы устранить ошибку (vba, чтобы открыть много книг), вам необходимо выполнить следующие действия:

Загрузить (vba, чтобы открыть много книг) Repair Tool
Нажмите "Scan" кнопка
Нажмите 'Исправь все' и вы сделали!

vba открыть много книг обычно вызвано неверно настроенными системными настройками или нерегулярными записями в реестре Windows. Эта ошибка может быть исправлена ​​специальным программным обеспечением, которое восстанавливает реестр и настраивает системные настройки для восстановления стабильности

Если у вас есть vba для открытия многих книг, мы настоятельно рекомендуем вам Загрузить (vba, чтобы открыть много книг) Repair Tool.

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

Внимание: Эта статья была обновлено на 2018-12-09 и ранее опубликованный под WIKI_Q210794

Смысл vba открыть много книг?

vba для открытия многих книг - это имя ошибки, содержащее сведения об ошибке, включая причины ее возникновения, неисправность системного компонента или приложения для возникновения этой ошибки вместе с некоторой другой информацией. Численный код в имени ошибки содержит данные, которые могут быть расшифрованы производителем неисправного компонента или приложения. Ошибка, использующая этот код, может возникать во многих разных местах внутри системы, поэтому, несмотря на то, что она содержит некоторые данные в ее имени, пользователю все же сложно определить и исправить причину ошибки без особых технических знаний или соответствующего программного обеспечения.

Причины vba открыть много книг?

Если вы получили эту ошибку на своем ПК, это означает, что произошла сбой в работе вашей системы. Общие причины включают неправильную или неудачную установку или удаление программного обеспечения, которое может привести к недействительным записям в вашем реестре Windows, последствиям атаки вирусов или вредоносных программ, неправильному отключению системы из-за сбоя питания или другого фактора, кто-то с небольшими техническими знаниями, случайно удалив необходимый системный файл или запись в реестре, а также ряд других причин. Непосредственной причиной ошибки «vba to open many workbooks» является неправильное выполнение одной из обычных операций с помощью системного или прикладного компонента.

Дополнительная информация о vba для открытия многих книг

РЕКОМЕНДУЕМЫЕ: Нажмите здесь, чтобы исправить ошибки Windows и оптимизировать производительность системы.

Кажется, что у вас много димметов. Вероятно, вы должны внимательно посмотреть. Поместите GoTo и Label, где вы чувствуете переменные, которые никогда не используются в коде. на ваш код и устранить ненужные шаги.

подходит для best.GetFileName: если MsgBox («Создать книгу» и т. д.) Код кода кода GoTo GetFileName Exit Sub PS Нужен код для просмотра всех открытых книг.

Мне нужно написать код, который смотрит на все открытые Excel, чтобы изменить окно сообщений на нужный код. Я написал все остальное, но не могу придумать книги и добавлять их в поле со списком в пользовательской форме. благодаря

Простой цикл будет работать ... просто есть идеи? Затем пользователь выбирает книгу, которую он хочет, и способ записи имен всех открытых книг.

Кто-нибудь работает MsgBox (wkb.Name) СледующяяRollin

Код:Dim wkb As Workbook Для каждого wkb In можно защитить или снять защиту листов и самой книги.

немедленно откройте книги 2, но держите одну скрытую

Рабочая книга 1 использует данные (для идей? Я не уверен, что вы можете скрыть вкладку, но вы можете заблокировать лист, если вы не хотите, чтобы данные были изменены. Любой для базы данных (MS Access и т. Д.), А не распространение листа.

выпадающее меню) из книги 2. Сначала это звучит как работа, которая была бы более подходящей для данных, обе книги должны быть открыты. Для того чтобы книга 1 могла

Книги Excel работают в одном окне - помогите!

я нахожу ответ! Как только я отправляю сообщение, это drib = ving me bad !! Привет, у меня проблема

Решено: одновременно открываются две книги Excel

У меня есть две книги Excel, сохраненные 9, также открывается версия 10. Когда я открываю версию?

Как я могу предотвратить версию 9 и версию 10.

Связывание общих книг с основными учебниками

выкатил.

2). Я читал, что общие книги, как правило, очень искажаются. Я бы хотел, чтобы все получилось отлично, прежде чем это получится Спасибо !!!!!

привет, Алекс

Какую версию Excel вы используете?

ребята! Я понимаю, что доступ был бы лучшим способом сделать это, но помочь

http://blog.contextures.com/archives/2008/11/18/avoiding-shared-workbooks-in-excel/

Это правда? Это может быть, к сожалению, это дорого обойдется и, следовательно, сейчас не соответствует моим опциям.

До сих пор я думаю, что пользователи 8-9 будут использовать каждую общую рабочую книгу.

Откройте и закройте несколько книг Excel в фоновом режиме с помощью VBA

Клинт

Здравствуйте,

Спасибо за ваш пост Пожалуйста, заранее. Помогите! волшебник

Спасибо, что посмотрели. Мне нужен код для закрытия книг 12, которые я открыл на заднем плане, когда пользователь закончил. С Уважением,

Решено: макрос excel2003; проблема с workbooks.open

Все, но, пожалуйста, несите меня. Я использую Excel при доступе к этому wesite непосредственно через IE6. таким образом, чтобы он не возникал в первую очередь). Спасибо,Том

одна работа отлично.

Хороший 2003 Pro; XP Pro; широкополосный доступ. Я хотел бы, чтобы макрос автоматически очистил это окно входа (или подключился

Я пишу макрос для загрузки информации о погоде с нескольких веб-сайтов в отдельные электронные таблицы. Я новичок

В этом окне регистрации не встречается весь вечер.

Объединение рабочих книг

Кто-нибудь знает, как я могу объединить две книги? Я попробовал поделиться ими и затем слить, но я получаю это сообщение: «Еженедельный отчет (05.10.10) A.xls не может быть объединен с текущей книгой.

Какие-либо предложения?

несколько книг

Всем привет,

Работая с excel 2000 на winNT, я хочу открыть две разные книги и получить доступ к каждому из них из панели задач. Как Надеюсь, у меня есть смысл. ты делаешь это?

Thks заранееДейв

Сравнение книг

Желательно, чтобы Excel выделил изменения, чтобы их можно было исправить в исходной книге.

Необходимо сравнить аналогичные книги 2, где во вторую книгу были внесены незначительные изменения. Это можно сделать в VBA, но это может быть Excel 2003?

Сколько ячеек на сколько диапазонов? Есть ли способ сделать это немного медленнее, если у вас есть огромное количество данных для проверки.

Связанные книги

Проверьте функцию справки в Office, это поможет вам. Здесь вы должны сохранить как в другом файле, ссылки остаются в исходном пути к файлу.

У меня есть две книги, которые связаны и сохраняются в виде шаблонов, когда я указываю Excel в правильном направлении.

Как я могу получить ссылки для обновления к новому сохраненному документу?

Привет, добро пожаловать,В разделе «Данные» есть пункт меню, где это может быть doen.

Общие книги

свободный от электронной таблицы в течение нескольких часов. Пользователь иногда не получает

как объединить две разные книги в два разаEXCEL WORKBOOKS ,,,,,,,,,

Гиперссылка не обновляет ссылку на новый файл в той же XL-книге. Что мне делать? Могу ли я вставить свое слово docs в качестве имени, чтобы я всегда возвращал ссылку на исходную ссылку. Этого не происходит, когда я работаю всем, когда я сохраняю как ... У меня теперь есть много текстовых документов, которые мне нужны, содержащие много листов с гиперссылками, связывающими листы.

Проблема в том, что для создания гиперссылок из моих листов XL-книги. Я много работаю с листами книг XL в моей рабочей книге XL? Спасибо.

Превосходить закрытые книги

Возможно ли это?

Я бы хотел найти

Спасибо

текст в 15 разных закрытых книгах.

объединить информацию из разных книг 2

сделать vlookup.

Если не только последний аукцион, но и в прошлом, со всей информацией, указанной в книге 1st. Дрю Перри [email protected] 802-222-5533 454 West Main Street Littleton NH 3561 3561

Так что вам нужно иметь все на одном листе? Дрю Перри [email protected] 802-222-5533 454 West Main Street Littleton NH

Дрю Перри [email protected] 802-222-5533 454 West Main Street Littleton NH $ 35.00 Подарочный сертификат 125 $ 35 $ 15 $ 15 A Notch Above Automobile Co. Дрю Перри [email protected] 802-222-5533 454 West Main Street Littleton NH - информация, которая мне нужна в одном файле, или как мне это нужно? Мне также нужно показать Донору, который не внес свой вклад в наш 3561 $ 35.00 Gift Certiifcate 127 $ 35

Нотч над автомобильной компанией

Не уверен, что мне нужно настроить пустую книгу / лист, чтобы получить все 3561 $ 35.00 Gift Certiifcate 126 $ 35

Нотч над автомобильной компанией

Здравствуйте,Моя книга 1st содержит доноров, ротарианцев / членов команды, адрес, штат, почтовый индекс, номер телефона, URL, адрес электронной почты для контактного лица, контактное лицо (список основных доноров).

На панели задач появляются некоторые, но не все книги Excel.

Может ли кто-нибудь помочь или кто-нибудь другой сталкивается с той же проблемой?

«Просто может кто-нибудь помочь или есть кто-то. Это сводит меня с ума, так как в моей работе мне всегда нужно переключаться между электронными таблицами.

Ни один из них на панели задач, когда я навешиваю значок Excel, и один не будет. на панели задач, когда я навешиваю значок Excel, и один не будет.

Например, у меня есть пять книг Excel, четыре из которых всегда будут переключаться между электронными таблицами. Это сводит меня с ума, так как в моей работе я обновился от окон 7 до окон 10 и имею аналогичную проблему.

Я не заметил такой же проблемы с другими программами, но делаю разницу. большое количество файлов Excel, а не те же самые. Я также попытался открыть файлы с помощью кнопки open, из недавно использованной. Ни одна из этих проблем не сталкивается с той же проблемой?

список файлов и из папки, в которой они хранятся, но это не имеет значения. Это происходит почти каждый день и с какой-либо разницей. Я также попытался открыть файлы с помощью кнопки open, из недавно использованных должно быть признано, что я редко бы открывал несколько файлов из других программ. Ju severn сказал:

Например, у меня есть пять книг Excel, четыре появятся

Это происходит практически каждый день, а также список файлов и из папки, в которой они хранятся, но это не имеет никакого значения. большое количество файлов Excel, а не те же самые.

Excel - ссылки между книгами

Я не могу вспомнить, где ссылка, так как можно остановить окно. Нажмите здесь, если я хочу обновить ссылку на другую книгу. Мне больше не нужно это делать. Когда я открываю книгу, появляется окно с запросом

Excel Live Workbooks

Пожалуйста, помогите мне в этом, потому что я не хочу получать рецепты и стоимость 300

разделение рабочих таблиц

Есть ли более простой способ сделать это, скорее, с книгой с окнами 70?

3. Спасибо, чем вручную переместить каждую книгу в новую таблицу? Заранее. Бен

этот Excel?

2.

Но это даст вам

1. Вы имеете в виду, что у вас есть то, что мне нужно разделить на отдельные электронные таблицы.

У меня есть таблица с книгами 70 в - любые идеи?

Как насчет именования / сохранения? (numsheets - 1) одностраничные несохраненные книги.

Вы можете использовать макрос - просто цикл ActiveSheet.Move (numsheets - 1) раз.

ru.fileerrors.com