Try this. Again untested
Sub kTest()
Dim n As Long, fn As String, a, b, wb As Workbook, aWB As Workbook, i
As Long
Const MyFolder As String = "F:\DISAUG\" 'adjust to suit
fn = Dir(MyFolder & "*.xls")
Set aWB = ActiveWorkbook
With Application
.ScreenUpdating = 0
.DisplayAlerts = 0
.E
Hi Abhishek
I wonder why you need a macro or any software for this at all!
I have not tested but try this
1) Have two columns for "Address" and "Data" (say col A and B)
2) Write down the path, filename and addresses in column A (anyway you
have to do this normally even while using macros).
3)
Hi Kris,
First of all let me thank you for this excellent piece of work - the macro
worked great [?]like a lightening bolt :).
It definitely solved my requirement (except the name of file in the first
row), yet to bother you a little more which I hope you would not mind, just
want to ask you:
a)
Hi AJ,
Try this, not tested though.
Sub kTest()
Dim n As Long, fn As String, a, wb As Workbook, aWB As Workbook
Const MyFolder As String = "F:\DISAUG\" 'adjust to suit
fn = Dir(MyFolder & "*.xls")
Set aWB = ActiveWorkbook
With Application
.ScreenUpdating = 0
.DisplayAlerts = 0
.Ena
