I realise this is not strictly an excel question but it forms part of my VBA code within excel
I have been writing a VBA program (with some fantastic help from you guys) part of which writes to a batch file to rename files stored in a given folder. Unfortunately this fails if the original files have spaces in the filenames. The batch file contains command lines such as: ...
I know this is an excel forum but i'm struggling with something. i need to create a batch file that maps a network drive so far my searches have uncovered this
View 3 Replies View RelatedI was trying to run the shell command in VBA (excel2007) on a .BAT(batch) file. While running the macro, the DOS command prompt appears and goes away in a flash but the function of the .bat is not performed which makes me think that the shell command isnt functioning properly. I had this proper earlier also with a few Exe's.
the line of the macro that calls is (c is the path for the batch file) :
Call Shell(c, vbNormalFocus)
Could any of you help me with some suggestions regarding this problem.
Just to confirm, the batch file on itself works absolutely fine and it looks like it doesnt take more than 2 seconds to run it. It also does not wait for any input from the macro. it is an individual batch just included in the macro.
i have batch file that run from VBAexcel But the thing is i dont want to run batch file
i want everything on VBA . for example you use vba to cmd and then run this line of command
i have try but i just new to VBA and programing
how can i do it
here the code
this is from batch
Code:
@echo off
>summary.txt (
for %%F in (*chkpackage.log) do findstr /l %1 "%%F" nul||echo %%F:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A:N/A
)
and this is code in vba
Code:
FileSet = Sheet1.Range("C13")
txtFpath = Sheet1.Range("C7").Value
FilePath = txtFpath & "
es.bat"
[Code]...
i have to admit that i'm really not good in programing if you can add some explaination is a great thing for me to try to study
Is their a way of creating a batch file which will open an Excel workbook and run a single macro?
View 9 Replies View RelatedThe reports I build work from a basic template with 10 or so separate, slightly different versions. In order to make them I currently update the data in the template and then click on "File>Save As..." ten times, renaming the file as appropriate.
Example:
Overall Report for yyyy/mm/dd
Partner A report for yyyy/mm/dd
Partner B report for yyyy/mm/dd
ad nauseum..
Is there an easy macro that could save and rename my file multiple times? It would need to accept manual input for the date. Preferably it would be something that I could easily tweak to change the filenames and number of reports saved as this is most of what I do.
I'm working on my first VBA project that requires 12 fields to be manually input of which one field is a file path. I need this path for multiple reasons, but the one reason I'm having a problem with is using the location of the path in conjunction with calling a bat file or executing a cmd prompt that is at that path.
Path Location, minus file name:
Code:
sheets("b. Fill Out Required Info").Select
Range("B18").Select
Actual Path found in B18:
C:UsersNickDesktopSubmission ToolTest Files
File attempting to execute:
CopyFileNames.bat
I can manually put all of this together and get what I want by using:
Code:
Shell "C:UsersNickDesktopSubmission ToolTest FilesCopyFileNames.bat", 1
The problem is, every time this will be used, a different path will be used, but the same batch file name will be used. So, rather than having to manually input the file path every time, is there a way to replace "C:UsersNickDesktopSubmission ToolTest Files" with the cell reference of the path listed above? I've tried different methods of this but I cannot seem to get it.
It would be even better if I could just use the cmd prompt found within the batch and run it directly from vba; the prompt I'm running is as follows:
Code:
cd C:UsersNickDesktopSubmission ToolTest Files dir /b/o |find ".xml">ListOfFileNames.txt
How can I put that cmd into VBA? I tried different versions of this with no success:
Code:
Shell "cmd.exe /c cd C:UsersNickDesktopSubmission ToolTest Files dir /b/o |find ".xml">ListOfFileNames.txt"
Notice that the path is the same as the path shown in B18 above. It would be great if that path would be dependent on the cell referenced above.
I wanted to run a batch file which does something like,
Dir /b >Test.csv
Start Test.csv
And then runs an Excel macro once the workbook is open.
I looked into this and discovered that its not really that possible to run an excel macro through batch file but other options were to use Workbook_Open etc.
I thought this might cause problems because Test.csv doesnt contain a macro to auto open and because csvs usually dont like macros.
I do however have personal.xlsb which opens every time if that helps.
I have a .txt file created in Notepad and it contains a 4 digit number (Job ID). I am recieving the dreaded "Bad File Mode" (#54) error when writing back the file.
I would like to OPEN it as R/W locked, read it, increment it by 1 and write it back. Am perfectly willing to create the .txt as non-binary if that is causing the issue.
Dim jinChar As String
fileNumber = FreeFile()
jinFP = "JIN.txt"
Open jinFP For Binary Access Read Write Lock Read Write As #fileNumber
Input #fileNumber, jinChar
jobIDNumber = CInt(jinChar)
jobIDNumber = jobIDNumber + 1
jinChar = CStr(jobIDNumber)
Write #1, jinChar
Close #fileNumber
I have a cel that has about 100,000 phone numbers and at the end of some and before sum, there are spaces added to end. is there a formula, or a way to take everything away except for the 10 digit number?
View 5 Replies View RelatedI am trying to remove spaces in front of a number (currently formatted as text)
I have tried "Text to Columns", "Trim", and other suggestions in previously threads.
I have copied bank statement amounts from an e-mail and the $ amounts have one Space in front of them. When I use the Trim function, and then a paste special, I still cannot get rid of the space, and so cannot add up the amounts in this column.
Ex:
*7 Dec 2007*DEPOSIT*3,917.63
*7 Dec 2007*DEPOSIT*1,890.58
I have a workbook that contains worksheets. They are listed as follows:
Sheet 1ABCDEFG
In cells A1 - A49 I have text. What I would like to do is to have a macro that I can run that will basically copy and save new workbooks with sheets A - G copied over and have the new workbook saved with the file name that I have denoted in cells A1 - A49 on Sheet 1. Also, the macro would ask me where I want to save the new Workbooks.
For example, if this were Sheet 1, Column A then the cells below would be the saved name of the new workbooks and the new workbooks would have Sheets A - G in themRed
Blue
Purple
Black
White
Yellow
Orange
Green
Gray
Brown
One more piece of information, the file that is being copied and saved is large (~80MB). If there is a macro that would allow me to simply "save as' the workbook and the Saved Workbooks would be named using the data in Sheet 1, that would work as well in case copying, pasting, then saving may take more time
I have a column of data in which each cell contains a line of text. Each line of text has spaces after the letters end and there doesn't seem to be a consistent number of trailing spaces.
I can clean up the data using the TRIM function but is it possible to use the TEXT TO COLUMNS functionality?
See attached. I want to use column A to create column B (the expected result) by way of a formula. Index?
View 6 Replies View RelatedI need VBA to remove all punctuation and spaces from cells. What I want is to do this from the same columns every spreadhseet that I open and when it gets to row 700 to stop. So I guess a range for this example could be A1:B700.
I have an excel file with two sheets . One containing the updated prices with its code ( Sheet1) and the other containing the old prices with the same codes (sheet2). Now after several trials to copy the new prices from sheet 1 to sheet 2 with check if the code is same . ( I couldn't )
So how to get rid of the 20 spaces from Sheet1 column A.
I have written a function which works in the same way as the concatenate formula but where required it uses an underscore to make up the length (14 Characters) of the result. I seem however to have hit a minor snag when users input trailing spaces. I thought I could use trim to eliminate them but it doesnt seem to be working
Function HypCon(CorpAcct, Subdiv)
Dim n, i, iLen, iLen2 As Integer
Dim sCorpAcct, sSubdiv As String
Dim iLen3, iLen4 As Integer
iLen = Len(Trim(CorpAcct))
iLen2 = 7
iLen3 = Len(Trim(Subdiv))
iLen4 = 5..............
I wrote numbers in column b cells in disordered way :
1
.. 1
1
.... 1
.. 1
1
I would like to make them to be aligned in the left side by a code.
I convert a .pdf report to excel using Able2Extract. The output is leaving some xtra spaces inside the word. For example,
Clean in g Co st
I tried running Dave McRitchie's Trimall on the text, Sample workbook attached
I'm trying to use the SUBSTITUTE function to remove spaces from my cells in column A. The trouble is My formula is removing all the spaces from the cell. My formula is: SUBSTITUTE(A1," ","")
I do however have many cells that contain a space between characters 5 and 7 and spaces at the end of the cell which have been padded out to 15 characters long.Its only the spaces at the end of the cells I need to remove.
I have a macro that I run after selecting a column which removes spaces. However, it processes all 65536 rows and I only want it to process the cells with values. I need to enter into an input a column and then it just removes spaces from the cells with values
Sub NoSpaces()
Dim c As Range
For Each c In Selection.Cells
c = Replace(c, " ", "")
Next
End Sub
If I have ABC DEF in a1, is there a formula I can put in a2 to remove the space and display ABCDEF
View 2 Replies View RelatedIn Column A, I have several rows of data. Some cells contain numbers and some contain text and some are blank. In Column C, I only want the numbers in Column A. I do not want the text and I cannot have any gaps in the column.
So for example:
Column A: row 1: 456 row 2: 789 row 3: text row 4: text row 5: 398 row 6: text row 7: blank row 8: 124
in Column C I need:
row 1: 456 row 2: 789 row 3: 398 row 4: 124
I have in a range several numbers that contain extra spaces and therefore these are recognized as text.
This is how the numbers would look : " 123.234.567"
How to remove the extra spaces and the points (as otherwise this will also be recognized as text)?
I am trying to do a vlookup. I receive a report that gives the data as hyperlinks. I run a macro to remove the hyperlinks. I'm then left with a name that i want to match using a vlookup to get other data. The names are Chinese characters. I have tried using trim and clean function but its still leaving a space after the name. If i fo in manually and delete the space at the end the vlookup works fine. How to remove the spaces? i have about 5000 rows.
学员名字EliteNumber刘传佳=TRIM(A2)=VLOOKUP(B2,Sheet3!B:D,3,FALSE)刘传佳=VLOOKUP(D2,Sheet3!B1:D3550,3,FALSE)刘传佳 =TRIM(A3)刘传佳=VLOOKUP(D3,Sheet3!B2:D3551,3,FALSE)钟才富 =TRIM(A4)钟才富=VLOOKUP(D4,Sheet3!B3:D3552,3,FALSE)张杰 =TRIM(A5)张杰=VLOOKUP(D5,Sheet3!B4:D3553,3,FALSE)
刘传佳刘传佳刘传佳2001425刘传佳 刘传佳 刘传佳2001425钟才富 钟才富 钟才富800857张杰 张杰 张杰#N/A
The below code removes trailing spaces, but for some reason it does not remove space from this, i clicked F2 and the space is still there, why does it work on some but not others?
98956P102
Sub test()
With ActiveSheet.UsedRange
.Value = Evaluate("if(" & .address & """"",trim(" & .address & "),"""")")
End With
End Sub
I am doing a vlookup on fields such as 02-0223. In one table, there is a space at the end of 02-0223 and in the other table, there is no space. How can I delete the space so the numbers match in vlookup?
View 7 Replies View RelatedI use a program that can export data into Excel. For the most part, it works fine. except it doesn't correctly handle dates. For some reason, when it pastes a date into excel it includes 8 or 9 (depending if the month is 1 or 2 digits) spaces in front of the date which makes calculations with these dates impossible unless you go into each cell and delete the spaces (or do Find / Replace).
Is there a way I can create a non-VBA formula that will reference any one of these cells and some how identify what the date is & then that cell can be the date I can calc on? I.e., A1 is the date with the spaces in front, B2 is the cell that will reference A1 and produce, as the contents of B2, the date in A1. I can then use B2 in calculations.
Note: the month formats possible are: M/DD/YY (Jan. - Sept.) & MM/DD/YY (Oct. - Dec.). There are no other variations.
I am trying to use the trim function to remove unwanted spaces at the beginning of cells that contain an address. The entire column contains spaces prior to the street number/name.
View 14 Replies View RelatedAny easy way to remove all spaces from a cell, both leading and trailing? I find it hard to believe that Excel doesn't have this functionality. I don't particulary want to write a VBA script since I have never done it but if that's the only way, I'd love to know how to write it. I have looked everywhere but obviously not in the right places.
View 4 Replies View Related