Проблема Преобразование VBA в VBS

-2

У меня возникли проблемы с преобразованием следующего кода VBA в VBS. Я новичок в написании VBS, поэтому любая помощь была бы весьма признательна.Проблема Преобразование VBA в VBS

Public Sub Details() 

    Set xl = New Excel 
    Set wb = xl.obj_.Workbooks.Add 
    Const xlWhole = 1 
    Const xlPart = 2 
    Const ColField = "Combined Field2" 

    Dim k, bfind 
    Set bfind = x1.ActiveSheet.UsedRange.Cells.Find(what:=ColField, lookat:=xlWhole) 
    k = bfind.Column 
    Columns(k).Delete 
    'create pivot 
       x1.ActiveSheet.Activate 
    Set PCache = x1.ActiveWorkbook.PivotCaches.Create(SourceType:=1, SourceData:=Range("A1").CurrentRegion.Address) 
     x1.Worksheets.Add 
     x1.ActiveSheet.Name = "Pivot" 
     x1.ActiveWindow.DisplayGridlines = False 
    Set pt = x1.ActiveSheet.PivotTables.Add(PivotCache:=PCache, TableDestination:=Range("A1"), TableName:="PivotTable1") 
    With pt 
      .InGridDropZones = True 
      .RowAxisLayout xlTabularRow 

     .DisplayContextTooltips = False 
     .ShowDrillIndicators = False 
     End With 

End Sub

источник

2014-12-11 Christopher Cannata

http://stackoverflow.com/questions/ 25927864/convert-vba-code-to-vbscript Если вам нужна более конкретная помощь, вам нужно точно описать, какие «проблемы» у вас есть ... –

Вы хотите указать в своем сообщении, каков ваш ВОПРОС, и какие проблемы у вас есть. Проводка кода - отличный старт, не поймите меня неправильно. Возможно, кто-то может просто взглянуть на него и сразу понять, что случилось. Я предполагаю, что у вас нет конкретного вопроса, и вы просто заявляете, что у вас проблемы, не указав их конкретно, он не получит внимания, которое вам нужно. как общее правило. – peege

Проблема начинается с строки: Установите bfind = x1.ActiveSheet.UsedRange.Cells.Find (что: = ColField, lookat: = xlWhole) –

Set xl = New Excel

Я не думаю, что VBScript может создать экземпляр Excel, как и что. Я не делаю VBScript, поэтому может, но я всегда видел Excel экземпляр что-то вроде этого:

' 1a. Get an existing Excel instance... 
Set Excel = GetObject(, "Excel.Application") 

' 1b. Or, create one. Make it visible for testing. 
Set Excel = CreateObject("Excel.Application") 
Excel.Visible = True

(взятый из this answer)

источник

2014-12-11 21:09:44

Проблема Преобразование VBA в VBS

ответ

Смежные вопросы