Appendix Thread. 3 TEST COPY

[DocAElstein]

Sub OpenVBASample2_csv_5June() '
' Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Sample2.csv"
 Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "Sample2.csv" ' CHANGE TO SUIT
End Sub

_____ Workbook: sample2.csv ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X
1	NSE	101010	6	<	12783	A					GTT
2	NSE	22	6	<	12783	A					GTT
3	NSE	17388	6	<	12783	A					GTT
4		100
5		25
6
7
8
9
10
11
12
13
14
15
16														Only for understanding purpose
17
18														Before runing the macro
19
20														NSE	101010	6	<	12783	A					GTT
21														NSE	22	6	<	12783	A					GTT
22														NSE	17388	6	<	12783	A					GTT
23
24
25
26
27														After runing the macro
28
29
30
31														NSE	101010	6	<	12783	A					GTT
32														NSE	22	6	<	12783	A					GTT
33														NSE	17388	6	<	12783	A					GTT
34															100
35															25

Worksheet: sample2


Note : Sometimes Excel manually or Excel VBA will open .csv file and put values across column cells. but also sometimes Excel manually or Excel VBA will open .csv file and put all values and commas in first cell