• vitaly576
  • Участник
  • Неактивен
  • Откуда: Санкт-Петербург
  • На форуме с 21 октября 2020
  • Сообщений: 122

Тема: Выгрузить обозначения в файл

Добрый день!
Возможно ли выгрузить заданные поля выделенных документов из архива в отдельный excel или текстовый файл?
Например: необходимо получить список обозначений технологических процессов в файле, разработанных технологом за определенный период.

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Выгрузить обозначения в файл

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

Если вам нужны именно документы, созданные технологами то наверное проще всего настроить выборку https://help.technologics.ru/7.9/TCSHelp/_501.htm, а далее на ее основе создать отчет https://help.technologics.ru/7.9/TCSHelp/_697.htm либо просто скопировать передать данные сетки в Excel (команда Операции с сеткой\Копировать данные.

Если вам нужны данные по самому ТП (электронному), тот тут встроенного режима нет, но сделать можно если знаете критерии по которым нужно данные отобрать.

  • vitaly576
  • Участник
  • Неактивен
  • Откуда: Санкт-Петербург
  • На форуме с 21 октября 2020
  • Сообщений: 122

Re: Выгрузить обозначения в файл

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

  • vitaly576
  • Участник
  • Неактивен
  • Откуда: Санкт-Петербург
  • На форуме с 21 октября 2020
  • Сообщений: 122

Re: Выгрузить обозначения в файл

Все же сделал скрипт для выгрузки определенных полей в файл Excel. Кому надо, вот код (работает из раздела "Архив"):

Sub Create_list(TCSActiveModule)
Dim oExcelApp ' Объявляем переменные
Dim oRangeD2D8
Dim oRangeH2J8
Dim i, a
Dim namelist, notelist, commentlist, datelist, userlist
 a = 0
Set oExcelApp = CreateObject("Excel.Application") ' Создаём объект с Excel-ем

oExcelApp.Visible = True ' Делаем Excel видимым
oExcelApp.Workbooks.Add ' Добавляем книгу в Excel
oExcelApp.Cells(1,1).Value =  "№ п/п"
oExcelApp.Cells(1,2).Value =  "Обозначение чертежа"
oExcelApp.Cells(1,3).Value =  "Наименование чертежа"
oExcelApp.Cells(1,4).Value =  "Обозначение ТД"
oExcelApp.Cells(1,5).Value =  "Дата создания"
oExcelApp.Cells(1,6).Value =  "Создал"

For i=0 to TCSActiveModule.SelectedRowsCount-1 Step 1
If TCSActiveModule.GotoSelectedRow(i) Then
 a = a+1
  namelist = TCSActiveModule.Properties("NAME").value
  notelist = TCSActiveModule.Properties("NOTE").value
  commentlist = TCSActiveModule.Properties("COMMENT").value
  userlist = TCSActiveModule.Properties("CR_USERNAME").value
  datelist = TCSActiveModule.Properties("CREATE_DATE").value

oExcelApp.Cells(i+2,1).Value = a ' заполняем ячейки № п/п
oExcelApp.Cells(i+2,2).Value = commentlist ' заполняем ячейки обозначением КД
oExcelApp.Cells(i+2,3).Value = namelist ' заполняем ячейки наименование КД
oExcelApp.Cells(i+2,4).Value = notelist ' заполняем ячейки обозначением ТД
oExcelApp.Cells(i+2,5).Value = datelist ' заполняем ячейки дата создания
oExcelApp.Cells(i+2,6).Value = userlist ' заполняем ячейки кто создал

oExcelApp.Range("A1:F1").Borders.LineStyle = True
oExcelApp.Range("A1:F1").Borders.LineStyle = True

oExcelApp.Cells(i+2,1).Borders.LineStyle = True
oExcelApp.Cells(i+2,2).Borders.LineStyle = True
oExcelApp.Cells(i+2,3).Borders.LineStyle = True
oExcelApp.Cells(i+2,4).Borders.LineStyle = True
oExcelApp.Cells(i+2,5).Borders.LineStyle = True
oExcelApp.Cells(i+2,6).Borders.LineStyle = True
 Set namelist = nothing
 Set notelist = nothing
 Set commentlist = nothing
 Set userlist = nothing
 Set datelist = nothing
   end if

Next

oExcelApp.Cells(1,1).EntireColumn.AutoFit
oExcelApp.Cells(1,2).EntireColumn.AutoFit
oExcelApp.Cells(1,3).EntireColumn.AutoFit
oExcelApp.Cells(1,4).EntireColumn.AutoFit
oExcelApp.Cells(1,5).EntireColumn.AutoFit
oExcelApp.Cells(1,6).EntireColumn.AutoFit
 On Error Resume Next
oExcelApp.Save ' Сохраняем Excel файл

If Err Then
  exit sub
  end if
On Error goto 0
End Sub