Выборка из общей таблицы и запись выборки в отдельный файл

[luu]

Как обойти это?

а что дает вывод FolderName ?

Дает полный путь к файлу, в котором запускается макрос + /Заявки/

Это просто для самопроверки добавил. Чтобы понять, верное ли значение в переменной

Вот:

[bigor]

Ну вот этот путь теперь нужно конвертнуть в URL через ConvertToURL
ps и забыл что там у вас в имени файла, но лучше конвертировать уже полный путь с именем файла

[luu]

Ну вот этот путь теперь нужно конвертнуть в URL через ConvertToURL
ps и забыл что там у вас в имени файла, но лучше конвертировать уже полный путь с именем файла

Спасибо за подсказку!
Сейчас код такой:

Код Выделить Развернуть

Sub export_to_pdf

Dim param1(1) As new com.sun.star.beans.PropertyValue
Dim Arg(0) As new com.sun.star.beans.PropertyValue

FolderName = convertFromURL(DirectoryNameoutofPath(ThisComponent.URL, "/") & "/Заявки/"
ExportFileName = "test"

Doc = ThisComponent
Sheet = Doc.Sheets.getByName("Форма заявки")
CellRange = Sheet.getCellRangeByName("$a$1:$f$30")

REM Export PDF:
Arg(0).Name = "Selection"
Arg(0).Value = CellRange

  Param1(0).Name =  "FilterName"
  Param1(0).Value = "calc_pdf_Export"
  Param1(1).Name = "FilterData"
  Param1(1).Value = Arg()
                       
Doc.storeToURL ConvertToURL(FolderName & ExportFileName & ".pdf"), Param1()

REM Export XLS:
  Param1(0).Name =  "FilterName"
  Param1(0).Value = "MS Excel 97"
  Param1(1).Name = "FilterData"
  Param1(1).Value = Arg()

Doc.storeToURL ConvertToURL(FolderName & ExportFileName & ".xls"), Param1()

End Sub

Но возникло два вопроса:
1. При экспорте в XLS он экспортирует весь файл со всеми листами. Как мне указать, чтобы экспортировался только  выделенный диапазон определенного листа? Вроде бы так же передается через параметр FilterData, но не работает
2. Вот в этой строке указывается диапазон для экспорта, как я понимаю. Но можно ли его сделать зависимым исходя из информации на листе? Например, если в сформированной заявке будет много строк, то не все они попадут в указанный заранее диапазон.

Код Выделить Развернуть

CellRange = Sheet.getCellRangeByName("$a$1:$f$30")

[bigor]

Как я понимаю
1.  FilterData работает только с выводом графики (pdf, png, jpg), поэтому с xls не работает
как вариант или перенести нужный диапазон/лист в новую книгу и сохранить или удалить все ненужное и сохранить.
2. Диапазон я задал, для своего примера, его можно в макросе менять как угодно.

[luu]

2. Диапазон я задал, для своего примера, его можно в макросе менять как угодно.

Да, конечно. Это понятно. Просто заявка может состоять, например из одной строки, а может из 300. И хотелось бы как-то универсально указать диапазон, чтобы не было много пустых страниц.

[bigor]

Вы же до сохранения файла уже знаете сколько строк в него вставили. Вот и задавайте нужный диапазон исходя из числа строк в нем.

зы удобнее задавать будет через getCellRangeByPosition

[luu]

Вот таким образом попытался после создания файла XLS открыть его и удалить один лишний, заранее известный лист.
Но чет ничего не меняется:

Код Выделить Развернуть

Sub export_to_pdf_xls

Dim param1(1) As new com.sun.star.beans.PropertyValue
Dim Arg(0) As new com.sun.star.beans.PropertyValue

Dim prop(0) as new com.sun.star.beans.PropertyValue

    prop(0).Name="Hidden"
    prop(0).Value= true
   
GlobalScope.BasicLibraries.LoadLibrary("Tools")

FolderName = convertFromURL(DirectoryNameoutofPath(ThisComponent.URL, "/") & "/Заявки/"
ExportFileName = "test"

Doc = ThisComponent
Sheet = Doc.Sheets.getByName("Форма заявки")
CellRange = Sheet.getCellRangeByName("$a$1:$f$300")

REM Export PDF:
Arg(0).Name = "Selection"
Arg(0).Value = CellRange

  Param1(0).Name =  "FilterName"
  Param1(0).Value = "calc_pdf_Export"
  Param1(1).Name = "FilterData"
  Param1(1).Value = Arg()
Doc.storeToURL ConvertToURL(FolderName & ExportFileName & ".pdf"), Param1()

REM Export XLS:
  Param1(0).Name =  "FilterName"
  Param1(0).Value = "MS Excel 97"
  Param1(1).Name = "FilterData"
  Param1(1).Value = Arg()
Doc.storeToURL ConvertToURL(FolderName & ExportFileName & ".xls"), Param1()

  oDoc2 = StarDesktop.loadComponentFromUrl(convertToURL(FolderName & ExportFileName & ".xls"), "_blank", 0, Prop())
  oDoc2.Sheets.removeByName("Заявки_авиа")
  oDoc2.Close(true)

End Sub

[bigor]

А что должно поменяться? Вы файл открыли, лист удалили и файл закрыли без сохранения

[luu]

А что должно поменяться? Вы файл открыли, лист удалили и файл закрыли без сохранения

Спасибо! Теперь все получилось.

Код Выделить Развернуть


  oDoc2 = StarDesktop.loadComponentFromUrl(convertToURL(FolderName & ExportFileName & ".xls"), "_blank", 0, Prop())
  oDoc2.Sheets.removeByName("Заявки_авиа")
  oDoc2.Store()
  oDoc2.Close(true)


А по поводу строк указал диапазон в 300 срок и все работает как нужно. Если строка только одна - то импортирует одну страницу. Пустые корректно отрабатывает

[bigor]

Можно проще сделать:

Код Выделить Развернуть

Doc.Sheets.removeByName("Заявки_авиа")
Doc.storeToURL ConvertToURL(FolderName & ExportFileName & ".xls"), Param1()
Doc.Close(true)

End Sub

ps если строки макросом заполняете