Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Iseries - Transfer to
I saw some messages that were old regarding people trying to automate
their data transfers to the Iseries via the client access add-in to Excel. It seems that recording keystrokes doesn't help any, so you end up having to use the "Sendkeys" command. Having said that, here is my code so far that works as long as there are no errors. I need to pause for a couple of seconds after the Sendkeys in case there are a couple of messages that pop up that have to have the user click ok on. Then, it will work to do the Activesheet.showalldata method. Sub CAUpload() 'Upload the MJE to AS400 Using Client Access Addin Dim TransReqFile As String TransReqFile = Range("Transreqfile").Value Call HideZeros Application.DisplayAlerts = False Range("Start").Offset(1, 0).Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select SendKeys ("/" + "D" + "D" + "D" + "{Enter}" + "{Tab 6}" _ + TransReqFile _ + "{Enter}" + "{Tab 2}"), True ActiveSheet.ShowAllData Range("a6").Select End Sub Bruce Roberson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Add-Ins for iSeries Access Data Transfer in Excel 2007 | New Users to Excel | |||
How can I transfer data from iSeries in MS-Excel 2003 with SP2 | Setting up and Configuration of Excel | |||
How do I transfer data from iSeries in excel 2003 sp2? | Excel Discussion (Misc queries) | |||
Toolbar buttons -- AS400 iSeries Transfer | Excel Discussion (Misc queries) | |||
How do I data transfer from Iseries in Excel 2003? | Excel Discussion (Misc queries) |