BuiSiBach Posted August 31, 2014 Share Posted August 31, 2014 (edited) Hi all, I am starting to learning VB, EXCEL and AS400 for my job. No I have so many works which need to connect and get and read data from excel and pass to aS400 like. I need to do the table setup in excel file and now I need to use TABCPY to copy from one physical to another physical file but I dont think the best way to manually copy one by one item. I also have column item in excel now I would like to read this column and pass to command TABCPY. I need help. Thanks for everybody. [PCOMM SCRIPT HEADER] LANGUAGE=VBSCRIPT DESCRIPTION= [PCOMM SCRIPT SOURCE] OPTION EXPLICIT autECLSession.SetConnectionByName(ThisSessionName) REM This line calls the macro subroutine subSub1_ sub subSub1_() autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "tabcpy" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[pf4]" autECLSession.autECLPS.WaitForAttrib 5,36,"10","3c",3,10000 autECLSession.autECLPS.WaitForCursor 5,37,10000 autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "bcfgdta" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "1T3681bactdta" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "EMB" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[delete]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[tab]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "replace" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[enter]" end sub Edited August 31, 2014 by BuiSiBach Link to comment Share on other sites More sharing options...
water Posted August 31, 2014 Share Posted August 31, 2014 Welcome to AutoIt and the forum! What exactly is your question? My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki Link to comment Share on other sites More sharing options...
BuiSiBach Posted September 1, 2014 Author Share Posted September 1, 2014 I want to write a script VB (like macro in AS400), run this scirpt it will read data from excel and pass to AS400 command TABCPY Transfer Table Items (TABCPY) Type choices, press Enter. Source Library . . . . . . . . . > BCFGDTA Character value Source Company . . . . . . . . . > 1 A-9, * Source Table . . . . . . . . . . > T3681 Character value Target Library . . . . . . . . . > BACTDTA Character value Target Company . . . . . . . . . * A-9, * Target Table . . . . . . . . . . *STAB Character value Item, Generic*, *ALL . . . . . . > EMB Character value It will get item from excel sheet Generic Copy . . . . . . . . . . *NO *YES, *NO MERGE into or REPLACE data . . . > *REPLACE *MERGE, *REPLACE Generate Report . . . . . . . . *NO *YES, *NO Report Only . . . . . . . . . . *NO *YES, *NO Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted September 1, 2014 Moderators Share Posted September 1, 2014 BuiSiBach, I want to write a script VBThen I suggest you post on a VB forum - this one is dedicated to coding in the AutoIt language. M23 232showtime 1 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now