Use The Shell Method To Open Files And Folder

May 11, 2007

I know this is simple, but im having problems finding it in search. Im using the Shell method to open files, but how to open folders?

View 7 Replies


ADVERTISEMENT

Open Files In Folder- Wait 30 Seconds Then Close The Files

Jul 5, 2007

I want to allow users to place files (.jpg, .tif, .pdf, .pps etc) into a network folder and then have my program open each file and display it for 30 seconds then close the file and the application before opening the next file.

1. Set up a loop to get a directory listing of the folder and write the listing to a text file.

2. Open up the text file and get the next filename in it

3. Open the file in the associated application

4. Wait for 30 seconds (or some period of time) and then close the file

5. Repeat steps 2-4

DoIt = 1
While DoIt = 1
Open "C:TempList.txt" for output as #1
Print #1, Files In Folder
Close #1

Open "C:TempList.txt" for input as #2
while not eof(2)
Line input #2, MyFile
Display MyFile on screen
Wait for 30 seconds
Close MyFile and MyApplication that opened it
wend
Close #2

I can get the directory listing just fine with no problems

I can open the files in the associated application just fine with no problems.

with closing the application after 30 seconds or some period of time.

I need some code that will allow me to easily send it a filename and it will know how to close the file and the application that opened it.

View 9 Replies View Related

Files Saved To Program Files Folder, Open As Read Only

Feb 8, 2009

I have an Excel application (Excel 2003) which is stored in the default Program Files folder by the Installer; for example: c:program fileszxchello.xls. The problem I am running into is this file opens as Read Only in Vista and this is interfering with the running of the application. There is no problem opening the file normally in Windows XP.

I have been able to narrow down the cause of this to the User Account Control system in Vista - if I turn OFF User Account Control, the Excel file opens normally and my application functions normally. Is there another option to open the Excel file without turning OFF User Account Control because some users may find it unacceptable to turn OFF this security feature. Ofcourse, one option is to install the application in another location, outside the Program Folder, and the file would open normally, but the Packaging Wizard that I am using to package the application does not allow me to install the application in any other location and thus, the application installs in the Program Folder and I am running into this problem of the Exel file opening as Read Only. Is there a way out of this situation where I can open the file normally (not as Read Only)?

View 5 Replies View Related

Open All Files From A Folder

Aug 4, 2009

I have created a Spreadsheet that does all of the calculations, analysis, graphs, etc. that i need; however every time I wish to use this spreadsheet I need to first open up a spreadsheet with data, copy it and then paste it into the original spreadsheet. While this is not horrible, it is quite tedious to do several thousand times.

Thus, I was wondering if it were possible to create a Macro that would open up all files in a specific folder, then select each one and paste the relevant data into my original spreadsheet. I know this possible for specific files; for example, I have created a Macro that will select files data.xls, dats1.xls, data2.xls, and paste these into the spreadsheet, but I was wondering if there was a way to generalize this so that it will simply open every file regardless of the name or how many files there are in the specific folder.

View 14 Replies View Related

VBA - Open All XLS Files In Folder

Mar 11, 2014

I have a prompt for the user to select a folder and then assign the path a variable. I would then like the VBA macro to open all files within that folder (no sub folders) that end in .xls.

View 3 Replies View Related

Open Files In A Folder

Nov 28, 2006

I want open excel files in a folder with ascending order how can I do this,

Eg:- In C:6-11-28 folder there are files as F1.xls, F2.xls , F3.xls......

I want to open above files and get some data from each excel file

Folder name change as System date

View 9 Replies View Related

Auto Open The Files In The Folder?

Nov 28, 2008

can i auto open the excel files in 1 folder in the correct path..

for example the path below
C:Documents and SettingsMy Documentsexample

i have many excel files in the folder there, i want it auto open 1 by 1 and do the marco, can do it?

View 2 Replies View Related

Open All (dynamic) Files From A Set Folder

Jul 27, 2009

how to open all .xls files within a folder. The file names change daily, the folder is constant.

All I have managed to find involves a FileSearch method which seems to be defunct in 2007.

View 4 Replies View Related

Open All Files In Folder And Run Macro

Jul 19, 2012

Please look at the code below...need this to open and run FIXId macro, save and close then loop through all files in the specified folder.

Code:
Sub CorrectID()
Dim Wb As Workbook, sFile As String, sPath As String
Dim itm As Variant
Dim strFileNames As String

sPath = "C:UsersXXXDocumentsFlash Repots2012"
sFile = Dir("C:UsersXXXDocumentsFlash Repots2012" & "*.xlsx")

[Code] ....

View 7 Replies View Related

