Unzip Winrar Files Using VBA Code
Jul 7, 2006I'm using:- Open "file name" For Input As #1 to read and manipulate files. However, I've hit a problem with how to open and read zipped files (winrar).
View 3 RepliesI'm using:- Open "file name" For Input As #1 to read and manipulate files. However, I've hit a problem with how to open and read zipped files (winrar).
View 3 RepliesI have the following code which works. The problem is when it zips the file it zips up all the folder locations where the zipped file is saved.
For example this code zips the file and all the folders where the file is saved, so it zips the file in the following folders.
Documents and SettingsRichard.DruryDesktop
I dont want this to happen I just want to ZIP the file.
Is there a way from excel that i could unzip files then rename those files and then rezip these files to the original zip file using a macro?
View 9 Replies View RelatedI've struggled to find the code to unzip files using VBA but I finally found it and it works (using Shell).
The problem is that I want to unzip all zip files in a folder but my zip files contain 3 files:
1 csv file that I want to keep and 1 xml and 1 txt file that I want to delete.
I can't just unzip everything and deal with the txt and xml later because the xml and txt files all have the same name. So if I don't do anything, I have a series of overwriting messages prompting me to click yes or no. So what I want is either to delete xml and txt one by one after they are created or get rid of the overwriting prompt. I've tried to put a kill or delete file just after the unzip command but it doesn't work - it's telling me that the txt file doesn't exist (should I add some sort of refreshing command ?) and I couldn't find anything on google about overwriting text or xml files.
Does anyone have a way to make Excel Zip and/or Unzip Files using only Windows Native Functionality?
I know I can use command line zip utilities like Winzip or Winrar. But I'm trying to make some scripts that will be shared among other users, and would like to NOT require users to install extra software to make it work.
I know windows has the built in capability to zip unzip files through the windows GUI, so there must be a way to do it with command lines from VBA code...
P.S. At the moment I am mostly concerned with UNzipping.
I have code with downloads files from our work intranet site. When the files download the are zipped up. Is there a code which will unzip and open these excel files?
I'm using Excel 2003.
Unzip Code - Works without Variables, Breaks with Variables.... This has been driving me bananas...
I have the
I'm trying to automate unzipping many .gz files on a monthly basis. Previously I used a macro a coworker wrote to do the unzipping using winzip (think he may have used some code snippets from this forum for it - seems like several sites have similar code shown in different postings). But now my office has switched over to pkware's SecureZIP, I can no longer use winzip, and my coworker has moved on. Can I manipulate that old code to work with SecureZIP somehow?
View 1 Replies View RelatedI have a macro that saves zip files automatically from outlook every day and saves over those zip files (which I want). But now I need to unzip those files and save their csv files in a different folder. I will be saving over the same csv files everyday.
(I have 5 zip files saved and named and each file contains just 1 csv file)
I have had a look at Ron de Bruin's code but he requires you to open the and search for the zip file. I would like this to unzip and save automatically without having to use "Application.Getopen".
I have a list of file names in Excel and I need to move the files from one folder into another. Sometimes I'm having to find and move hundreds of files into different destination folders, hence why I would like a macro. My spreadsheet will be something like:
Column A
Column B
Column C
Row 1
File name
[Code]...
I am coding my first UserForm. I've gotten some of it working. I need to display a ComboBox that will display 3 different CSV files. Since these will be updated here and there, I didn't think AddItem would work. How i should script this?
View 2 Replies View Relatedthis is a bit of the code that should open a file, but the thing is tha I am trying to open a shortcut file. not a normal one. so I alway get an error that say tha tis not possible to locate the file. does any body knows how should I do to open the shortcut file?
View 4 Replies View RelatedI have a macro that checks data in a worksheet and manipulates the data.
the problem that I am finding is that the worksheet data, which is copied from another file, is different sizes - eg: in one file the data may be from a1 to f2890 but another file the data may be from a1 to f5990.
When the file is bigger I have noted that the macro does not check the rows between 2890 to 5990.
How can i get it do check all the cells no matter how big the file is?
I am trying to write a macro which creates a new worksheet with the name kenmerk (i) and then import five different textfiles in this worksheet.
I was wondering how to define the name of the textfiles in the code. The code I get with record macro is: ...
I need to build an Excel application that allows a user to select and download files from a website. The files change daily. Is there a way in VBA to obtain the current list of files that are available for downloading?
View 4 Replies View Relatedwhy the below code opens files as read only? What this code does is open all worksheets, in four different folders, whose filenames include the desired date. For example, if i want all worksheets for the 19th, then K117819, k127819, k217819 and K226119 all open. Except they open as read-only which requires saving to a different location and then renaming - which sort of defeats the time saving reason for running the code in the first place.
Public Sub Auto_Open()
Dim sCurFile As String
Dim sPath As String
Dim mpath As String
MsgBox "This tool will print all four production lines line report total sheet for any month and day in 2007"
mpath = InputBox("Enter the month i.e. 01 for January", "print")
fpath = InputBox("Enter day of the month to print (use leading 0's)?", "print")
Application. ScreenUpdating = False
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
'Get the path
sPath = "t:2007" & mpath & "k11"...............
I wantto prepare a database in excel. This is database of five different excel files.Consolidate them in one excel file under five sheets.
Thesefiles have name say A, B, C, D, E. Macro should ask user to browse these filesone by one and copy data in new excel under individual sheet. Finally databaseshould save as name X and should contain sheet 1 as A sheets 2 as B etc.
I have a huge data which needs to be divided and distributed to team members. What i want to achieve is to split, thru macro/VB, the entries in my main file into several files, say by 50s. I attached files for reference. Whereas, the Dummy.xls is the main file and Book1 & Book2 are the desired output.
View 3 Replies View RelatedI have the job of producing a survey in Excel and collating the results anonymously, to help with this I'm looking for a chunk of code that will enable me to pull a specified range of data from all the files in a particular drive with a filename starting with a specified word and insert them all in to the same blank sheet.
View 6 Replies View RelatedI'm trying to write some code that will check if specific files in a folder are present before continuing code.
I've looked on-line and found various code that checks if a single file is present whereas my requirement is slightly more demanding.
Some files might be present and others not. The code must check ALL necessary files are there then run main code. If even any single file from say 5 files is missing, code must exit.
I was thinking of using an array to store all files names and then use a "For Each XX In XX" to loop through the array and check each file is present?
This is what I have so far:
Sub XX()
Dim strPath As String, LinesDelete As String, Applepnfile As String, MpnStock As String
Dim myArray() As Variant, myElement As Variant
Dim myArray() As Variant, myElement As Variant
strPath = "Z:AppleApple Deliverys"
[Code] .........
I am trying to put together some code to have Excel to copy all the text files from a folder with numerous text files, all of which have identical formatting, to one worksheet. Furthermore, I need the copying event to occur every time the workbook is opened so that it will "refresh/overwrite" the worksheet with all of the files in the folder.
I have lifted some code from several sites which would seem to an untrained eye to accomplish what I am trying to get done, however I run into a file path error.
I have some code to email a single, different excel file to multiple Outlook recipients. I am using Outlook 2003, and Excel 2007. I always use Compatability mode in Excel as 2007 is not widely used.
The code is shown below. What I can't understand is why it fails at the code highlighted red. It tells me that there is Run-time Error '13': Type Mismatch, but I can't see the issue.
I am looking for the VBA code to copy worksheets (with formatting) and save to a specific folder. The steps I am need to follow are:
Create a copy of the first worksheet
Save it to a specified folder and name it with the worksheet name
Repeat with all worksheets until the end of the workbook
I have a bunch of workbooks in a folder and I'm basically trying to take the average of the same specific range for each file. I have somewhat of a method for doing this where I separate it into several steps and grab bits of code for each step (there's descriptions on the code). How I can improve or streamline it?
Code:
'STEP 1
'run this first to combine multiple files/workbooks into one file
'Change MyPath to the folder location
Sub Merge2MultiSheets()
[Code]....
I am unable to install a disk catalog and have been trying with no success to try and get something in excel that will look at a directory and display the contents of that folder with the file attributes etc
View 2 Replies View RelatedI've been using a script I found on the web to export a book of 15 worksheets so that they are saved into a folder as 15 separate .csv files - these are to then be imported into Adobe InDesign at a later date.
Currently, the code looks like this:
VB:
Sub SheetsToCSV() 'Jerry Beaucaire (1/25/2010)
'Save each sheet to an individual CSV file
Dim ws As Worksheet, OldDir As String
[Code]....
If possible, I would like the sheets to be exported as consecutively numbered files, so that they can be set into the order they are exported in Windows Explorer, rather than alphabetically.
E.g.
Sheet names = Overview, Checking, Testing
.csv export = overview-17.05.2013.csv, checking-17.05.2013.csv, testing-17.05.2013.csv
Goal = 1overview-17.05.2013.csv, 2checking-17.05.2013.csv, 3testing-17.05.2013.csv
I'm not too fussed about the final formatting, as long as the consecutive numbers can be inserted at the start of the string, the rest isn't as important.
I have the following code written but I'm wondering if it's possible to modify this to change the red line to update to the path that the workbook is saved in? Meaning that User1Folder1 would change but [Workbook1.xlsm]Sheet1'E1 would always be the same.
[Code] .......
I have two macros one of which imports the data and the other processes the data. These macros were created at different times and need to be joined into a single macro that will combine their operations – with slight modification to the importing macro. Let me describe what each of the macros does:
PROCESS macro:
Cycles through the CONTROL CELL on the “1” tab using the VALUES TO TEST. For each value to test it copies the values form the output tabs and pastes them into the A+B tab. Then it removes the duplicate rows there.
Option Explicit
'======================================
Sub PROCESS() 'This subroutine is called when clicking on the first button
Dim i As Long, j As Long, k As Long 'Those are the variables that will browse through the whole sheets
Dim l As Integer 'this will be used to browse through the values to test
Dim TheSearch(1 To 2) As Object 'This is an array of objects that will be used for the search
Dim TheRange As Range 'This will be used to flag the range of duplicates in the output
'Searching for the Text string 'VALUES To TEST' in the sheet "1" in order to know where the array of values to be tested start
Set TheSearch(1) = Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count + 10, ActiveSheet.UsedRange.Columns.Count)).Find(What:="VALUES TO TEST", LookIn:=xlValues, Lookat:=xlWhole)
I have my code here:
VB:
Sub openfiles()Dim Path As String
Dim ExcelFile As String
' Path = GetFolder("C:UsersKinteshDesktop")
Path = "C:UsersKinteshDesktopVBA programmingMaps"
ExcelFile = Dir(Path & "*.xls")
[Code] ....
NextCode:
GetFolder = sitem
Set fldr = Nothing
End Function
My problem is that the code all actually works (including the function and when I use the commented part), but pointing to this one specific directory (the one I'm using right now), literally nothing happens.
Trying to write a script to carry out a number of tasks but is there code to enable an Excel to look in a particular file for the list of csv files - carry out the tasks and return the appropriate values in the Excel sheet whilst leaving the original csv files untouched?
View 2 Replies View Related