Keep Sheet Names Unchanged After Saving Them As TXT Files
Mar 24, 2014
I want two sheets of my Excel workbook to be saved as txt file. The name of the file is compiled of a fixed part ("TrialList" or "BlockList") and two values from another sheet (subject and session number):
Now, saving the text files with the desired file names works perfectly. However, Excel decides to change the names of the sheets that have been saved as text files accordingly. This is something I want to prevent from happening, since a second loop of actions will end because of the unexpected sheet names...
I have this script (below, Krishnakumar orignally provided this script).
I'm trying to edit it to add cell values from cells C16 and E16 along with the worksheet name it displays in listbox2. So lets say worksheet "rollover" is the sheet being displayed in the listbox2.
I would like for it to look something like this:
rollover TT:'data from cell C16' TA:'data from cell E16'
Public FilePath As String Public dic As Object Public oWB As String Public oWS As String Public aWS As Worksheet
Private Sub CommandButton1_Click() Dim i As Long, wb As Workbook, n As Long With Me.ListBox2 For i = 0 To .ListCount - 1 If .Selected(i) = True Then oWS = .list(i) Set wb = Workbooks.Open(FilePath & oWB, UpdateLinks:=0) wb.Sheets(oWS).Activate Exit For End If Next End With End Sub
I have this code that generates excel pages as pdf files, but I can't get it to save it in its individual folders. For example, I have the sheet name as Brian Lin, I want to save the pdf into the folder called Brian Lin, then if I have the sheet name as Lilly Tran, the pdf should save into the folder called Lilly Tran. Here's my code. The code is one step short of what I want it to do, it saves in the folder right before the name folders.
Sub Macro1() Dim wsh As Worksheet, vWshs Dim sFolderName As String, set_Path As String, name As String, hwas As String, sname As String, swsname As String vWshs = Array("Rates", "Inputs") set_Path = "C:UsersJonathanDesktopFaFundInvoices" & hwas & ""
I currently have 3 batch files that I would like to be able to update using VBA instead of manually adding the information to each one. My goal is to be able to use my excel file and when I add new lines I could then run the script to save and/or update each of the batch files. I would like to be able to add the new lines I added in excel to the end of the batch files. I use the batch files for automation purposes but I do not like the fact that I have to open each one and added the same lines three times. This is why I want to be able to update my excel file and then add those new lines to the batch file. An example of how to accomplish this task using VBA would be awesome.
1) left click on tab 2) move or copy... 3) move selected sheets to book (File: Region 1.xls) 4) then go on to next tab...............
Now, this does loop through the requested files, I can see them open, then close. I'm guessing they are copying, but I take it that I need to have it paste, then go to the next? (The c:files is just generic, as the files are on our LAN, and I'm just paranoid. The "Erie St. Clair" are the actual names of the file, and the tabs).
I'm programing a VBA macro in Outlook 2007. I have added a button to the quick bar so when i open an email and push that button, a Excel file opens and i can input some data. Thing is, i need that if the opened email have some kind of attachment, when i push the button i want this attachement to be saved into a specific folder. Is that posssible?
I tried to use prtScrn button on the keyboard to capture the screen (excel UI) and then pasted it to excel then saved it. I tried to do the same thing on my friends machine and what surprises me is that the file size of two excel is different.
We use the same OS, excel version and the same machine specs.My saved excel file is around 7.91 mb in size while his is just around 235kb. Why is this like this?
Both pasted image have bmp as a format (default for excel when a you use print screen and directly paste it on excel.).
So i have a macro that i wrote that willclean up these datafeeds that i get. i want to be able to use them for each spreadsheet. So the first bit i tried was saving a personal.xls file in the xlstart folder in XP (MSE 2003) . That would automatically pull up but when i tried to run the macro on other worksheets i get the generic 400 error.
the next thing i tried was copying the macro to a module and adding function tags and taking out the sub tags. i then "saved" that in the addins folder then tried assiging my custom button to is through the macros prompt. When i gave the title box the absolute path to the addins folder with clean.xla cited it said it was invalid, so i tried saving it just as clean.xla expecting it to locate the file there anyway.
this far each time i try to run the macro globally it says it cant find the current sheetname!macroname So i must be missing a step somewhere... can anyone give advice, i have searched the forum and couldnt find a similar problem for solutions.
I have the following code which edits an excel file and saves it in a different format, I think want the code to take this newly saved file and open it in an external application (Softplot) and then save it through this new application.
VB: Sub FormatMacro1a(ws As Worksheet) ws.Copy Rows(1).Delete Columns("D:E").Cut Destination:=Columns("J:K") Columns("F:K").Cut Destination:=Columns("D:I") Range("E1:E201").Value = "0"
As it stands I have the file saving in a new format and I can open a specific file in softplot through VBA however where I am getting stuck is opening my newly saved file and then saving it.
I have a worksheet in my workbook that contains data for 25 different airfoils, each one in a cell space of 3 columns and 50 rows. In order to do some analysis on these airfoils, I need to save each 3x50 as separate text file to define input for analysis code. How can I do this in VB in one macro?
I load an text file into an excel sheet and after some eventually changes I save (overwrite) it back into the text file again. Now the text file has become a file with 50 pages (49 empty pages). How can I avoid this or how can I set an EOF when no more written lines follows. The code for saving the excel sheet is this:
1) I'm relatively new to arrays, but what I need to do is generate a list of file names and the sheets within each one. I would like to use an array for this, but since I don't have much experience.... well....that's why I'm here. Can someone point me in the right direction?
2) And the second part of this.... I was planning on using the FileSystemObject to determine the files in a selected folder and loop through that list of files, opening each one and harvesting the required info (file name and all sheet names). Should I use the FSO or is there something built into Excel that might be better (and also limit the number of dependencies for this little "project" of mine).
I have the below macro which had previously worked for me, but now I am getting a runtime error. I tried troubleshooting this on my own now, but am coming up with nothing.
Sub ReName_Files() Dim rFiles As Range, rCell As Range Dim StrNewName As String, strOld As String Dim strPath As String Dim wbOpen As Workbook
Application.ScreenUpdating = False
Set rFiles = Range("A1", Range("A65536").End(xlUp)) strPath = "E:FinanceUtilization Reports2008Month End"
For Each rCell In rFiles strOld = strPath & rCell StrNewName = rCell(1, 2) Set wbOpen = Workbooks.Open(strOld) wbOpen.SaveAs strPath & StrNewName wbOpen.Close Next rCell Application.ScreenUpdating = True End Sub
I have a spreadsheet which is sent to one of my suppliers..they fill in there product information then send it back. When they need to add new products or make changes to existing ones they simply use the same file and re-send it. So I end up with two files, old and new. I need to flag up which cells have been changed in the new file compared with the old one.
At the moment I am copy and pasting the data from the new file into another spreadsheet which has =IF(B10='\HalusersSimon[Copy of Copy of Copy of Book1.xls]enter data'!$K$6,"","Change") in a empty column next to each column from the new file. This displays 'Change' in the cell next to the one I have pasted if it is different from the original file. Unfortunately I am still left with all of the rows where none of the data has changed, so I still have to sort through maybe 10000 rows....BORINGGGGG.
First of all the formula isnt perfect for the job...is there a macro which can do this instead...and secondly is there a macro to delete all rows within a certain area (so that I can keep the field headings and stuff) which dont contain the word 'Change' in them
I have 2000 excel files all saved as different names.
The Names of the the files are all from greyhound racing results, here are some examples.
4th January 2008 7.30 4th January 2008 7.45
So we have the date of the race and the time of the race.
In these 2000 files there is certian information I want to retrieve into 1 excel sheet to run analisis on them.
So cell A1 in every file is always the same and may contain a number I need.There are several numbers I want to retrieve from each file but I want it to display in 1 sheet, now I can do this manually and may have to but lets see.
I have a directory that contain a large number of files. How do i preserve certain files with specific filenames while other files are deleted?
For example, I have files that are named : "58-26150B", "58-26200", "58-26200B", "58-26500B", "58-26550" etc. Please refer to uploaded screenshot.
The files that i want to keep from the above are "58-26200", "58-26200B". The code should be able to loop through the entire directory & preserve only specific files while deleting the rest.
Private Sub CommandButton18_Click()
Dim nWave As Integer, i As Integer Dim ConvergedFile As String, Pattern As String, KillFilePath As String, SimilarFile As String
nWave = Worksheets("nomogram").Cells(13, 4) For i = 1 To nWave ConvergedFile = CStr(Worksheets("nomogram").Cells(33, 3 + i)) 'Loop through list of wanted file names "58-26150", "60-25950" etc Pattern = Mid(Trim(ConvergedFile), 1, 3) 'Update the filename prefixes i.e. "58-", "60-" etc