Open All DBF Files In Specfied Folder

Aug 27, 2006

Using the record macro function I have created the code below which creates a row of means for 77 columns in the active worksheet, and also adds the value from cell CO2 to cell CO5. I would like to expand this code so it copies the row of means (always row 5) into the next blank row in the workbook C:/ Analysis/results.xls.

Sub Macro7()
Range("A6").Select
ActiveCell.FormulaR1C1 = _
"=((R[-4]C*R2C92)+(R[-3]C*R3C92)+(R[-2]C*R4C92)+(R[-1]C*R5C92))/(R2C92+R3C92+R4C92+R5C92)"
Range("A6").Select
Selection.Copy
Range("B6:CM6").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
'etc. up to
ActiveWindow.ScrollColumn = 77
Range("CO6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-4]C"
Range("CO7").Select
End Sub

I have 102 dbf tables located in the folder C:/Analysis that I would like to perform these operations on. Can this code be expanded so it will run automatically on every table in the folder?

View 6 Replies View Related

Open All Files In Folder & Close

Dec 29, 2006

I am trying to append 365 text files into a single Excel sheet. The files have unique names corresponding to the day of data that they represent (i.e. 0101.txt, 0102.txt, 0103.txt etc.) I am looking for some code that will loop through a folder, open each file, copy all data, and append it without the headers into the single Excel sheet. Does anyone have some VBA code that would do this?

View 6 Replies View Related

Search Folder For Files & Open Them

Oct 5, 2007

I don't seem to be able to combine the looping through a set of workbooks with the IsFileOpen function posted by microsoft.

Basically this code works if the foundfile(j) is closed, but if it is already open I cannot activate the foundfile(j) and make it do things.

I'm not posting the ISFileOpen function because already present inside the forum and the rest of the code because it's too long...

With Application.FileSearch
.NewSearch
' . ScreenUpdating = False
.LookIn = MyPath(40)
'* represents wildcard characters
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then 'Workbook exists
For j = 1 To .FoundFiles.Count
If IsFileOpen((.FoundFiles(j))) Then
'neither of these three options work

View 4 Replies View Related

Open All Txt Files (delimited Tab Comma ) In A Folder

Aug 11, 2009

I have around 30 files each quarter which I need to convert from a text file to an excel spreadsheet. I am a beginner with VBA and am looking for generic code I can use for a macro to:

1. open a text file from a folder
2. delimited/tab/comma
3. format columns H, O, and AH into dates
4. 'leave a spot for me to insert my code to manipulate the data'
5. save the file as an excel spreadsheet to a folder with the same filename
6. loop to perform this task to all files in a folder and stop after the last file.

The dilemna I am having is that my text files do not have a suffix ".txt" after them.

They just have the file name ***MMDDYYYY. There are always 3 initials at the beginning which change for each file i.e. ABC06302009.

The date remains the same for the given quarter, i.e. ***06302009. Next quarter I will have to do this same thing for all files ***09302009.

View 9 Replies View Related

Open All Xls Files In Folder & Copy To 1 Spreadsheet

Nov 11, 2009

I’m wondering if this is possible, if I have a folder with say 30 excel spreadsheets (.xls) all named differently (number of files will always change), can I easily write something in VBA to Open all the spreadsheets and copy each sheet over to an existing Excel spreadsheet? For example, have a ‘template’ spreadsheet where the VBA would exist, then have the first sheet, (Sheet1) of each 30 sheets be copied back over to the template.xls? Even better, could I rename each Sheet1 to the name of the file before copying it over? This would basically be the first step in my process of getting the spreadsheet made.


I found this code in a similar question, so how can I rename the Sheet to the opened file name, then copy that over to template.xls?

View 13 Replies View Related

Folder Structure By Shell

Nov 18, 2009

I want to find the folder structure, but walking down. I have try this code

View 2 Replies View Related

Open Multiple Files From A Folder Based On Cell Information?

Sep 30, 2008

I would like to know how to open multiple excel files from a folder based on the information based in cells down a certain column until the last cell.

I thought it might be something like this but it isn't: ....

View 6 Replies View Related

Excel VBA To Open Files In Folder With Specific String In Name Of File?

Aug 29, 2012

I have a requirement to search workbooks in a particular folder with specific string in file name. For example, let us assume I need to find a file which contains the name 'RR' in it. The position of 'RR' will vary with files i.e. 'RR' might be present either in the beginning, middle or at the end of file name. All I wanted is to search for file with 'RR' and do some activity and close the file and then goto next file. Similarly, the next search has to be performed with the files containing the name 'BB' in it.

View 1 Replies View Related

Open Excel Files In A Folder - Change Layout And Save

Nov 11, 2013

There is a folder with all excel files with the same structure. I need a macro, who opens one file by one in a folder, change the layout, and save it too same place with same name. Changing the layout will I do with macro record.

Sub AllFiles()
Dim MyFolder As String 'Path containing the files for looping
Dim MyFile As String 'Filename obtained by Dir function
Dim MyBook As Workbook
MyFolder = "D:LABODIESTSOST_DIEST" 'Assign directory to MyFolder variable

[Code] ......

View 9 Replies View Related

Open/Update Linked Files, Convert To Values & Save To New Folder

May 21, 2008

I have a number of spreadsheets in a folder called country (each sheet is the name of a region). These sheets are linked to another sheet called master which is in another folder.

The regional sheets all have a list of wrap codes and pull details specific to each code from the master sheet. All wrap codes for all sheets are stored in the master, details for wrpas are manually entered here as well as any other associated information.

The link is kept by way of an index match formula used to populate information from the master for all wrap codes in the regional sheet.

Each of the regional sheets act as a report for a specific region and the master is the main source. Every week we need to open the regional sheets (some reside in different folders/subfolders) update the index match formulas in the sheet so that the data is refreshed and then save as a new file with data as values to another folder for reporting.

I am looking for a code that can automatically update all of the excel sheets in a given folder and then save them to a new folder automatically.

I have very very limited knowledge of VB (did make a hello world dialog box once) and am stuck as to any way to automate this process.

View 5 Replies View Related

VB Shell Command To Browse Files

Oct 15, 2008

I'm in the process of building a user form that required the user to brows for a file, the path of the file that they select is then displayed in the textbox next to the "browse" button in my form. I also have another button next to this which when selected will open the file that is displayed in the textbox previously mentioned.

I’ve been trying the shell command but with no success, I can get the user form to open adobe reader but whenever I try to include that file path for which to open the file I keep getting runtime errors,

Below are a couple of examples that I’ve tried (you'll prob be able to guess from the code that I’m very new to VB in excel).

For additional info the value in the textbox would be something like, "H:My DocumentsPDF Filesmyfile.pdf"

Dim GetFile As String
Shell "C:Program FilesAdobeReader 8.0ReaderAcroRd32.exe", vbNormalFocus
'this opens adobe reader but I'm trying to open a specific file

Shell "C:Program FilesAdobeReader 8.0ReaderAcroRd32.exe" & textbox9.value, vbNormalFocus
This produces the runtime error again

Dim GetFile As String
GetFile = TextBox9.Value
Shell "C:Program FilesAdobeReader 8.0ReaderAcroRd32.exe" & GetFile, vbNormalFocus
'this produced a runtime error - to be honest this was an attempt born out of frustration.

View 9 Replies View Related

Shell To Open Word

Jun 2, 2009

not sure why this is not working, it is from Access I know this is the wrong forum but figured I haven't got any answers from anywhere else and it seems like a simple fix

this command fails... i am guessing its to do with the file path having spaces but don't know how to get it to work, what to insert so it will work.

Call Shell("V:Program Files (x86)Microsoft OfficeOFFICE11WINWORD.EXE / L:Best Practice ManualFull Labour Hire Best Practice Manual.doc", 1)

View 9 Replies View Related

VBA Open All Text Files In Excel In Folder And Save Them As Excel File

Dec 7, 2013

I have some daily text files in a folder (so about 30 of them each month), which in the end of month, I need to open them up in excel, format them so that I can use the information for my analysis.

I would like to create a macro, to quickly open them all up at once and save them each individually in .xls or .xlsm format.

I am new to VBA and after some research online, I was able to have the files open with the following code. but now I don't know how to proceed further to save them one by one with the same name but in .xls or .xlsm format.

Sub Opentxtfiles()
Dim MyFolder As String
Dim myfile As String

[Code].....

View 2 Replies View Related

Excel 2003 :: Extract Variable Rows Of Cells From Files In A Folder To Existing File In Folder

Mar 15, 2013

I need a macro in a workbook to look at all the files in the same folder that have "*att*.xls" in the name and determine and copy from the range A15:W515 only the rows that have data in at least columns A, C and D. Each file will vary as to how many rows there will be and there are more than the files with "*att*.xls" in the folder. The data will be on the only worksheet in each file and the worksheet is named "G2WAttendee_xls" the data from all the files need to be copied to the file called "Consolidated webinar reports.xls" (I am using Excel 2003) and to a sheet called "Attendance Data" and added to the end of the last paste.

At the start of the macro the current file "Consolidated webinar report.xls" should be saved to a sub folder of the current directory and have the date saved added to the name. The sub folder is called "Completed reports". The data in the original file on worksheet "Attendance Data" should be deleted.

At the end of the process all the files that have had data copied from them should be moved to the sub folder "Attendance reports consolidated" (This could be done as each file is closed if that is easier).

I have headings in row 1 of the "Attendance Data" worksheet that match the headings in the various files in the folder (which will always be in row 14 of the individual "*att*.xls" files).

The folder with all the files and the "Consolidated webinar report.xls" file is at path "Z:P and S MEvaluationsWebinar series 2012-13TB".

View 9 Replies View Related

Convert All CSV Files In A Folder To Excel Files?

Apr 8, 2014

I is it possible to convert all comma separated text files in a single folder in to excel files. But the requirement is to have 2 sheets in each new file. first to be the full file - with all columns, and in the second sheet to keep only colum A B D G H K L M O P R S T V W from the first sheet. The second sheet name must be the same as the first one but without the first "wlist_" in the name.

One more thing. The third column in the second is called "COUL". there are short letters for colors in french

can they be converted with the sort in English like it goes:

NO = B
BA = W
RG = R
SO = P
JA = Y
BE = L
VE = GY
GR = G
VI = V
MA = BR
BJ = TA
OR = O

Here is a link to the both CSV and an example excel file with the end result. In this example i haven`t change the shorts for the colors. It takes me too much time with the find and replace function. And at the moment i`m really pushed from time.

[URL]

View 9 Replies View Related

Open Multiple Files From Array Of Filenames If Not Already Open VBA

Sep 15, 2014

I'm trying to open multiple files based on an array of WBnames that are on a 'Dashboard' tab, but I only want to open them if they are not already opened. The code below doesn't seem to check if they are open and just opens everything....

VB:
Sub OpenWorkbooks()
Dim WorkbookOpen()
Dim WBnames() As String 'Array of WorkBooks to be Open
Dim WorkbookCnt As Integer

[Code] .....

View 4 Replies View Related

Search Folder For Files Containing "Temp", Delete Files

Jun 26, 2008

Is there a code that will search a pre-determined folder for all .xls files containing the word "Temp", and deleting those files?

Example:
In the root of drive M, I have several Excel files. Anytime one of the original tracking logs is opened, a temp file of that log is automatically created. I would like to automatically search the drive and delete all files containin the word "Temp".

I've attached a picture of the directory tree, in case that will help. The file will always be named "PO Response Tracking - Temp#######.xls", with ###### representing a series of either 5 or 6 numbers.

View 14 Replies View Related

Get Open File Name To Open Multiple Files

Jul 3, 2007

I'm doing the following:

Dim myname As String
myname = Application. GetOpenFilename

I use it to attempt to open first a QuickBooks file and then an excel workbook.
The Quickbooks file opens fine. The Excel workbook never appears to open but
I do get the full file pathname to my excel workbook returned which I then
parse off to get just the workbook name.

Why would it behave this way? I open both these files manually all the time.

Also, I'm trying to use a filter as follows:

myname = Application.GetOpenFilename("*.QBW")

I get a compile error saying that I'm calling the function wrong.

View 5 Replies View Related

Open Method Of Workbooks Failed

Oct 13, 2008

I am migrating from Excel 2002 to Excel 2007. I get the error Open Method of Workbooks failed on the line :-

Set new_Transactions = Application.Workbooks.Open(Activity_File_Name)

I have checked that Activity_File_name contains the correct value and is stored as a string.

View 9 Replies View Related

On Click Method To Open The Find Facility

Nov 9, 2008

I was wondering if possible i could use an on_click method to open the find facility in excel. I know it may be easier to use the Edit, Find or Ctrl+F way.

But i have people using excel with no past experience what so ever, and i would like to make it as easy as possible....i.e a click of a button that says "Search".

View 7 Replies View Related

Method Open Of Object Workbooks Failed

Feb 9, 2010

I need some help with this error. I have some VBA code in Outlook that runs whenever a task reminder goes off. The code is supposed to open a workbook, send email based on the info in the workbook, then close the workbook and quit excel.

The task reminders are set to go off every two hours. Sometimes this will work fine for days and then randomly (as far as I can tell) I get the error: "Method Open of Object Workbooks failed". If I press Debug and then Run without changing anything at all, it works fine.

I am using Outlook 2007 and Excel 2007. The workbook is a shared workbook on a network drive.

I can post code if needed, but will have to go to that computer.

Why do I occasionally get this error when the workbook definitely exists and has the same name and path?

What does entering debug mode do that then allows the macro to run without error?

View 9 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved