' In this macro we suppose an Excel spreadsheet with the following header: ' COL1 | COL2 | ERROR ' ' Van Keer ' ' OPTION EXPLICIT autECLSession.SetConnectionByName(ThisSessionName) If Msgbox("Full Excel Transfer Test" & VbCrLf & VbCrLf & _ "Proceed?", vbYesNo, "Welcome") = 6 Then ' Constants Const DEBUGMODE = FALSE ' Testfase? Const COLORPROCESSED = 65280 ' Green Const COLORERROR = 255 ' Red ' Variables Dim ObjExcelAppl, ObjWorkbook, ObjWorksheet, StrFileName Dim ErrorMessage Dim cCOL1, cCOL2, cERROR Dim col1, col2 Main ' Clean up. ' Excel2AS400_English.mac ' A template for Excel 2 AS/400 macros. LANGUAGE=VBSCRIPT DESCRIPTION=A template for Excel 2 AS/400 macros. Any help in getting this macro up and running will make my job a million times easier. I will also have attached a simple version of the excel spreadsheet which will hold the information.
#Ibm i access client solutions data transfer sql0803 code
VBscript really isn't my strongest area by any means, I consider myself a beginner, but I will post the code that I have edited from the template below, as well as the link to the webpage in which I have found the template. I continue to get "unknown runtime errors" (line 268) in the macro.
I also found a website that had a template posted, however I just can't seem to get it to work properly. I saw a related question on Experts Exchange, but the link in the solution was broken. I am attempting to write a VBscript macro for IBM Client Access that will pull data from the cells of an excel spreadsheet and run through a loop until the rows of the spreadsheet are completed.