Daniel Pech
Offline
Last seen: 8 months 2 weeks ago
Joined: 11/06/2014 - 05:03
I'm Using IDEA version 9.2.0.630, also Excel 2016. And my IDEA databases is about 235kb (too small) each file, there are 5 files.
Thank you for ur help
Hi Mobbie,
I just tried it in an 9.2 environment and didn't have any problems. I guess the next step is if you could post a screen grab of the error. Another thing you can try is exporting the IDEA database by itself to see if IDEA gives an error when you do that.
Thanks
Brian
I don't have any trouble when exporting IDEA database by itself.
I've upload the IMD files and the script for export to excel. Please help me to review it.
I can select the folder, then selecting the files (Template-Restruk-RES.IMD and Template-Sektor-SEK.IMD). When I click Ok, then error show up with line 174 (image attached).
Hi Mobbie,
Did you try the script that I attached? http://ideascripting.com/sites/default/files/forum_files/Export%20Multiple%20Databases_0.iss as that one seems to be working. The scripts attached here are not mine, they were developed by someone at CaseWare IDEA. At this stage I would have to redevelop the script to get it working properly but the one I attached did run without the error you were getting (and I also got it when I tried to run it).
There is also a SmartAnalyzer application that helps doing this that you might want to look at, you can find it here: https://ca.marketplace.audicon.net/ca_en/excel-export-utility.html
Unfortuatately right now I don't have the time to redo this script to make it work properly.
Thanks
Brian
I can fix it. It's because the excel format, I've change it to 16.0.
Thank you
Good eye, thanks for letting me know.
Hello guys,
Kindly assist. I am trying to export different IDEA databases into one excel file
'EXPORTATION OF BULK AND PAYBILL SCRIPTS
' File - Export Database: XLSX
Function ExportDatabaseXLSX_BULK_FAILED_TRXNS
Set db = Client.OpenDatabase("BULK_FAILED_TRXNS_" & Reconciliation_Date & ".IMD")
Set task = db.ExportDatabase
task.IncludeAllFields
eqn = ""
task.PerformTask "Z:\00-IDEA FILES\MPESA\BULK\BULK_FAILED_TRXNS_" & Reconciliation_Date & ".XLSX", "Database", "XLSX", 1, db.Count, eqn
Set db = Nothing
Set task = Nothing
End Function
' File - Export Database: XLSX
Function ExportDatabaseXLSX_BULK_RECONCILED
Set db = Client.OpenDatabase("BULK_RECONCILED_" & Reconciliation_Date & ".IMD")
Set task = db.ExportDatabase
task.IncludeAllFields
eqn = ""
task.PerformTask "Z:\00-IDEA FILES\MPESA\BULK\BULK_RECONCILED_" & Reconciliation_Date & ".XLSX", "Database", "XLSX", 1, db.Count, eqn
Set db = Nothing
Set task = Nothing
End Function
' File - Export Database: XLSX
Function ExportDatabaseXLSX_BULK_SUSPICIOUS_TRXNS
Set db = Client.OpenDatabase("BULK_SUSPICIOUS_TRXNS_" & Reconciliation_Date & ".IMD")
Set task = db.ExportDatabase
task.IncludeAllFields
eqn = ""
task.PerformTask "Z:\00-IDEA FILES\MPESA\BULK\BULK_SUSPICIOUS_TRXNS_" & Reconciliation_Date & ".XLSX", "Database", "XLSX", 1, db.Count, eqn
Set db = Nothing
Set task = Nothing
End Function
' File - Export Database: XLSX
Function ExportDatabaseXLSX_BULK_CHARGES
Set db = Client.OpenDatabase("BULK_CHARGES_" & Reconciliation_Date & ".IMD")
Set task = db.ExportDatabase
task.IncludeAllFields
eqn = ""
task.PerformTask "Z:\00-IDEA FILES\MPESA\BULK\BULK_CHARGES_" & Reconciliation_Date & ".XLSX", "Database", "XLSX", 1, db.Count, eqn
Set db = Nothing
Set task = Nothing
End Function
' File - Export Database: XLSX
Function ExportDatabaseXLSX_PAYBILL_FAILED_TRXNS
Set db = Client.OpenDatabase("PAYBILL_FAILED_TRXNS_" & Reconciliation_Date & ".IMD")
Set task = db.ExportDatabase
task.IncludeAllFields
eqn = ""
task.PerformTask "Z:\00-IDEA FILES\MPESA\PAYBILL\PAYBILL_FAILED_TRXNS_" & Reconciliation_Date & ".XLSX", "Database", "XLSX", 1, db.Count, eqn
Set db = Nothing
Set task = Nothing
End Function
' File - Export Database: XLSX
Function ExportDatabaseXLSX_PAYBILL_RECONCILED
Set db = Client.OpenDatabase("PAYBILL_RECONCILED_" & Reconciliation_Date & ".IMD")
Set task = db.ExportDatabase
task.IncludeAllFields
eqn = ""
task.PerformTask "Z:\00-IDEA FILES\MPESA\PAYBILL\PAYBILL_RECONCILED_" & Reconciliation_Date & ".XLSX", "Database", "XLSX", 1, db.Count, eqn
Set db = Nothing
Set task = Nothing
End Function
' File - Export Database: XLSX
Function ExportDatabaseXLSX_PAYBILL_SUSPICIOUS_TRXNS
Set db = Client.OpenDatabase("PAYBILL_SUSPICIOUS_TRXNS_" & Reconciliation_Date & ".IMD")
Set task = db.ExportDatabase
task.IncludeAllFields
eqn = ""
task.PerformTask "Z:\00-IDEA FILES\MPESA\PAYBILL\PAYBILL_SUSPICIOUS_TRXNS_" & Reconciliation_Date & ".XLSX", "Database", "XLSX", 1, db.Count, eqn
Set db = Nothing
Set task = Nothing
End Function
' File - Export Database: XLSX
Function ExportDatabaseXLSX_REVERSALS
Set db = Client.OpenDatabase("REVERSALS_" & Previous_Date & ".IMD")
Set task = db.ExportDatabase
task.IncludeAllFields
eqn = ""
task.PerformTask "Z:\00-IDEA FILES\MPESA\PAYBILL\REVERSALS_" & Previous_Date & ".XLSX", "Database", "XLSX", 1, db.Count, eqn
Set db = Nothing
Set task = Nothing
End Function
Apologies, I forgot to mention that I want to save the databases on different sheets but on one workbook save with the reconciliation date
Hi Baricha,
Sorry today was very busy, I will try and find some time tomorrow to take a look at this.
Brian
Hi Baricha,
Here is something that hopefully you can use or adapt to your script. This example (I have also attached the script) will work on the files in the sample project folder. The constant at the beginning of the script holds the name of the excel file you want to save your databases into. The array holds the name of the databases you want to copy over. The code in the createExcelSheet copies each excel spreadsheet into a new sheet of the new excel sheet.
Let me know if you have any questions or problems.
Brian
Pages