Помогите, плиз, переколбасить 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д