Помогите, плиз, переколбасить VBA макрос в VBS скрипт

Узнай цену своей работы

Формулировка задачи:

Времени вникать в тонкости синтаксиса vbs нет, а задание горит, поэтому решил кинуть клич добрым людям. Помогите, пожалуйста, преобразовать вот этот простенький макрос в vbs скрипт. Буду очень признателен.

Решение задачи: «Помогите, плиз, переколбасить VBA макрос в VBS скрипт»

textual
Листинг программы
Dim objExcel
Set objExcel = WScript.CreateObject("Excel.Application")
Dim thisWorkbook
Set thisWorkbook = objExcel.Workbooks.Open("C:\Documents and Settings\gerchikova\Local Settings\Temp\plavixReport.xlsx")
Dim thisSheet
Set thisSheet = thisWorkbook.Sheets.Add

                thisSheet.Name = "Summury"
                thisWorkbook.PivotCaches.Create(xlDatabase, "InWeek!R1C1:R830C21", xlPivotTableVersion12).CreatePivotTable _
                    thisSheet.Cells(3, 1), "PivotTable1", xlPivotTableVersion12

                Cells(3, 1).Select
               
                thisSheet.PivotTables("PivotTable1").AddDataField thisSheet.PivotTables( _
                    "PivotTable1").PivotFields("calls2"), "Count of calls2", xlCount
                With thisSheet.PivotTables("PivotTable1").PivotFields("год")
                    .Orientation = xlPageField
                    .Position = 1
                End With
                With thisSheet.PivotTables("PivotTable1").PivotFields("месяц")
                    .Orientation = xlPageField
                    .Position = 1
                End With                
                With thisSheet.PivotTables("PivotTable1").PivotFields("пол")
                    .Orientation = xlPageField
                    .Position = 1
                End With
                With thisSheet.PivotTables("PivotTable1").PivotFields("возраст")
                    .Orientation = xlPageField
                    .Position = 1
                End With
                
                Range("B22").Select
                thisSheet.PivotTables("PivotTable1").PivotFields("город по таблице 1"). _
                    AutoSort xlDescending, "Count of calls2", thisSheet.PivotTables("PivotTable1" _
                    ).PivotColumnAxis.PivotLines(1), 1
                  

        thisWorkbook.Save
        thisWorkbook.Close
    
    
    objExcel.Quit


Set objExcel = Nothing

WScript.Quit 0

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5