Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <process name="__selection__Excel Extended AIKUDINO" type="object">
- <subsheet subsheetid="13412551-003d-4e8e-9b6e-98881ebe6fc4" type="Normal" published="True">
- <name>Range.Autofill</name>
- <view>
- <camerax>-38</camerax>
- <cameray>0</cameray>
- <zoom version="2">1.25</zoom>
- </view>
- </subsheet>
- <stage stageid="700b0c1c-6589-4b21-86da-8eeff3508836" name="Range.Autofill" type="SubSheetInfo">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <narrative></narrative>
- <displayx>-195</displayx>
- <displayy>-105</displayy>
- <displaywidth>150</displaywidth>
- <displayheight>90</displayheight>
- <font family="Segoe UI" size="10" style="Regular" color="000000" />
- </stage>
- <stage stageid="0b97dbdc-ed5b-4e5b-94f5-3a2d24486182" name="Start" type="Start">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <loginhibit />
- <narrative></narrative>
- <displayx>-45</displayx>
- <displayy>-135</displayy>
- <displaywidth>60</displaywidth>
- <displayheight>30</displayheight>
- <font family="Segoe UI" size="10" style="Regular" color="000000" />
- <inputs>
- <input type="number" name="handle" narrative="Excel handle" stage="handle" />
- <input type="text" name="Workbook Name" narrative="Workbook Name" stage="workbookname" />
- <input type="text" name="Worksheet Name" narrative="Worksheet Name" stage="worksheetname" />
- <input type="number" name="Worksheet Index" narrative="or Worksheet index" stage="worksheetidx" />
- <input type="text" name="SelectionRange" narrative="Source range" stage="srcRange" />
- <input type="text" name="DestinationRange" narrative="Autofill range. Uses CurrentRegion when blank" stage="dstRange" />
- <input type="number" name="xlAutoFillType" narrative="Default is 0 (xlFillDefault). https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.interop.excel.xlautofilltype" stage="xlAutoFillType" />
- </inputs>
- <onsuccess>245151b3-fbdf-4e4d-b3a0-20d43372e87e</onsuccess>
- </stage>
- <stage stageid="7b7eba00-b2e3-4ed4-885a-403e3bb5ec80" name="End" type="End">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <loginhibit />
- <narrative></narrative>
- <displayx>-45</displayx>
- <displayy>-45</displayy>
- <displaywidth>60</displaywidth>
- <displayheight>30</displayheight>
- <font family="Segoe UI" size="10" style="Regular" color="000000" />
- </stage>
- <stage stageid="245151b3-fbdf-4e4d-b3a0-20d43372e87e" name="Range.Autofill" type="Code">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <loginhibit />
- <narrative></narrative>
- <displayx>-45</displayx>
- <displayy>-90</displayy>
- <displaywidth>120</displaywidth>
- <displayheight>30</displayheight>
- <font family="Tahoma" size="10" style="Regular" color="000000" />
- <inputs>
- <input type="number" name="handle" expr="[handle]" />
- <input type="text" name="workbookname" expr="[workbookname]" />
- <input type="text" name="worksheetname" expr="[worksheetname]" />
- <input type="number" name="worksheetidx" expr="[worksheetidx]" />
- <input type="text" name="srcRange" expr="[srcRange]" />
- <input type="text" name="dstRange" expr="[dstRange]" />
- <input type="number" name="xlAutoFillType" expr="[xlAutoFillType]" />
- </inputs>
- <outputs>
- <output type="text" name="dstRangeDbg" stage="dstRange" />
- </outputs>
- <onsuccess>7b7eba00-b2e3-4ed4-885a-403e3bb5ec80</onsuccess>
- <code><![CDATA[Dim xlInstance = GetInstance(handle)
- Dim xlWorkbook As Object = GetWorkbook(handle, workbookname)
- Dim xlSrcSheet As Object
- If worksheetname <> "" then
- xlSrcSheet = GetWorksheet(handle, workbookname, worksheetname,False)
- Elseif worksheetidx > 0 then
- xlSrcSheet = xlWorkbook.Sheets(worksheetidx)
- Else
- xlSrcSheet = xlWorkbook.ActiveSheet
- End if
- if dstRange = "" then
- 'Normally Autofill works up to a non-empty cell, but it is too complicated, so we just fill up to the end of CurrentRegion.
- dstRange = xlSrcSheet.Range(
- xlSrcSheet.Range(srcRange).Cells(1),
- xlSrcSheet.Cells(xlSrcSheet.Range(srcRange).CurrentRegion.Cells(1).Row + xlSrcSheet.Range(srcRange).CurrentRegion.Rows.Count-1,
- xlSrcSheet.Range(srcRange).Cells(1).Column + xlSrcSheet.Range(srcRange).Columns.Count-1)).Address
- End if
- dstRangeDbg = dstRange
- xlSrcSheet.Range(srcRange).Autofill(xlSrcSheet.Range(dstRange),xlAutoFillType)]]></code>
- </stage>
- <stage stageid="414593e2-f8e6-4c3b-93c8-725a7971b712" name="handle" type="Data">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <narrative></narrative>
- <displayx>105</displayx>
- <displayy>-135</displayy>
- <displaywidth>90</displaywidth>
- <displayheight>30</displayheight>
- <font family="Tahoma" size="10" style="Regular" color="000000" />
- <datatype>number</datatype>
- <initialvalue>0</initialvalue>
- <private />
- <alwaysinit />
- </stage>
- <stage stageid="fbfbfb61-9aba-448d-8012-363865eb5737" name="worksheetname" type="Data">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <narrative></narrative>
- <displayx>90</displayx>
- <displayy>-45</displayy>
- <displaywidth>60</displaywidth>
- <displayheight>30</displayheight>
- <font family="Tahoma" size="10" style="Regular" color="000000" />
- <datatype>text</datatype>
- <initialvalue />
- <private />
- <alwaysinit />
- </stage>
- <stage stageid="5324e6b8-0790-4eab-a15e-8081afe61e1e" name="workbookname" type="Data">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <narrative></narrative>
- <displayx>120</displayx>
- <displayy>-90</displayy>
- <displaywidth>120</displaywidth>
- <displayheight>30</displayheight>
- <font family="Tahoma" size="10" style="Regular" color="000000" />
- <datatype>text</datatype>
- <initialvalue />
- <private />
- <alwaysinit />
- </stage>
- <stage stageid="bf18e8d9-1672-4d58-a51e-1c06ea8661fb" name="worksheetidx" type="Data">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <narrative></narrative>
- <displayx>150</displayx>
- <displayy>-45</displayy>
- <displaywidth>60</displaywidth>
- <displayheight>30</displayheight>
- <font family="Segoe UI" size="10" style="Regular" color="000000" />
- <datatype>number</datatype>
- <initialvalue>0</initialvalue>
- <private />
- <alwaysinit />
- </stage>
- <stage stageid="a947e0ce-6275-42f0-b34c-02cd29d59a6c" name="srcRange" type="Data">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <narrative></narrative>
- <displayx>90</displayx>
- <displayy>0</displayy>
- <displaywidth>60</displaywidth>
- <displayheight>30</displayheight>
- <font family="Segoe UI" size="10" style="Regular" color="000000" />
- <datatype>text</datatype>
- <initialvalue />
- <private />
- <alwaysinit />
- </stage>
- <stage stageid="c3d15b6a-317a-4465-bd73-bebc51a72918" name="dstRange" type="Data">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <narrative></narrative>
- <displayx>150</displayx>
- <displayy>0</displayy>
- <displaywidth>60</displaywidth>
- <displayheight>30</displayheight>
- <font family="Segoe UI" size="10" style="Regular" color="000000" />
- <datatype>text</datatype>
- <initialvalue />
- <private />
- <alwaysinit />
- </stage>
- <stage stageid="1caa68d2-921f-449c-87cd-9b0e1368391e" name="xlAutoFillType" type="Data">
- <subsheetid>13412551-003d-4e8e-9b6e-98881ebe6fc4</subsheetid>
- <narrative></narrative>
- <displayx>210</displayx>
- <displayy>0</displayy>
- <displaywidth>60</displaywidth>
- <displayheight>30</displayheight>
- <font family="Segoe UI" size="10" style="Regular" color="000000" />
- <datatype>number</datatype>
- <initialvalue>0</initialvalue>
- <private />
- <alwaysinit />
- </stage>
- </process>
Advertisement
Add Comment
Please, Sign In to add comment