Hi,
I was using following Macro to Extract the data from different Excel workbooks and copy in a single Workbook.
sub Mergeworkbook()
Z = Application.GetOpenFilename(MultiSelect:=True)
'Open loop for action to be taken on all selected workbooks.
For x = 1 To UBound(Z)
Set WB = Workbooks.Open(Z(x))
WB.Sheets.Copy Before:=ThisWorkbook.Sheets(1)
WB.Close False
Next x
End Sub
This works fine with excel sheets but it fails in notepad.I want to extract the raw data(when I say Raw data means only Raw data that is copy data from note pad and paste it in excel no formatting stuff like text to columns to be involved ) from note pad and copy paste in excel.I am not sure where and how the changes in above code should be made in order to make this work it would be great if anyone could give me a appropriate solution on this.I have been Trying to do this from 3 days but Desperately failed.
I was using following Macro to Extract the data from different Excel workbooks and copy in a single Workbook.
sub Mergeworkbook()
Z = Application.GetOpenFilename(MultiSelect:=True)
'Open loop for action to be taken on all selected workbooks.
For x = 1 To UBound(Z)
Set WB = Workbooks.Open(Z(x))
WB.Sheets.Copy Before:=ThisWorkbook.Sheets(1)
WB.Close False
Next x
End Sub
This works fine with excel sheets but it fails in notepad.I want to extract the raw data(when I say Raw data means only Raw data that is copy data from note pad and paste it in excel no formatting stuff like text to columns to be involved ) from note pad and copy paste in excel.I am not sure where and how the changes in above code should be made in order to make this work it would be great if anyone could give me a appropriate solution on this.I have been Trying to do this from 3 days but Desperately failed.