Dear Group
i can use below vba code get txt from All wbk to
1 sheet , Excel wbk name into A Coulumn how its possible
VBA Code:-
Sub GetTextFromAllWbs()
Dim fpath As String
fpath = "C:\Users\VEERU\Desktop\dumps" 'use filedialog to select
a folder
Dim fs As Object, fol As Object, fls As Object
Set fs = CreateObject("scripting.filesystemobject")
Set fol = fs.getfolder(fpath)
Set fls = fol.Files
Dim sh As Worksheet
Set sh = Workbooks("ConsolidateFromAllWorkbooks.xlsm").Sheets(1)
Dim rc As Long 'rowcount on sheet1 in the target book
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each f In fls
If fs.getextensionname(f.Name) = "xlsx" Then
Workbooks.Open (f.Path)
For Each s In ActiveWorkbook.Sheets
rc = sh.UsedRange.Row - 1 + sh.UsedRange.Rows.Count
s.UsedRange.Copy sh.Range("a" & rc + 1)
Next
Workbooks(f.Name).Close False
Set f = Nothing
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Workbooks("ConsolidateFromAllWorkbooks.xlsm").Save
MsgBox "Done"
End Sub
--
*Thanks&Regards*
* *
* **Veerendra.Vanam*
*TOC TEAM*
* * *Bhagyanagar Electrical & Contractors**
** **H.No-5-9-286/65,Plot No-65
Rajiv Gandhi Nagar,Near Andhra Jyothi Press,IE-Kukatpally,
Hyderabad-500072,-Andhra Pradesh
** **91-9177-444-840**,*
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
