I am trying to open a workbook with
Workbook.Open filename:="xxxxx"
The address in the xxxx is something like this "G:AnimalMammalZZZZGorillayyyy.xls"
The ZZZZZ portion is the result of an InputBox.
What is the syntax for placing the result of that InputBox in the middle of the address?
I'm really looking for a way to get the full address of the external file by specifying the file name in a cell and then evaluate the formula. For example,
[Code] .....
is the full address of the source file called 'Source'. My idea is: if I just type the file name 'Source' in a workbook's cell $A$1, and in cell $B$1 I want to make the formula something like:
="C:Users["&$A$1&".xlsx]Sheet1'!$F$1"
This will make my project very impressive with this feature: a user just types the file name to establish the link and evaluate the formula for results.
I need a VB code to open excel files located in a path (fixed path) by providing a part of file name through a input box
for ex: I have some files located in my local drive as below
1. colurgreen.xls
2. colurred.xls
3. colurblue.xls
I need a input box asking for file name and I input "green" or "red" or"blue" and it should open the resp file.
I have workbook and when I open it I'd like to be able to open another workbook and copy the data into a new sheet in original workbook. The file I'd like to open is always "123_PPS.CSV". I'd like to enter the number (123) into a msg box and then have that file open or copy into sheet2 so that I can get info from it into the cells in the packing slip.
View 14 Replies View RelatedI have a csv file named "BB31_2013-08-01". I would like to open this file via vba and this is not my only file. I also have another similar fileames such as "BB31_2013-08-08", therefore, I try to create some function like yyyy, mm & dd where I can modifie it easily for next file.
Here is my code:
VB:
'change weekly
yyyy = "2013"
mm = "08"
dd = "01"
Workbooks.Open Filename:= _
"C:Documents and Settings1314228DesktopTest ProgressBB31& yyyy &-& mm &-& dd.csv"
[Code] .....
I would like to create a macro to open a file in Excel 2007. My problem is that the filename changes often. After updates are made the filename is changed and the old file is moved to a backup folder. So, there is only one similar file in the folder
My filename is "RFQ Worksheet 7 29 2008.xlsx".
The path is "C:Documents and SettingsahaynijDesktop".
I have a Workbook "forecast.xlsx" and several Workbooks which have a individual Number in the Filename (E.g. "3960........xls", "3961.......xls etc.) in the same directory as "forecast.xlsx" + projects"
Now, I would like to browse through "forecast.xlsx" in column H, searching for hyperlinks. In Column H are these Projectnumbers located which are used in the filenames above. Whenever the Cell cointains a hyperlink, following should happen (that far i managed it by myself):
- Store the Cellvalue in a String Variable
- Go to the Directory this.workbook + projects
- browse this folder, searching for a File which contains the stored string in its filename
- open the file
- copy a range
- close file
- This.workbook.Activate
- follow the Hyperlink which has been stored as String before
- paste selection
- continue browsing through column H, looking for the next hyperlink.
I have a VBA which runs bugless, but it copies the wrong range, but to the correct destination.
See the code below:
Sub RESLT_INPUT_ALL()
Dim cell As Object
For Counter = 1 To 1000
Set cell = Worksheets("Projects overview").Cells(Counter, 8)
If cell.Hyperlinks.Count > 0 Then
[Code] ......
Am working on a procedure to open all files in a folder and copy some data from the files into another workbook (master). I have this piece of the code. However, I also need to get the filename (from which data was copied) and paste this into an adjacent cell in the master (so I know which file each data point came from).
View 8 Replies View RelatedI'm on excel 2010 and I have a small group excel files I open everyday. Most of the files are static in name and location. I've got a macro created to open those files, which works fine with workbooks.open and the file path.
There are two report files I want to incorporate into my macro of workbooks to open. The files are created weekly and the files names have the following format: "Report Name (YYYY-MM-DD).xlsm". I don't want to use the file's last modified date because older files may get edited after the more recent ones are created. The files are also not always created on the same day, so the solution needs to be flexible enough to not refer to a specific day of the week or anything.
Macro open an excel file based on the latest date found in filename.
I need to often enter a formula such as:
=SUMIF(H1:H500,"=a",G1:G500)
but, I need to change the variable 'a' to whatever letter I need.
I wrote the following:
y = InputBox("Enter letter")
So, how do I incorporate the 'InputBox' result in the formula?
If I use =SUMIF(H1:H500,""=x"",G1:G500) I just get 'x' as a result, not the letter I input.
I was wondering if there is a way to write a macro that will take an excel file that I have called Alldata and then have it copy the first two sheets to a new workbook named something else( FullSparameter_0) and then copy the name of the third and fourth sheet into the new FullSparameter_0 workbook and then copy column A-E from sheet dB Alldata.xls and paste it into the FullSparameter_0.xls workbook in the same dB sheet in the same spot. And do the same thing with the Phase Sheet. i know this sounds confusing, but im really new to the VBA stuff.
I just need 15 different files from the original Alldata.xls that will be named FullSparameter_0, FullSparameter_1, .., FullSparameter_14. but each file will have the same two first sheets, Setup Information and Cal Verification, and the same last two sheet names, dB and Phase, but then in the dB and phase sheets, it will copy over the next four columns of data. so in FullSparameter_0 it will have column A-E from sheet dB in Alldata.xls in the dB sheet in FullSparameter_0 (Same with the Phase Sheets). Then in FullSparameter_1 it will have column A and Columns F,G,H and I (for dB and Phase). In fullSparameter_2 it will have column A and then J,K,L and M. Each FullSparameter_X will have the exact same first two sheets and then the other columns for the last two sheets will be pasted into columns A-E in dB and Phase.
I have a template file that I import data in to, which is then saved with the current date. This works, but I want to automate the import of the data, but ensure I don't duplicate the load.
Therefore, I have a tab 'FileLog' that I record the filename (variable by date) in column A and Creation timestamp in column B.
How do I obtain the filename and creation timestamp of the import data so that they can be entered?
I am trying to skip over any errors associated with the GetOpenFilename window, specifically where the Cancel button is selected, or no files selected. In the code below, I get an error "Object required" at the line shown every time this is run, even when the file path is valid and correct, and then the msgbox appears as a result of the On Error statement .
myExcelFilePath is dim Variant
On Error Resume Next
myExcelFilePath = Application.GetOpenFilename("Excel files (*.xls), *.xls", , "locate Report.xls....")
If myExcelFilePath Is Empty Or myExcelFilePath Is Null Then
Is there any solution to the fact that hyperlinks in excel with a # in filename wont open?
View 9 Replies View RelatedI try to make a macro for saving an Excel sheet to a .CSV file with "@" as delimiter.
At the line "Open fname For Output As #fnum", the Error 53, "no file found" occurs.
The Excel-help is saying that if the file is not present, a new file will be made.
This error occurs now and then, How to proceed?
Full macro:
Sub SaveAsCSV()
Path = "O:actueel"
Fname1 = Path & Range("E2").Value & ".csv"
fname = Application.GetSaveAsFilename(Fname1, "CSV bestand (*.csv), *.csv", , "")
If fname = False Then
MsgBox "Macro Geannuleerd"
Exit Sub
End If
Below is the code that references a file to import = Jan.txt.
There are different files I want to import, using this macro.
However I have not been successful with creating a variable
and then creating a statement which requires me to input the filename that I want to import for the macro run.
With ActiveSheet.QueryTables.Add(Connection:="TEXT;U:Jan.txt", Destination _
:=Range("A1"))
My company has several users that access a file (File A) that has a macro in that opens another file on their F drive called TEST.XLS. The code (in File A) to do this is:
Workbooks.Open Filename:="F: est.xls"
Just recently this code has failed for some users but not others. For those where it failed I confirmed that they do indeed have the file located on drive F.
As a test, one of the users where the above code failed ran the macro recorder while opening the file (Test.xls) on their F drive. The recorder produced the following code:
Workbooks.Open Filename:="\companynetsta$jsmith est.xls"
It appears the code is failing because Excel is looking for a UNC path as opposed to a drive letter (F).
I prefer that the code that looks at the Drive letter F be used.
How can I get the following code to workWorkbooks.Open Filename:="F: est.xls" ....for all users that have an F drive?
I want to pull the file location of a hyperlink to populate a image control in a form. I have 150 names, each with pictures. So I need to do a index,match or vlook up within the VBA and make the result the active cell. From there I know how to pull the file location out. Just need to know how to make the address of a index match result in vba.
View 5 Replies View RelatedHow do you use the result of the "Address" function as ranges for other formulas?
I have 2 cells A1 and A2, each containing an "Address" function to find the start cell and end cell of a range.
A1 shows the result "$J$6" and A2 "$AB$6". These are working fine:
A1: =ADDRESS(ROW($A6),MATCH(HLOOKUP('cleaned up'!$I$2,pivot03!$2:$2,1,FALSE),$2:$2,0),1)
A2: =ADDRESS(ROW($A6),MATCH(HLOOKUP('cleaned up'!$I$5,pivot03!$2:$2,1,FALSE),$2:$2,0),1)
I want to get the average of this range using cells A1 and A2, but Excel treats the formula as an error: =Average(A1:A2) shows the error #DIV/0!
Going back one step and putting the formulas within cells A1 and A2 into the average formula doesn't work at all with a colon:.....................
Is it possible to get the location of the result cell of a lookup result. For example, instead of showing the cell value it shows the cell address of the results of a lookup. You see I have this Summary Report of a payroll system. Everyone doesn't need to pay social charges, except two people, "person1" and "person2". What I want to do is to first look at the names in the report to see if one of those people are listed in the summary(this can be done by lookup, I think). Then go to a different column on the same row as the person. So, for example, "person1" is in a14, then the macro will select the cell say... g14.
View 6 Replies View RelatedI've just inherited a load of Excel files I need to continue using, but my predecessor has done something that disables the middle-click scroll ability.
I can still scroll up and down by turning the wheel, but I want to be able to click it and scroll in all directions at speed - I didn't realise how much I used this until I couldn't. Can't see anything in the VBA sheet properties, and they are all .xlsx files. Nothing leaps out of the settings either. If I create a new file or a file of mine within the same session, they work fine.
I would like to “ping” each computer ip address to check if it is online or offline and then write the result in Column C.
There needs to be no limit to how many ip addresses the script can ping.
I am trying to do is have the code display an input box asking the user to type in the file name, or generate this automatically? to an existing folder in a drive
My master file, imports data from another source (excel file) pastes it in the necessary columns at the moment, however the file is run every Monday so the file name is generic, last week was 10723, this week will become 10724 when the data is run next week,
Can I do what I want to? Via either an inputbox for the file name, or by using something so the file name becomes “107 “ & Weeknum(today()-3)
I have a tool file which contains Excel VBA codes. When I click button it asks to select a file. I want that anytime I click the button the dialogue box should open in the folder containg the tool.,
View 1 Replies View RelatedI have a combobox that returns me the names that are in a spreadsheet.
I need a return label, the index (address of that cell that the combobox returned), how do I do that?
I am using VLOOKUP to find the size of a cam to be installed in a tablet press, based on the product code it will be running.
The array has two columns: (W) Product Code, (X) Cam Size.
Array: W4:X437
The user selects the Product Code from a drop-down list in cell E5.
The resulting Cam Size is displayed in cell E7. The VLOOKUP works fine.
=IFERROR(VLOOKUP(E5,W4:X437,2,FALSE),"")
Occasionally, the cam size has to be updated. The user would then select a new cam size from a drop-down list in cell E9.
I have a "Update Cam Size" command button.
What I need to happen is for the value in E9 to replace the value in the array that is displayed in E7. Obviously, I have to know the location of the cell in the array, but I can't figure that part out. I've tried ADDRESS and MATCH functions, but it comes back with "#N/A" Value not available error.
=ADDRESS(MATCH(E7,W4:X437,0),2)
Just wondering if its possible to create a macro which has an inputbox that gives you part of the file name that you would like to open. We have a report that is issued weekly and I'm trying make it so I type in the date of the report in the correct format and it opens the file (saved on my desktop). I don't want to have to go in and edit the macro everyweek to change the file name.
View 1 Replies View RelatedI'm attempting to copy some files into an archive folder in the same main folder. These files appear weekly in a folder that contains numerous other files.
Each of these files has a filename such as:
RAH_MRL_TOP_40_(ddmmyy_TIME)
with time being the time that the report was run.
Every week the filename stays the same but the time and date changes. I was hoping to be able to simply use the "Filecopy" command and specify the source file with a "*" after the main file name. However this does not seem to work.
Is there a simple way to do this? (I dont want more than a few lines of coding really as I will be duplicating it for each file and then changing the file name as needed.
I was working on a tax file yesturday, just a long long list of receipts. and the file is password protected. However, I went to open it today, and I get a message that says: "Filename.xls cannot be opened. the file may be read only, or you may be trying to access a read only location. Or, the server the file is located on may not be responding."
It's on my USB Drive. I've tried copying it to my HD so I can play with a copy, but no dice. When I try that, I get another error message, : Cannot copy Filename.xls. The file or directory is corrupted and unreadable. I've tried the various fixed suggested in the excel help files to no avail. I did a search on the forum, but didn't find anything that seemed to apply or help me. The computer I'm trying to open it on has Office 2003, the one I most recently worked on the file on has office XP. Not sure if this was a source of the problem. Doesn't seem like it should be. Hasn't been in the past. I'm not even getting to the dialogue box asking for my password yet.
I have a file (I'll call it 'Template' where I am extracting data into a new workbook. I refer back to my Template in my code, but I have now come across an issue. I will save the template using different country names, for example, if I am populating it with UK data, I will call it 'Template - UK'. In my code, how do I pass the name of this file to a dimmed value. So If i have the template - Uk open, can I pass the filename onto a dimmed value? So instead of having
Windows("template - UK").Activate
I want to have something along the lines of (although I tried this way but it didn't work):
Dim template As String
template = Application. ActiveWorkbook
Windows(template).Activate