<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Excel VBO - Transferring VBA from Excel into Blue Prism in Product Forum</title>
    <link>https://community.blueprism.com/t5/Product-Forum/Excel-VBO-Transferring-VBA-from-Excel-into-Blue-Prism/m-p/59744#M13334</link>
    <description>I am trying to write an excel filter action. Here is what I have in Blue Prism:

Dim wb, ws as Object
Dim excel, sheet, range As Object
wb = GetWorkbook(Handle, Workbookname)
ws = GetWorksheet(Handle, Workbookname, Worksheetname)

wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet
range = sheet.Range(DataRange)
ws.range.Autofilter (Field:=[field1], Criteria1:=[criteria1], _
Operator:=[operator1], Criteria2:=[criteria2])

&amp;nbsp;

Original filter code in VBA:

'ActiveSheet.Range("$A$4:$U$1747").AutoFilter Field:=8,
'Criteria1:="=*Spl*", Operator:=xlAnd, Criteria2:="=*Harbor"

I received the following error: Number of parameters specified does not match the expected number.

Please advise what has to be adjusted. Can a method in VBA have more than 2 parameters? Could that be an issue?</description>
    <pubDate>Fri, 16 Mar 2018 17:15:00 GMT</pubDate>
    <dc:creator>Anonymous</dc:creator>
    <dc:date>2018-03-16T17:15:00Z</dc:date>
    <item>
      <title>Excel VBO - Transferring VBA from Excel into Blue Prism</title>
      <link>https://community.blueprism.com/t5/Product-Forum/Excel-VBO-Transferring-VBA-from-Excel-into-Blue-Prism/m-p/59744#M13334</link>
      <description>I am trying to write an excel filter action. Here is what I have in Blue Prism:

Dim wb, ws as Object
Dim excel, sheet, range As Object
wb = GetWorkbook(Handle, Workbookname)
ws = GetWorksheet(Handle, Workbookname, Worksheetname)

wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet
range = sheet.Range(DataRange)
ws.range.Autofilter (Field:=[field1], Criteria1:=[criteria1], _
Operator:=[operator1], Criteria2:=[criteria2])

&amp;nbsp;

Original filter code in VBA:

'ActiveSheet.Range("$A$4:$U$1747").AutoFilter Field:=8,
'Criteria1:="=*Spl*", Operator:=xlAnd, Criteria2:="=*Harbor"

I received the following error: Number of parameters specified does not match the expected number.

Please advise what has to be adjusted. Can a method in VBA have more than 2 parameters? Could that be an issue?</description>
      <pubDate>Fri, 16 Mar 2018 17:15:00 GMT</pubDate>
      <guid>https://community.blueprism.com/t5/Product-Forum/Excel-VBO-Transferring-VBA-from-Excel-into-Blue-Prism/m-p/59744#M13334</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2018-03-16T17:15:00Z</dc:date>
    </item>
    <item>
      <title>Dim wb, ws As Object
Dim…</title>
      <link>https://community.blueprism.com/t5/Product-Forum/Excel-VBO-Transferring-VBA-from-Excel-into-Blue-Prism/m-p/59745#M13335</link>
      <description>Dim wb, ws As Object
Dim excel, sheet As Object
&amp;nbsp;&amp;nbsp; &amp;nbsp;wb = GetWorkbook(handle, workbookname)
&amp;nbsp;&amp;nbsp; &amp;nbsp;ws = GetWorksheet(handle, workbookname, worksheetname)
&amp;nbsp;&amp;nbsp; &amp;nbsp;wb.Activate()
&amp;nbsp;&amp;nbsp; &amp;nbsp;ws.Activate()
&amp;nbsp;&amp;nbsp; &amp;nbsp;excel = ws.Application
&amp;nbsp;&amp;nbsp; &amp;nbsp;sheet = excel.ActiveSheet
if (inputCriteria1 = """") then
&amp;nbsp;&amp;nbsp; &amp;nbsp;sheet.Range(InputRange).AutoFilter(Field:=[inputField],VisibleDropDown:=[inputVisibleDropDown])
else if (inputOperator  0) then
&amp;nbsp;&amp;nbsp; &amp;nbsp;sheet.Range(InputRange).AutoFilter(Field:=[inputField],Criteria1:=[inputCriteria1],Operator:=[inputOperator],Criteria2:=[inputCriteria2],VisibleDropDown:=[inputVisibleDropDown])
else
&amp;nbsp;&amp;nbsp; &amp;nbsp;sheet.Range(InputRange).AutoFilter(Field:=[inputField],Criteria1:=[inputCriteria1],VisibleDropDown:=[inputVisibleDropDown])
end if
&amp;nbsp;</description>
      <pubDate>Thu, 24 May 2018 16:48:00 GMT</pubDate>
      <guid>https://community.blueprism.com/t5/Product-Forum/Excel-VBO-Transferring-VBA-from-Excel-into-Blue-Prism/m-p/59745#M13335</guid>
      <dc:creator>BordessoullesVi</dc:creator>
      <dc:date>2018-05-24T16:48:00Z</dc:date>
    </item>
  </channel>
</rss>

