Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
Ноябрь 25, 2017, 03:14:07 am

Автор Тема: Макрос  (Прочитано 232 раз)

Оффлайн Vedutenko

  • Наставник
  • **
  • Сообщений: 58
  • Страна: ru
  • Рейтинг: +4/-0
    • Просмотр профиля
Макрос
« : Июнь 05, 2017, 02:08:00 pm »
Извините за тему, решил проблему. Спасибо!

Оффлайн admin

  • Administrator
  • Hero Member
  • *****
  • Сообщений: 983
  • Страна: ru
  • Рейтинг: +97/-0
    • Просмотр профиля
Re: Макрос
« Ответ #1 : Июнь 05, 2017, 07:46:14 pm »
 :)
Думаю, многим будет интересно, как?

Оффлайн Vedutenko

  • Наставник
  • **
  • Сообщений: 58
  • Страна: ru
  • Рейтинг: +4/-0
    • Просмотр профиля
Re: Макрос
« Ответ #2 : Июнь 06, 2017, 08:22:10 am »
sub exportReportToExcel
Set QvDoc = ActiveDocument
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible =  true
objExcelApp.DisplayAlerts = false
dim qvObjectId
Set objExcelDoc =  objExcelApp.Workbooks.Add


objExcelDoc.Sheets(1).Name="Табличные данные"
'objExcelDoc.Sheets.Add()
objExcelDoc.Sheets(2).Delete
objExcelDoc.Sheets(2).Delete
'objExcelDoc.Sheets(2).Delete
'objExcelDoc.Sheets(1).Name="Лист с графиками"

set objExcelSheet=objExcelDoc.Sheets(1)

objExcelSheet.Select

set objSource = QvDoc.GetSheetObject("CH01")

   Call objSource.GetSheet().Activate()
   Set objCurrentSheet = objExcelDoc.Sheets("Табличные данные")
   'QvDoc.GetApplication.WaitForIdle
   'ActiveDocument.Fields("ТипПлана").Select "Ежемесячный"   
   'ActiveDocument.Fields("Квартал_ПФ").Select ""   
   Call objSource.CopyTableToClipboard(true)
                                                                                                                                             '   Set objCurrentSheet = objExcelDoc.Sheets("Лист с данными")
      objCurrentSheet.Range("A2").Select
      objExcelDoc.Sheets("Табличные данные").Paste
     
set objExcelSheet=objExcelDoc.Sheets(1)

objExcelSheet.Select

set objSource = QvDoc.GetSheetObject("CH01")

 
 
     
   '   objExcelDoc.Sheets("Табличные данные").Range("A2:F2").WrapText = True
      objExcelDoc.Sheets("Табличные данные").Range("A:A").ColumnWidth = 15
  '     Columns("A:A").Select
  '  Selection.ColumnWidth = 15
  '    set  inter= objExcelDoc.Sheets("Табличные данные").Range("A1:F1")
  '    inter.interior.Color = 15263976
  '    inter.FormulaR1C1 = "Выполнение ежемесячного плана продаж 2017"
  '    inter.Merge
     
     
   '   objExcelDoc.Sheets("Табличные данные").Columns("A:M").ColumnWidth = 10.14


' objExcelDoc.SaveAs "C:\Users\Vedutenko\Desktop\таблицы\test.xlsx"     
 
end sub



Неофициальный форум пользователей QlikView & Qlik Sense

Re: Макрос
« Ответ #2 : Июнь 06, 2017, 08:22:10 am »