We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub UnzIpp() 'Unzip JPM Files Dim FSO As Object Dim oAPP As Object Dim Fname As Variant Dim FileNameFolder As Variant 'JPM_File = ("G:\Shared\High Yield\Chris\Daily Performance\Daily JPM Prices\Valuation Summary") Fname = "G:\Shared\High Yield\Chris\Daily Performance\Daily JPM Prices\Valuation Summary_20100823.zip" FileNameFolder = "G:\Shared\High Yield\Chris\Daily Performance\Daily JPM Prices\Unzipped\Valuation Summary_20100823.xls" Set oAPP = CreateObject("Shell.Application") oAPP.Namespace(FileNameFolder).CopyHere oAPP.Namespace(Fname).Items On Error Resume Next Set FSO = CreateObject("scripting.filesystemobject") FSO.DeleteFolder Environ("Temp") & "\Temporary Directory*", True Set wbTemp = Workbooks.Open(JPM_File) wbTemp.SaveAs ("G:\Shared\High Yield\Chris\Daily Performance\Daily JPM Prices\Unzipped\Valuation Summary_20100823.xls") 'wbTemp = JPM_File End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Crystal reports - Formula Field code need assistance with code||17||101|
|Help with retrieving partial value from a column using VB.NET||4||58|
|when text box after scan barcode then will go to do event||5||13|
Join the community of 500,000 technology professionals and ask your questions.