Need vba as unzip function is not executing .
Dear sir , i have vba where its download the zip file from web to destination folder and its have to unzip and delete the zip file, i have vba code where its download the zip file but its not executing the unzip vba , kindly i need help to correct it..
thanks , i have attached my excel file.
NSE-OI-REPORT.xlsm
thanks , i have attached my excel file.
NSE-OI-REPORT.xlsm
1/ in my testing, you need to ensure that gstDestinationFolder has a trailing \ for the Unzip routine to find the zip files
the target folder then ends up with the csv files.
another issue may be that the destination folder you have set is with the User area. This may not have sufficent access rights. I used C:\Temp\OI in my testing and csv files are there ok
Private Sub CommandButton1_Click()
bTrace = CheckBox1.Value
bDelete = CheckBox1.Value
dStartDate = Range("E6")
dEndDate = Range("F6")
sHTTP = Sheets("Sheet1").Range("B10")
gstDestinationFolder = Range("C10")
If bTesting Then gstDestinationFolder = ActiveWorkbook.Path & "\Temp\"
If Right(gstDestinationFolder, 1) <> "\" Then gstDestinationFolder = gstDestinationFolder & "\" '<<added
the target folder then ends up with the csv files.
another issue may be that the destination folder you have set is with the User area. This may not have sufficent access rights. I used C:\Temp\OI in my testing and csv files are there ok
Open the VBE and make sure the URL is valid.
Whether it is or not will be printed to the immediate window.
Whether it is or not will be printed to the immediate window.
Thanks for using Experts Exchange.
Please provide your email to receive a sample view!
*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.