Click here to monitor SSC
SQLServerCentral is supported by Red Gate Software Ltd.
 
Log in  ::  Register  ::  Not logged in
 
 
 
        
Home       Members    Calendar    Who's On


Add to briefcase

Script to open encrypted, dynamic excel files Expand / Collapse
Author
Message
Posted Tuesday, April 30, 2013 9:04 AM
Grasshopper

GrasshopperGrasshopperGrasshopperGrasshopperGrasshopperGrasshopperGrasshopperGrasshopper

Group: General Forum Members
Last Login: Monday, September 09, 2013 11:03 AM
Points: 21, Visits: 140
Hi I need a script for my SSIS package that will open my encrypted excel file, that has a dynamic filename ending in "mmddyyyy".
I have a powershell script that will open and reset the password, but I think I would prefer a vb script that will open the file and remove the password (or maybe not as long as I can extract the data while it is open?) as I will likely set it up as a SQL job to extract and send to sql daily.
Any insight greatly appreciated!

Thanks,
Lorna
Post #1448095
Posted Thursday, May 02, 2013 10:02 AM


SSCertifiable

SSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiable

Group: General Forum Members
Last Login: Wednesday, April 16, 2014 9:25 AM
Points: 7,070, Visits: 12,523
If you post your PowerShell code I can help you port it to VB.net which you can use inside a SSIS Script Task.

__________________________________________________________________________________________________
There are no special teachers of virtue, because virtue is taught by the whole community. --Plato

Believe you can and you're halfway there. --Theodore Roosevelt

Everything Should Be Made as Simple as Possible, But Not Simpler --Albert Einstein

The significant problems we face cannot be solved at the same level of thinking we were at when we created them. --Albert Einstein

1 apple is not exactly 1/8 of 8 apples. Because there are no absolutely identical apples. --Giordy
Post #1448887
Posted Friday, May 03, 2013 11:14 AM
Grasshopper

GrasshopperGrasshopperGrasshopperGrasshopperGrasshopperGrasshopperGrasshopperGrasshopper

Group: General Forum Members
Last Login: Monday, September 09, 2013 11:03 AM
Points: 21, Visits: 140
Hi, I actually have this code working well now, however, I would love to change it to vb and put it in a pkg.

$objExcel = new-object -comobject excel.application

$objExcel.Visible = $True

$objExcel.DisplayAlerts = $False

$MMDDYYYY=[DateTime]::Today.AddDays(-1).ToString("MMddyyyy")

$Workbook = $objExcel.Workbooks.Open("\\files\Reporting\Census\DailyCensus_$MMDDYYYY.xls",0,$False,1,"password")

$worksheet = $workbook.Worksheets.Item(1)

$sheet = $workbook.Sheets.Item(1) # Activate the first worksheet
[void]$sheet.Cells.Item(1,1).EntireRow.Delete() # Delete the first two rows
[void]$sheet.Cells.Item(2,2).EntireRow.Delete() # Delete the first two rows

$worksheet = $workbook.Worksheets.Item(2)

$sheet = $workbook.Sheets.Item(2) # Activate the second worksheet
[void]$sheet.Cells.Item(1,1).EntireRow.Delete() # Delete the first two rows
[void]$sheet.Cells.Item(2,2).EntireRow.Delete() # Delete the first two rows

$Workbook.Password = ""

$a = $Workbook.SaveAs("\\files\Reporting\Census2\DailyCensus_$MMDDYYYY.xls")

$objExcel.Quit()
$Workbook=$Null
$objExcel=$Null
[GC]::Collect()


Post #1449308
Posted Friday, May 03, 2013 12:14 PM


SSChampion

SSChampionSSChampionSSChampionSSChampionSSChampionSSChampionSSChampionSSChampionSSChampionSSChampion

Group: General Forum Members
Last Login: Today @ 12:01 PM
Points: 12,744, Visits: 31,074
this looks right to me:
Imports Excel = Microsoft.Office.Interop.Excel
Private Sub ImportExcel(ByVal PR01filename As String)
Try
xlApp = New Excel.Application
xlApp.Visible = True
xlApp.DisplayAlerts = False
Dim MMDDYYYY As String = Today.AddDays(-1).ToString("MMddyyyy")

