creating a macro that will inport file exention which has WK4 , i have lotus notes at work i have exported email file to drive U: , i require a macro to pick this file up and export to Sheet Group_Mailbox. The range is A9
View 9 RepliesHow can I save worksheet from existing workbook as a new workbook with extension .xls or .xlsx depending on the version of Excel on which the original was opened and no matter the extension of original?
My code that I was trying to create all above does not work, because even if I am using Excel 2007, 2010 or 2013 it will still be saving only as .xls.
I saved my worksheet in vba .xlsx and for some reason, when I go to the folder that it's saved in and try to open the file I get an error message saying "excel cannot open the file 'PO Acks fo 09-20-2013.xlsx' because the file format or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file"
This is weird because I have another file that I save right before this that opens just fine without an error. Getting frustrating. When I go into the ~Users folder it shows as an excel file and saved as .xlsx.
Where would the link be missing?
Here is the code
Code:
ActiveWorkbook.SaveAs Filename:= _
"G:PURCHASINGSupplier ServicesGroupSharePublic~UsersPO Acks for " & Format$(Date, "mm-dd-yyyy") & ".xlsx"
I have a sheet I am working on that was given to me by a supplier and for example the cell in A1 is '2008_world_soccer'. How do I add '.jar' to the end of the filename bearing in mind the filenames are not the same length in each cell. So it would then read '2008_world_soccer.jar' or ''2008_world_soccer_GB_test.jar' etc. Any ideas that would saving me having to edit and type .jar at the end everytime for over a thousand records?
View 3 Replies View RelatedI have a list of file names in an excel sheet. The requirement is to find the extension of each file in the next column. For example
file name 123.456.789.jpg
extension jpg
file name 123.abcd.789.xlam
extension xlam
is there a worksheet function equal to InStrRev in vba?
I opened a file, by file I mean a "file" with no extension that has commas separating it.
So I recorded a macro to open up the file and this works fine.
How do I close it? I tried
wk1 = ThisWorkbook.Name 'Main Worksheet
...
Workbooks(wk1).Activate
ActiveWindow.Close
But the problem is that "wk1" is not set equal to the name, probably because the file is not an excel file, it has no extension.
I need a VBA script which only opens the file with the highest extension.
The files are test.aa1, test.aa2 and test.aa3. This can go up to 5. In this case the filoe test.aa3 should be opened.
Apparently my program quits after i try to open an excel file. If you open the file manually you get an error upon opening the file...something like this:
"File you are tyring to open is in a different format than specified by the file extension".
The problem is i am using an excel macro using VBA and once the file is opened the VBA execution quits.
The excel file turns out to be an xml file which excel can open the file and have the VBA continue running if i RENAME the file with an "xlsx" extension. The problem is that i cant ask the user to rename the file.........how do i get VBA to open the file without an issue?
I have a column that looks like this, beginning on C10:
Code:
File Name
2316-17-312A.xrdml
2316-17-312B.xrdml
2316-17-312C.xrdml
[Code].....
I want to copy the extension of each file to a new column (File Type). How might I go about this?
Has anyone got the add in code? I have my own custom menu bar on my excel. But every time i want to add a new link i must go into the code and manually add the file name extension and relevant VBA code. Is there a method of just entering the file extension in a cell range and excel will automatically update or pick up or link from this location?
View 9 Replies View RelatedI am attempting to write a macro that will open every file in a given folder, then save the files with a new file names while keeping the original file extension. The files I'm opening with excel have file extensions of ".VA", ".TOU", and ".KVA". The new file names I want to save the files with are contained in cell A1.
An example would be:
The excel macro opens file "R003890.TOU"
The macro assigns a the value in cell "A1" (B1040) to a variable
The macro assigns the file extension (.TOU) to a variable
The macro saves the file as file name variable and file extension variable (B1040.TOU)
I'm trying to insure that when a file name is inputted into cell "DA7" that the string ends with a ".xls" extension. I'm using "DA7" as a target and have written the following code. When executed nothing happens.
If Target.Address = "DA7" Then
Dim ta As String
ta = Target.Value
If Right(ta, 4) <> ".xls" Then
MsgBox "The file name must end with a '.xls' extention"
Target.ClearContents
End If
End If
I have a folder containing 1000's of files. All the files end in .txt (for example test.txt) but are actually excel files. When I go to open the files with excel I get the following warning:
The file you are trying to open is in a different format than specified by the file's extension. Verify that the file is not corrupt and from a trusted source before opening the file. Do you want to continue?
I click "yes" and it opens fine as an excel file.
I want to merge all these files one after another into one file.
I have a master workbook that contains macros and has an xlsm extension.
One macro in the workbook copies one of the worksheets to a new workbook. I then want to save this new workbook as an xlsx file. I use the following code line:
.SaveAs Filename:=Extract_Save_Name & ".xlsx", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
However, when I run the code I get an error:
"This extension cannot be used with the selected file type."
The new workbook does not contain any macros and if I save the workbook "manually" as an xlsx it saves fine.
If I change the code above to have "xlsm" it works fine - but I don't want that extension.
if there is a macro for import a serial data into a excel cell!
View 10 Replies View Relatedthis query has now took a peculiar twist in the fact that my boss now wants to change the goalposts
here is a thread with the code in
[url]
I have just received an eMail from my accountant and here file name extension is .xlsx. I have never seen this before. Can someone tell me why the x on the end of the extension? . Also, when it opens, a Message Box is displayed: File Conversion in process.
View 4 Replies View RelatedBased on a certain customer agreement code in excel, "YES-N", then I need to add one year onto the date listed on the renew date column.
I need the result in cell 'AP'.
change extension in vba
i am a positive rookie and i need help.
i know a little programming but i understand it even i dont write anything.
i know is wrong what i write here but i express my idea on how i want it to be.
I am thinking of an extension. Every time it finds a empty row where it pastes in. Is it possbile to insert as many rows as the range object is before we paste in the range?
Ex: If the source sheet has 10 rows that's going to be pasted into the destination sheet. I want first to insert 10 rows into destination sheet at "*" and then paste in the 10 rows from the source sheet.
I have been able to successfully code a new email message one little thing I can't figure out is adding 77 plus their extension txtphone.
View 3 Replies View RelatedHow to Extract Extension from String?
Ex.
"testing.xls" to "testing"
"testing123.html" to "testing 123"
I am having an issue getting rid of the ".xls" when my workbooks save automoatically. Here is the code i am using: ActiveWorkbook.SaveAs (ActiveWorkbook. Name & "_" & NextMonth). The program works great except it will save as something like "Example.xls_Jan07". THe only problem is that ".xls" in there is driving me crazy. All i want is Example_Jan07. Anyway of doing this?
View 3 Replies View RelatedI've tried the solution to get around the 3 criterial limit for Conditional Formatting provided at http://www.ozgrid.com/VBA/excel-cond...ting-limit.htm. It works fine for values or text that are entered in the cells, but does not work for a value or text in the cell as a result of a function in that cell. What modifications to the VBA statement needs to be made to make Conditional Formatting work based on function results?
View 7 Replies View Relatedlook at the tab "Publisher sumif summary" and at the "Q" column. There is already a formula in place which returns a number from column B in the "Publisher Control Sheet".
If you look at Column B in the "publisher control sheet", you can see that for some of the companies in column A there is no number. Instead, there is a number in Column C where there is no number for column B.
The problem at the moment is that I don't know how to get the data from Column C factored into the equation, which I will describe below
Essentially, i need the formula in the Q column of the "Publisher sumif summary" to return "((Column M number (impressions) /1000)* Column C number) with the column C number coming from the "Publisher control sheet" tab. It needs to only do this where there is no number in column B, and how to add this function!
I clicked on something and now my original (one) workbook has opened as two
workbooks with the above listed extensions. If I do something in one, it
will appear in the other. If I close out and re- open the workbook from it's
original state, they still appear. I clicked too fast or hit something and
now I can't get it back to original form.
is it possible to choose $[file] in custom header area but only have the file name, before the xls extension print?
Also, is it possible to have the file name print in all caps? (or would the file have to be named in all caps?)
I have a few thousand files that all have the extension of .kdm.kdm. I need to change them all to .kdm.xml. All of the files are in a single directory on my hard drive. I know there's a way to do this in VBA that's simple, but I can't seem to locate it in any of the books I have....
View 2 Replies View RelatedI took this code from another post and modified it slightly to look in my directory "C:cherylpostal" and list the names of all the files contained. I then have them displayed in a combo box. They are all CSV files, but I would really like them to appear without the .CSV extension. For example, my COQ4 file appears as COQ4.CSV but I would like it to just display COQ4. I can't seem to make it work however.
Sub Macro1()
Dim rngOut As Range
Dim strPath As String
Dim strFile As String
Set rngOut = Range("F1")
strPath = "C:cherylpostal"
strFile = Dir(strPath & "*.*")
If strFile = "" Then
MsgBox "No files matching criteria can be found in " & strPath, vbExclamation
Exit Sub
End If
Do While strFile <> ""
rngOut = strFile
Set rngOut = rngOut.Offset(1, 0)
strFile = Dir
Loop
End Sub
I have a template file for ordering trafolyte and steel plates. I have added macros to this template file. The existing macros do the following (shortly described):
Macro 1: clears order
Macro 2: update order date + send a read only file to the supplier of plates + save a read only copy of the file into one of three folders acc to info in one of the cells.
It's the Macro 2 I want to edit.
I want to add a "function" which copy a selection of data.column A to N from row 12 to 548 but only the rows where there is a value in column A.
Row 1 to 11 includes standard order info and Macro buttons.
Row 11 includes the heading for order data.
For everytime someone click on the Macro 2 button in the template file, I want the selection to be paste into the first "available" row in a "Total list" file.
The "Total list" file may have to be open (or a function to open, paste selection and then close the "Total list" file may be added)
File and Folder info:
To simplify suggestions, the following file and path info can be used (I can change to the correct later):
Template file name: template_order.xlsm
Template file location: \servershared emplate
Total list file name: total_list.xlsx
Total list file location: \servershared otal
Selection info:
The template file exists of a "general order info area" A1:N10
The column heading for order data is located at A11:N11
The selection to be copied is A12:N550 - But only rows where column A includes data (not empty).
(If the spesific order consists of 14 plates than there will be item no 1-14 in column A and I then I want to copy A12:N25 (row 25 will be item 14).
When I try to use record macro it looks like it only records what's happening in the template file - It doesn't record the pasting in the total list.