Ошибка времени выполнения basic аргумент является обязательным

Здравствуйте, подскажите пожалуйста как можно макросом удалить содержимое листа по его имени? Или хотя бы просто содержимое активного листа

Добро пожаловать на форум!
Есть несколько способов.
Самый простой и надежный — удалить лист по имени (если он был) и создать новый с таким же именем.

Sub reCreateSheet(SName As String)
Dim oSheets As Variant
  oSheets = ThisComponent.getSheets()
  If oSheets.hasByName(SName) Then oSheets.removeByName(SName)
  oSheets.insertByName(SName, 0)
End Sub

Чуть сложнее — выбрать лист, вычислить область, в которой есть данные, и для этого диапазона выполнить метод .clearContents. Зато в этом случае можно, например, удалить только данные, а всё форматирование оставить на месте…

спасибо за помощь, однако

Ругается на If oSheets.hasByName(SName) Then oSheets.removeByName(SName)
выдаёт
ошибку времени выполнения Basic
Аргумент является обязательным

я на либре офисе, должен подойти этот макрос?..

и кстати вообще эту команду не воспринимает oSheets.removeByName(SName)

Ты, наверное, просто пытаешься этот макрос выполнить. А ему нужен параметр — имя листа. Допиши процедуру:

Sub testClear
   reCreateSheet("Лист2") ' или какое-то другое имя листа
End Sub
и уже этот макрос запускай на выполнение

Долгим методом подбора наковырял работоспособный код:

Sub sequencialFiles
Dim oDoc as Object
oDoc = ThisComponent

Спасибо JohnSUN!

Что-то вас, ребята, заносит не туда!
Всё же очень просто:

Sub Main ' запускать этот макрос!
SName="Лист1"
reCreateSheet(SName)
End Sub

Hasim, спасибо за вариант!

Вообще, честно говоря, я расчитывал что есть какая-нибудь команда очистить лист, очистить ячейку, очистить документ, строку столбец и тд) Очень странно что нельзя сделать этого одной командой, а приходится через удаление листа и восстановления его снова.

Подскажите ещё пожалуйста как присвоить переменной имя текущего листа?

То есть мне нужно проверить на каком листе выделяются ячейки, и в зависимости от имени листа раскидывать выделенные данные по нужным ячейкам на новом листе.

Цитата: Nikem79 от 17 июля 2012, 09:45
Вообще, честно говоря, я расчитывал что есть какая-нибудь команда очистить лист, очистить ячейку, очистить документ, строку столбец и тд) Очень странно что нельзя сделать этого одной командой, а приходится через удаление листа и восстановления его снова.

Почему нельзя, очень даже можно. См. ответы JohnSUN.

Цитата: JohnSUN от 16 июля 2012, 17:29
Есть несколько способов.
Самый простой и надежный — удалить лист по имени (если он был) и создать новый с таким же именем.
…
Чуть сложнее — выбрать лист, вычислить область, в которой есть данные, и для этого диапазона выполнить метод .clearContents. Зато в этом случае можно, например, удалить только данные, а всё форматирование оставить на месте…

Вот этот второй метод и нужен.
Правда, JohnSUN почему-то пожадничал и не стал его описывать. Но если его попросить хорошенько, он опишет очень даже подробно.

Для этого понадобится как-то выделять данные, а запись макроса не поддерживает выделения мышью. Удалось выделять только курсором для записи макроса, однако код убойной длины получился. На выделение каждой ячейки штук 6 строк и цикл применить у меня не получилось… Не разобрался. В любом случае слишком долго он выполняется, как-то криво тоже.

Но это опять же нужно выделять область, а я говорил про возможность очистки всего листа…

Таки, оказалось принципиально не удаление всего листа и создание заново, а именно стирание содержимого, так как при удалении и создании нового листа теряются ссылки ведущие на него с других листов!..

Актуально очистка данных всего листа

помогите пожалуйста

А запись с помощью макрорекордера последовательности нажатий клавиш Ctrl+A (выделить весь лист) — BackSpace (окно чистки) не сработала?
У меня получилось такое:

sub clearCurrentSheet
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Flags"
args1(0).Value = "A"
dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args1())
end sub
Если выделить несколько листов и запустить макрос — почистит все выделенные…

Странно, когда я выделял CTRL+A и удалял содержимое, он мне создал макрос с удалением листа и созданием его заново… Щас попробую ваш макрос, благодарю!

Новая проблема возникла, мой макрос должен копировать выделенные строчки из одного листа в другой, так вот когда лист очищается, снимается выделение с исходного листа и выделяется диапазон на новом листе для удаления. И далее по коду после очистки он пытается скопировать всё сам в себя)))

Теперь думаю как это обойти…

В этой статье представлена ошибка с номером Ошибка 449, известная как Аргумент не является обязательным, описанная как Количество и типы аргументов должны соответствовать ожидаемым.

О программе Runtime Ошибка 449

Время выполнения Ошибка 449 происходит, когда Windows дает сбой или падает во время запуска, отсюда и название. Это не обязательно означает, что код был каким-то образом поврежден, просто он не сработал во время выполнения. Такая ошибка появляется на экране в виде раздражающего уведомления, если ее не устранить. Вот симптомы, причины и способы устранения проблемы.

Определения (Бета)

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

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

Следуйте за нами:

Последнее обновление:

02/02/22 02:09 : Пользователь Linux проголосовал за то, что метод восстановления 1 работает для него.

Рекомендуемый инструмент для ремонта:

Этот инструмент восстановления может устранить такие распространенные проблемы компьютера, как синие экраны, сбои и замораживание, отсутствующие DLL-файлы, а также устранить повреждения от вредоносных программ/вирусов и многое другое путем замены поврежденных и отсутствующих системных файлов.

ШАГ 1:

Нажмите здесь, чтобы скачать и установите средство восстановления Windows.

ШАГ 2:

Нажмите на Start Scan и позвольте ему проанализировать ваше устройство.

ШАГ 3:

Нажмите на Repair All, чтобы устранить все обнаруженные проблемы.

СКАЧАТЬ СЕЙЧАС

Совместимость

ID статьи: ACX02494RU

Применяется к: Windows 10, Windows 8.1, Windows 7, Windows Vista, Windows XP, Windows 2000

0

Xabier
24 Ноя 2017 в 10:01

1

David Feltendal
24 Ноя 2017 в 11:31

• When you get the error, it will highlight a line. Which line? Then look at the function you are using on that line, and find the documentation for it, and look at which arguments are required, and compare it to what you have.

  Jun 24, 2020 at 5:56

• oField = oEvent.Source.Model . this line .

  Jun 24, 2020 at 6:21

• and im already correct this line ‘Dim oFeld As Object’ to ‘Dim oField As Object

  Jun 24, 2020 at 6:27

• Did you look at the documentation for that object? When you use all Object variables like that and provide no information about them in your post, it’s going to be quite difficult for anyone to be able to help you. Start by figuring out what type of object oEvent is…

  Jun 24, 2020 at 9:02

• This language is LibreOffice Basic, not VBA (Microsoft Office), so please remove the vba tag.

  Jun 24, 2020 at 17:48
  

1 Answer

Answers

• Found the problem. It was that in the header file in one order where the afx_msg macro is interpreted and in the source file where the DISP_FUNCTION macro was interpreted, it was swapped with another function name that took a parameter.

  Kind of dicey if you ask me but oh well. Chock one up to experience.

  • Marked as answer by

    Monday, July 6, 2009 8:04 AM