xlWorkBook = xlApp.Workbooks.Open("\\files\Reporting\Census\DailyCensus_" & MMDDYYYY & ".xls", 0, False, 1, "password")
xlWorkSheet = xlWorkBook.Worksheets(1) '--Not sure of the name! 1-based index, not zero
range = xlWorkSheet.UsedRange
xlWorkSheet.Cells.Item(1, 1).EntireRow.Delete() '# Delete the first two rows
xlWorkSheet.Cells.Item(2, 2).EntireRow.Delete() '# Delete the first two rows
xlWorkSheet = xlWorkBook.Worksheets(2)
xlWorkSheet.Cells.Item(1, 1).EntireRow.Delete() '# Delete the first two rows
xlWorkSheet.Cells.Item(2, 2).EntireRow.Delete() '# Delete the first two rows
xlWorkBook.Password = ""
xlWorkBook.SaveAs("\\files\Reporting\Census2\DailyCensus_" & MMDDYYYY & ".xls")
xlWorkBook.Close()
xlApp.Quit()
PostMessage(xlApp.Hwnd, WM_QUIT, 0, 0)
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)

--Damn yuu Excel, i WILL Kill you!
Dim proc As System.Diagnostics.Process
For Each proc In System.Diagnostics.Process.GetProcessesByName("EXCEL")
proc.Kill()
Next
Catch ex2 As Exception
Try
PostMessage(xlApp.Hwnd, WM_QUIT, 0, 0)
xlWorkBook.Close()
xlApp.Quit()
Catch ex As Exception
End Try
Try
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
Catch ex As Exception
End Try
Finally
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
End Try
End Sub
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub



Lowell

--There is no spoon, and there's no default ORDER BY in sql server either.
Actually, Common Sense is so rare, it should be considered a Superpower. --my son
Post #1449320
Posted Friday, May 03, 2013 1:17 PM


SSCertifiable

SSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiable

Group: General Forum Members
Last Login: Wednesday, April 16, 2014 9:25 AM
Points: 7,070, Visits: 12,523
Nice job Lowell.

__________________________________________________________________________________________________
There are no special teachers of virtue, because virtue is taught by the whole community. --Plato

Believe you can and you're halfway there. --Theodore Roosevelt

Everything Should Be Made as Simple as Possible, But Not Simpler --Albert Einstein

The significant problems we face cannot be solved at the same level of thinking we were at when we created them. --Albert Einstein

1 apple is not exactly 1/8 of 8 apples. Because there are no absolutely identical apples. --Giordy
Post #1449340
Posted Friday, May 03, 2013 2:55 PM
Grasshopper

GrasshopperGrasshopperGrasshopperGrasshopperGrasshopperGrasshopperGrasshopperGrasshopper

Group: General Forum Members
Last Login: Monday, September 09, 2013 11:03 AM
Points: 21, Visits: 140
HI, Thank you for your input and time!
I'm having alot of trouble (errors) getting it to run properly though. I had added my Powershell script to an "Execute Process Task" in my pkg, and that seems to work properly. Do you know of any reason it would be better to run the VBScript instead?

Thanks!
Post #1449359
Posted Friday, May 03, 2013 4:08 PM


SSCertifiable

SSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiableSSCertifiable

Group: General Forum Members
Last Login: Wednesday, April 16, 2014 9:25 AM
Points: 7,070, Visits: 12,523
Mainly because it is native. One less dependency.

__________________________________________________________________________________________________
There are no special teachers of virtue, because virtue is taught by the whole community. --Plato

Believe you can and you're halfway there. --Theodore Roosevelt

Everything Should Be Made as Simple as Possible, But Not Simpler --Albert Einstein

The significant problems we face cannot be solved at the same level of thinking we were at when we created them. --Albert Einstein

1 apple is not exactly 1/8 of 8 apples. Because there are no absolutely identical apples. --Giordy
Post #1449368
« Prev Topic | Next Topic »

Add to briefcase

Permissions Expand / Collapse