Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
Sub TestRun() 'Change this as per your requirement Call UnZip("C:\Users\NC\Desktop\Vishesh\Test", "C:\Users\NC\Desktop\Vishesh\Test\TestZipFile.Zip") End Sub Sub UnZip(strTargetPath As String, Fname As Variant) Dim oApp As Object Dim FileNameFolder As Variant If Right(strTargetPath, 1) <> Application.PathSeparator Then strTargetPath = strTargetPath & Application.PathSeparator End If FileNameFolder = strTargetPath Set oApp = CreateObject("Shell.Application") oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items End Sub
|Function for selecting rows from data set and combining certain rows based on criteria||16||30|
|Vlookup for in-between dates||4||38|
|Batch file or script with password||22||42|
|Excel Conditional Statements||11||36|