Import File, Keep Leading Zero, Get Rid Of Spaces
May 21, 2009
I have a problem which may seem simple but is daunting for me.
I have a file in xls format that i need to import data from.
The problem is with column A, (e.g. 0233 45) if I get rid of the spaces I loose leading zero, if I keep the zero I cannot get rid of spaces. The thing is I need both conditions satisfied.
To summarize:
1)Import file and delete columns B and C
2)In column A get rid of spaces but keep leading zero (it's important to keep the zero where it exists, not add one). The length is different for each string in column A.
Here is a small sample of the file that is imported
import and convert.xls
View 2 Replies
ADVERTISEMENT
Jan 30, 2010
I am trying to sort a database with about 500,000 names. For some reason, about half my data has leading spaces and half do not. I have taken a screenshot at the divide so you can see what I mean. The sort in the picture is in this order:
Column D
Column C
Column A
Is there any way to mass purge these leading spaces in Column D (column b also has the issue but the fix is not nearly as important as for column D)?
View 2 Replies
View Related
Sep 25, 2008
I have some cells containing imported text with a lot of leading spaces. I try to get rid of them by TRIM'ing those cells, but it doesn't work.
Is TRIM only for trailing spaces?
View 7 Replies
View Related
Dec 5, 2013
Any 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
Mar 31, 2009
I am using the following code to import an excel file into an existing sheet. The problem I am having is the way some of the cells are being imported. Some of the cells have spaces before and after the number.
I need to delete the leading and trailing spaces for each cell affected. Is there a code I can incorporate to do this? BTW…the columns effected are columns F & G.
View 8 Replies
View Related
Jun 10, 2008
to trim leading and trailing spaces from values I'm getting from a For Next routine. I'm using c as my variable and Trim(c.value) as the operation.
There are other routines that search for the explicit string that's the result of the trimmed value and some can't be found because the trim as I'm using it isn't trimming.
View 9 Replies
View Related
Sep 1, 2008
I wrote a tool that people at work use. They initially need to paste in a bunch of customer locations with Address, City, State, Zip, etc. Sometimes the Users have "bad input" data that has non-breaking spaces, multiple space between words, or leading and trailing spaces and nonbreaking spaces. I have code to get rid of all of those problems. However, the Users often use their data for other important functions at work. So I want to give them a message to let them know that their Original Data is "bad".
So instead of just "Fix" . . . I want to "Report the problem", then "Fix". I need to identify exactly what problem was found - not just tell the User that their data is bad.
I wrote a simple Search routine with error handling that identifies 2 of the 4 cases and notifies the User:
Case 1) ASCII 160 (non-breaking space, HTML  
Case 2) multiple spaces (2 or more consecutive spaces)
Case 3) Leading or Trailing Spaces (ASCII 032)
Case 4 Leading or Trailing non-breaking spaces (ASCII 160, which is HTML  )
I cannot quite figure out how to find the 3rd and 4th Cases. If anyone can help me with Case 4 especially, then I can probably do the same thing for Case 3.
I think it will work to somehow use this idea - the code is not even real code but it is just conceptual:
RIGHT(CellReference, 1) = Char(160) or Char(032)
LEFT(CellReference, 1) = Char(160) or Char(032)
Anyway, here is what I have so far . . .
Sub NotifyBadInput
ErrorFlag = False
Cells.Select ' select entire worksheet
' BAD INPUT 1 - lLook for any occurence of ASCII 160 (non-breaking space, HTML  )
' and Notify the User if any of his Input cells contain  's
On Error Goto errormsg1
Selection.Find(What:=" ", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
View 9 Replies
View Related
May 27, 2008
While entering data space is given in the first and last of each cell content. For example
if there is a word Alex Patrix in a cell, space is given before A of alex and after x of Patrix. This is done fo many cells. I want to remove only initial and last space which is un-necessary.
The space caused problem to compare cell so i've to remove space.
I've around 2500 cells with this problem.
View 2 Replies
View Related
Feb 15, 2009
I am importing an existing HTML table into excel, using the Data > Import Extrenal Data > HTML Query.
The data table is being imported correctly, however, the first column is a set of claim numbers (alpha-numeric).
Excel is stripping away the leading zeroes.
e.g. Claim numbers are of the form:
Actual: 000005847161 Excel Conversion: 5847161
Actual: 020000008760WC01163 Excel Conversion: 020000008760WC01163
The second one (which is alphanumeric) is being treated correctly, the first one is not.
The purely numerical claim numbers can of variable length to each other e.g. one could be 15 digits, another could be 12 for example.
Is there any way to preserve the original values including to have the claim numbers being imported as their EXACT values?
View 9 Replies
View Related
Oct 17, 2011
I've been tasked at work with created a daily CSV upload file for a new system. Typically, the format the raw data comes in is .xls and very untidy (direct from SAP).
As such I have created a small macro which tidys up the spreadsheet, and saves it as a CSV. However, I have only just noticed that for the product codes we have which have a leading zero, the .xls file displays the leading zero without a problem, but in the resultant CSV file they are gone.
The macro I use, is as follows:
Code:
Sub SamplesUpload()
'
' SamplesUpload Macro
'
'
Range("A:A,G:G").Select
Range("G1").Activate
Selection.Delete Shift:=xlToLeft
[Code] .....
As you can see, it's very crude (I'm a complete nubie when it comes to this) - the Application.Run "PERSONAL.xlsm!CSV" is a small macro which puts double quote marks around all content of any populated cells in column B and the Application.Run "PERSONAL.xlsm!SaveAsCSV" is a small macro which saves the current sheet as a CSV file - code for those as below:
Code:
Sub SaveAsCSV()
Dim DTAddress As String
Dim FileName As String
Dim FullyQualifiedFileName As String
'Get the path to the desired save location
[Code] ........
Code:
Sub CSV()
Dim arrB As Variant: arrB = Intersect(ActiveSheet.UsedRange, [B:B]).Value
Dim R As Long
For R = 1 To UBound(arrB, 1)
arrB(R, 1) = """" & arrB(R, 1) & """"
Next R
Intersect(ActiveSheet.UsedRange, [B:B]).Value = arrB
End Sub
So, why the leading zeros are not in my CSV file, and how to get them back?
The line which I use to get the leading zeros is:
Selection.NumberFormat = "[>9999]000000;General"
And this is because the only codes which have a leading zero are 6-digits long. Could I maybe add a single ' to the beginning of each cell in column A to make them text, and thus keep the leading zero?
To confirm, the column which contains the product codes is column A.
View 3 Replies
View Related
Jan 13, 2010
I notice that my csv list of addresses from the northeast area is trimming a lot of zip codes that atart with 0's. this is probably also happening on the address columns for some addresses or box numbers with leading 0s. is there any way to turn this function off?
View 12 Replies
View Related
Jun 5, 2008
i cant do this from importing the data, so instead i have to try and fix it with code. I get a sheet of data from an external source that removes the 0's in the front of the number. Its only a 4 digit number so 21 would be 0021. Now i have been able to trap the data i think i would need. i created a =len() statement to tell me how many numbers each cell has. here is the code i think how it would work.. i just need a little help with filling in the blanks. I would assume its something to the lines of " 00+string value if it was 2 numbers needed.
B2 has the Len values (4,3,2,1 etc) and A1 is the original string that has the values.
So i want the code to add 1 2 or 3 zeros to the front of the number based on the len value.
Range("B2").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(0, 0).Select
Select Case ActiveCell.Value
Case Is = "3"
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(1, 1).Select
Case Is = "2"
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(1, 1).Select......................
View 2 Replies
View Related
Oct 28, 2011
Actually i've downloaded Tracking report of my SPO and this report is on 4-5 csv files (1 file per week). I have to gather data from these 4 files into one Worksheet. I have to do this with command button on my worksheet; with Open file dialogue box (i want to locate the csv files).
CSV files are something like that (I need only first 4 columns):
ABCDE1Name MSISDN Date Location MapLink 2M. Younus Safi "923***550577" "2011-10-07 20:36:18" "ACB Tower Badragah Chakwal. Badraga" "http://asdf.com" 3M. Younus Safi "923***550577" "2011-10-07 19:36:26" "ACB Tower Badragah Chakwal. Badraga" "http://asdf.com" 4M. Younus Safi "923***550577" "2011-10-07 16:39:58" "ACB Tower Badragah Chakwal. Badraga" "http://asdf.com" 5M. Younus Safi "923***550577" "2011-10-07 15:37:23" "ACB Tower Badragah Chakwal. Badraga" "http://asdf.com" 6M. Younus Safi "923***550577" "2011-10-07 14:37:05" "ACB Tower Badragah Chakwal. Badraga" "http://asdf.com"
and my Worksheet is like that (With a command Button):
I want to import first 3 columns of csv file on first 3 columns on my worksheet; leave 2 columns blank and then import the 4th column... now for example i have done importing data from 1st csv file and the data is on 50 rows.. i click the command button again, locate the 2nd csv file.. do the same thing (import 1st 3 columns, 2 blank, then 4th) --from 51st Row-- and so on...
ABCDEF1NameMSISDN DatedBlankBlank Location2
3
4
5
6
7
View 4 Replies
View Related
Jun 3, 2009
I have a workbook with many spreadsheet named Sheet1, Sheet2 and so on. Each sheet is filled completely upto 65536 rows. This data is being picked up from a CSV file. In this file there are sites with each site there is a assciated set of data. What happens is the data that extracts data does not differntiate between sites and when it reaches to the end of worksheet it splits the data into next sheet. So I am trying to create a macro to check each spreadsheet starting with the last sheet in the work book for example last sheet in the workbook is seven it should go to sheet6 and if there is a blank row after row 64000 it should cut all the rows and move them to sheet7. Then it should goto sheet5 and do the same and keep on doing it until it reaches sheet1.
View 9 Replies
View Related
Nov 3, 2009
I am trying to import some csv files so I can combine them, but am having probs with the filename and location.
Sub test()
Dim wsName As String
wsName = ActiveCell
Sheets("Data").Select
With ActiveSheet.UsedRange
LastRow = .SpecialCells(11).Row
End With
With ActiveSheet.QueryTables.Add(Connection:="TEXT; &thisWorkbook.Path &" " & wsName &", Destination:= Range("A" & LastRow))
.Name = wsName
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells.....................
View 5 Replies
View Related
Oct 11, 2008
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: ...
View 6 Replies
View Related
May 21, 2008
I'm outputting some cells to a CSV. At first I tried using the SaveAs function but that renamed my worksheet and didn't work for ranges (as far as I know)
Sub Export()
'Set myADPFile = "C:ADPPCPWADPDATAPRSHWEPI.CSV"
Dim myADPFile As String
myADPFile = "C:PRSHWEPI.CSV"
Dim x As Byte
x = 5
Open myADPFile For Output As 1
While (Not (Sheet3.Range("A" & x).Value = NA))
Print #1, Trim(Sheet3.Range("B" & x).Value), ",", _
Trim(Sheet3.Range("C" & x).Value), ",", _
Sheet3.Range("D" & x).Value, ",", _ ..........................
The values are correct. However, the excess amount of spaces is not. Using the Write function just encases everything in quotation marks. Replacing spaces isn't a good solution because the first row MUST be in that format, and removing all spaces would require more code to put spaces back in. Is there a way to get rid of all the excess spaces surrounding each value?
View 2 Replies
View Related
Jun 24, 2013
I am using Excel 2007. I have pasted my code below. It works fine unless it has a space, in which case it inserts %20. In this case, sRange2 = ActiveSheet.Range("E11") will always have a space in it since this is where i store a job's name.
Sub Macro1()
Dim sRange1 As String
Dim sRange2 As String
Dim sRange3 As String
Dim sRange4 As String
Dim sFullPath As String
[code]....
View 4 Replies
View Related
Jun 22, 2014
import .txt file to excel.
I have below information in txt file
Microsoft (R) Windows Script Host Version 5.8Copyright (C) Microsoft Corporation. All rights reserved.
------------------------------------------
System Details
------------------------------------------
Host Name: XYZ
CPU COUNT : 2
Total RAM: 4 GB
=================
Disk 1
=================
Disk 1DeviceID: C:
Disk 1Disk Size: 112GB
=================
***** script completed - exit code: 0 *****
------------------------------------------
System Details
------------------------------------------
Host Name: XYZ1
CPU COUNT : 2
Total RAM: 4 GB
=================
Disk 1
=================
Disk 1DeviceID: C:
Disk 1Disk Size: 112GB
=================
Disk 2
=================
Disk 2DeviceID: D:
Disk 2Disk Size: 500GB
=================
***** script completed - exit code: 0 *****
required excel format.
Host Name:| CPU COUNT: |Total RAM: |Disk 1 DeviceID:| Disk 1 Disk Size: | Disk 2 DeviceID: |Disk 2 Disk Size:
XYZ| 2 | 4 GB| C | 112GB | |
XYZ1| 2 | 4 GB|C | 112GB | D | 500GB
View 2 Replies
View Related
Jan 28, 2009
I am having a problem importing data as a text file into excel such as
bills company,
12 street rd,
canada,
sss@sss.com,
www.ssss.com,
,
franks company,
12 road sr,
brasil,
ddd@ddd.com,
www.ddd.com,
would like it to be displayed in columns as
bills company 12 street rd canada sss@sss.com, www.ssss.com,
franks company 12 road sr brasil ddd@ddd.com www.ddd.com,
the , is stripped away when I try to open the txt file and set it up for excell
the spaces are not where I want them, I have set the delimiter options correctly
I have a large data set and preferably want an quick solution
View 9 Replies
View Related
May 20, 2009
How do you import a bas file.
My code is
Sub AddCode()
Application.ThisWorkbook.VBProject.VBComponents.Import Filename:="C:UsersStrengDocumentsExcel Spreadsheetsmycode.bas"
End Sub
I am getting a Run Time Error '1004'
Method 'VBProject' of object'_ Workbook' failed
View 9 Replies
View Related
Mar 16, 2009
I am trying to import a file from a notepad to excel. I am trying to copy and paste in to excel. When I paste, all the info is in the same cell, although it looks that there is tabs between columns. Is there a way for me import those numbers into a spread sheet in different columns?......
View 3 Replies
View Related
Mar 11, 2014
I have a lot of txt. files you would like to imported automatically via VBA code text file is always the same need only certain data in these two rows which is the red just want this data
it is copied from txt. files in Excel so that I had with the click of a button you obtain all the information and through this button you looking for the folder in which the data next would have 2 lines one would be the computer name of one folder and the user can more This would also be the folder in which the data were computer name to the main folder subfolder, users, and wanted to let me read the particulars of which are in the name of the computer and the user. for example. computer name of the user
i have in excel what i need
View 5 Replies
View Related
Jan 29, 2014
I wish to click on a button in a worksheet which then looks in a particular folder on the local drive. Any file with a .xml extension import into the worksheet.
What if 2 or more xml files are present? The xml file filename ends with the date & time the file was generated, eg BPSEvent_10033_Tam_20140116124216
Can a code look for the oldest file to import based on the end of the filenaming format - yyyymmddhhmmss
Code to then delete the last xml file imported would be good too.
View 14 Replies
View Related
Mar 27, 2009
I recorded the following macro but it only imports files with a specific name. Can someone change the code to allow it open the specific file loaction where I may choose which .txt file I want to import.
View 3 Replies
View Related
Sep 27, 2009
I've a large text file which I need to import selected information only.
Below is the sample text file which showing profile for 3 item.
View 14 Replies
View Related
Jun 14, 2013
I have a CSV file which I want to import in excel. There are many text entries after the comma that starts with = and +.
When I imported this csv to excel then excel uses its mathematical logic that and gives a result #Name?
I tried reformatting these cells to treat as Text field only but that did not work.
I would like to maintain these text fields that starts with = and + .
View 3 Replies
View Related
Jul 11, 2014
I have several files from different departments that I have to extract sections of data from and compile into one central file for reporting.
I am very new to VBA but would like to set up a button so that I can import data from closed files in different departmental directories. I have recorded a macro and got it to work if the file is open but I can't seem to get it to work if the file is closed.
View 2 Replies
View Related
Dec 20, 2006
I would like to have a macro that will allow me to browse to the desired file and import the data into columns. I have the macro working to the point of allowing me to browse, select the file, and pasting the contents into the active sheet.
The things that I need help with are:
1. Getting the data to paste into a specific cell instead of A1. Currently the code is
CELLS.SELECT
ACTIVESHEET.PASTE
I would like the data to start in A7.
2. Getting the file parsed into columns. The format of the .DAT file is static and only has 4 columns. Currently when it imports, the entire record (row) all of the data is in the same column. I would like it separated into individual columns if possible.
View 9 Replies
View Related
Jan 9, 2007
At work I have a folder full of .bas files containing useful UDF's.
At the moment I am the only person in my team that makes use of these files as importing a .bas file is beyond the rest of the team (i.e. then know it contains code so they get scared).
What I'd like to do is create a workbook where they can select one of the files (each file contains a single UDF), maybe see what it does (I put an explanation in the Comments section of the properties for each file) and then have it automatically imported into the workbook of their choice so they can make use of these functions.
View 9 Replies
View Related
