You can always use your macro recorder to catch some code and use it in a script
Here is maybe an idea for your first scenario have an Excel file which contains hundreds of user IDs, contact information, location, department, and manager IDs for each of listed users.
;*************************************************************************
; Script Name:
; Author: Wim Rotty
; Date: 26/09/2007
; Description: Copy and paste data from one Excel book to other books
;*************************************************************************
;Script Options
If Not @LOGONMODE
Break On
Else
Break Off
EndIf
Dim $RC
$RC = SetOption("Explicit", "On")
$RC = SetOption("NoMacrosInStrings", "On")
$RC = SetOption("NoVarsInStrings", "On")
If @SCRIPTEXE = "KIX32.EXE"
$RC = SetOption("WrapAtEOL", "On")
EndIf
;Declare variables
Dim $MyTable
Dim $objExcel
Dim $xlDown, $xlToLeft, $xlToRight, $xlUp
;Initialize variables
$MyTable = "C:\Test\Tabel.xls"
$objExcel = CreateObject("Excel.Application")
If @ERROR
Exit @ERROR
EndIf
$xlDown = -4121
$xlToLeft = -4159
$xlToRight = -4161
$xlUp = -4162
;Code
$objExcel.Visible = -1
$RC = $objExcel.Workbooks.Open($MyTable)
$RC = $objExcel.Selection.Autofilter
$RC = $objExcel.Range("A1").End($xlDown).End($xlToRight).Select
$RC = $objExcel.Range($objExcel.Selection, $objExcel.Cells(1)).Select
$RC = $objExcel.Selection.AutoFilter(4, "ManA")
$RC = $objExcel.Selection.Copy
$RC = $objExcel.Workbooks.Add
$RC = $objExcel.ActiveSheet.Paste
$RC = $objExcel.ActiveWindow.ActivateNext
$RC = $objExcel.Selection.AutoFilter(4, "ManC")
$RC = $objExcel.Selection.Copy
$RC = $objExcel.Workbooks.Add
$RC = $objExcel.ActiveSheet.Paste
$RC = $objExcel.ActiveWindow.ActivateNext
$RC = $objExcel.Selection.AutoFilter(4, "ManD")
$RC = $objExcel.Selection.Copy
$RC = $objExcel.Workbooks.Add
$RC = $objExcel.ActiveSheet.Paste
$RC = $objExcel.ActiveWindow.ActivateNext
$RC = $objExcel.Selection.AutoFilter(4, "ManF")
$RC = $objExcel.Selection.Copy
$RC = $objExcel.Workbooks.Add
$RC = $objExcel.ActiveSheet.Paste
$RC = $objExcel.ActiveWindow.ActivateNext
$RC = $objExcel.Selection.AutoFilter(4)
;Personal UDF Section
;UDF Section |
Microsoft Excel Constants (Excel 2003 VBA Language Reference)
