Read data from text file to excel using VBA

[mohd_arastu]

Dear Frend

I have a text file(Name.txt) having following data and i want to copy colored data in to excel sheet in different columns


B E A M N O. 1 D E S I G N R E S U L T S
M25 Fe500 (Main) Fe500 (Sec.)
LENGTH: 3500.0 mm SIZE: 230.0 mm X 450.0 mm COVER: 25.0 mm

SUMMARY OF REINF. AREA (Sq.mm)
----------------------------------------------------------------------------
SECTION 0.0 mm 875.0 mm 1750.0 mm 2625.0 mm 3500.0 mm
----------------------------------------------------------------------------
TOP 412.73 163.83 0.00 163.83 428.33
REINF. (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm)
BOTTOM 319.96 178.42 163.83 163.83 193.33
REINF. (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm)
----------------------------------------------------------------------------

SUMMARY OF PROVIDED REINF. AREA
----------------------------------------------------------------------------
SECTION 0.0 mm 875.0 mm 1750.0 mm 2625.0 mm 3500.0 mm
----------------------------------------------------------------------------
TOP 4-12í 3-12í 2-12í 3-12í 4-12í
REINF. 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s)
BOTTOM 3-12í 3-12í 3-12í 3-12í 3-12í
REINF. 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s)
SHEAR 2 legged 8í 2 legged 8í 2 legged 8í 2 legged 8í 2 legged 8í
REINF. @ 140 mm c/c @ 140 mm c/c @ 140 mm c/c @ 140 mm c/c @ 140 mm c/c
----------------------------------------------------------------------------

SHEAR DESIGN RESULTS AT DISTANCE d (EFFECTIVE DEPTH) FROM FACE OF THE SUPPORT
SHEAR DESIGN RESULTS AT 565.0 mm AWAY FROM START SUPPORT
VY = 47.14 MX = 0.20 LD= 9
Provide 2 Legged 8í @ 140 mm c/c
SHEAR DESIGN RESULTS AT 565.0 mm AWAY FROM END SUPPORT
VY = -50.28 MX = 0.19 LD= 12
Provide 2 Legged 8í @ 140 mm c/c
============================================================================

============================================================================
B E A M N O. 2 D E S I G N R E S U L T S
M25 Fe500 (Main) Fe500 (Sec.)
LENGTH: 6000.0 mm SIZE: 230.0 mm X 450.0 mm COVER: 25.0 mm
 STAAD SPACE -- PAGE NO. 82

SUMMARY OF REINF. AREA (Sq.mm)
----------------------------------------------------------------------------
SECTION 0.0 mm 1500.0 mm 3000.0 mm 4500.0 mm 6000.0 mm
----------------------------------------------------------------------------
TOP 496.46 164.22 164.22 164.22 486.82
REINF. (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm)
BOTTOM 188.47 163.83 163.83 163.83 0.00
REINF. (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm)
----------------------------------------------------------------------------

SUMMARY OF PROVIDED REINF. AREA
----------------------------------------------------------------------------
SECTION 0.0 mm 1500.0 mm 3000.0 mm 4500.0 mm 6000.0 mm
----------------------------------------------------------------------------
TOP 7-10í 3-10í 3-10í 3-10í 7-10í
REINF. 2 layer(s) 1 layer(s) 1 layer(s) 1 layer(s) 2 layer(s)
BOTTOM 3-12í 3-12í 3-12í 3-12í 2-12í
REINF. 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s)
SHEAR 2 legged 8í 2 legged 8í 2 legged 8í 2 legged 8í 2 legged 8í
REINF. @ 140 mm c/c @ 140 mm c/c @ 140 mm c/c @ 140 mm c/c @ 140 mm c/c
----------------------------------------------------------------------------

SHEAR DESIGN RESULTS AT DISTANCE d (EFFECTIVE DEPTH) FROM FACE OF THE SUPPORT
SHEAR DESIGN RESULTS AT 565.0 mm AWAY FROM START SUPPORT
VY = 49.96 MX = -0.11 LD= 14
Provide 2 Legged 8í @ 140 mm c/c
SHEAR DESIGN RESULTS AT 565.0 mm AWAY FROM END SUPPORT
VY = -48.36 MX = -0.12 LD= 7
Provide 2 Legged 8í @ 140 mm c/c
============================================================================

============================================================================
B E A M N O. 3 D E S I G N R E S U L T S
M25 Fe500 (Main) Fe500 (Sec.)
LENGTH: 3500.0 mm SIZE: 230.0 mm X 450.0 mm COVER: 25.0 mm

SUMMARY OF REINF. AREA (Sq.mm)
----------------------------------------------------------------------------
SECTION 0.0 mm 875.0 mm 1750.0 mm 2625.0 mm 3500.0 mm
----------------------------------------------------------------------------
TOP 383.59 178.23 164.22 164.22 326.76
REINF. (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm)
BOTTOM 347.39 172.11 164.22 166.31 334.52
REINF. (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm) (Sq. mm)
----------------------------------------------------------------------------
 STAAD SPACE -- PAGE NO. 83

SUMMARY OF PROVIDED REINF. AREA
----------------------------------------------------------------------------
SECTION 0.0 mm 875.0 mm 1750.0 mm 2625.0 mm 3500.0 mm
----------------------------------------------------------------------------
TOP 5-10í 3-10í 3-10í 3-10í 5-10í
REINF. 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s)
BOTTOM 5-10í 3-10í 3-10í 3-10í 5-10í
REINF. 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s) 1 layer(s)
SHEAR 2 legged 8í 2 legged 8í 2 legged 8í 2 legged 8í 2 legged 8í
REINF. @ 140 mm c/c @ 140 mm c/c @ 140 mm c/c @ 140 mm c/c @ 140 mm c/c
----------------------------------------------------------------------------

SHEAR DESIGN RESULTS AT DISTANCE d (EFFECTIVE DEPTH) FROM FACE OF THE SUPPORT
SHEAR DESIGN RESULTS AT 565.0 mm AWAY FROM START SUPPORT
VY = 37.54 MX = 0.01 LD= 9
Provide 2 Legged 8í @ 140 mm c/c
SHEAR DESIGN RESULTS AT 565.0 mm AWAY FROM END SUPPORT
VY = -34.37 MX = 0.01 LD= 12
Provide 2 Legged 8í @ 140 mm c/c
============================================================================

row 1: data of beam 1
row 2: data of beam 2
row 3: data of beam 3 ans soon...


thanks in advance

 

[mohd_arastu]

Send your email ID

 

[podbot]

So sorry I found the solution to do that , Thanks so much for your help. I hope next time may need your help again. hope you have nice week.

 

[udayudmale]

Dear Sir
Can you please send me this solution.
I am facing same problem. I am a beginner in VBA
My mail ID udayudmale@gmail.com

Thank You