Skip to main content

IDEAScript Questions

Export multiple databases to one Excel file

Hello,
I am looking for a script that allows me to export multiple databases (4 standard databases) to one Excel file in multiple tabs, such as: 
- IDEA Database A = Excel tab A
- IDEA Database B = Excel tab B
I found a script on this forum where you can indicate which IDEA databases should be exported to one Excel file, because in my case there are four identical IDEA databases at all times, I would like to leave out this window and export the 4 databases concerned to one Excel file with multiple tabs by default. 

Compare Data Set to a list of Keywords and find (contains) matches

Hi.  I am working on a project to compare a data set DATATABLE with customer names (CUSTNAME field) against a separate table KEYWORDS with 1000 words.  I want to either filter, or extract/return, results if there is a the CUSTNAME field contains any word in KEYWORDS.
Is there a way to do this?  I'm thinking probably a loop to go through each of the data elements in the key words table and then to do a "contains" comparison with isini or something?  Just wanted to see if there was a way, or code available, to do this.  Thanks!

Script to knock off positive and negative values from a data set

Hi Brian,
Hope you're doing good. Am looking for a Idea script which can be used to knock off positive and negative values from a data set taking into considerations the GL codes as well.
Currently, I am able to perform this in an excel file by using the below mentioned formula,
“=(COUNTIFS($B$2:B2,B2,$A$2:A2,A2)<=MIN(COUNTIFS($B$2:$B$1000000,-B2,$A$2:$A$1000000,A2),COUNTIFS($B$2:$B$1000000,B2,$A$2:$A$1000000,A2)))”

Open Excel file from IDEA script

I can't get the IDEA script to open a Excel file, i also can't find the answer on Google. Is there anyone with some experience with this?
 
Sub Main
Dim Workbooks As Object
Dim ActiveWorkbook As Object
Dim File As String
File = "H:\!OHW\IDEA\Test Project 01 (9999990)\Import Definitions.ILB\Import definitions.xlsx"
Set Workbooks = CreateObject("Excel.Sheet")
Workbooks.Application.Visible = True
Workbooks.Open (File)
 
'Workbooks.Application.Quit
'Set Workbooks = Nothing
MsgBox "Gereed"
End Sub