uot;).End(xlToLeft).Column + 1
> With ThisWorkbook.Sheets(1)
> .Cells(1, i).Value = Left(wkb.Name, InStr(wkb.Name, ".") - 1)
> .Range(.Cells(2, i), .Cells(5, i)).Value =
> wkb.Sheets(1).Range("J6:j9").Value
> End With
> wkb.Close , False
> End Sub
>
>
&g
).Column + 1
> With ThisWorkbook.Sheets(1)
> .Cells(1, i).Value = Left(wkb.Name, InStr(wkb.Name, ".") - 1)
> .Range(.Cells(2, i), .Cells(5, i)).Value =
> wkb.Sheets(1).Range("J6:j9").Value
> End With
> wkb.Close , False
> End Sub
>
>
>
&
t wkb = Workbooks.Open(filename)
> i = ThisWorkbook.Sheets(1).Range("xfd1").End(xlToLeft).Column + 1
> With ThisWorkbook.Sheets(1)
> .Cells(1, i).Value = Left(wkb.Name, InStr(wkb.Name, ".") - 1)
> .Range(.Cells(2, i), .Cells(5, i)).Value =
> wkb.Sheets(1).R
Student_Master Table1
Grammar 0% 0% 0%
Reading / Writing 0% 0% 0%
Vocabulary 0% 0% 0%
Speaking / Listening 0% 0% 0%
As you can see it added some data but just zeros and also that
"Student_Master Table1"
On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:
>
>
office 2010
On Sunday, June 1, 2014 2:53:01 PM UTC+8, ashish wrote:
>
> are you using 2003
>
>
>
> On Sun, Jun 1, 2014 at 12:18 PM, Michael Lovin > wrote:
>
>> Wellit appears that it is doing something. (i see as if files open
>> but just for a s
Also I did chck that the files were *.xls and not *.xlsx... even tried
that in the VB to see if it worked...but also failed
On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:
>
> I am sure this has been asked many times but I cannot find a thread that
> answers my
Left(wkb.Name, InStr(wkb.Name,
".") - 1)
wkb.Sheets(1).Range("J6:j9").Copy
Destination:=ThisWorkbook.Sheets(1).Cells(2, i)
wkb.Close , False
End Sub
On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:
>
> I am sure this has been asked many times but I cannot find a t
, ashish wrote:
>
> do you want data to be pasted in same column ? Can you share a sample
> input files and output yo like to see?
>
>
> On Sun, Jun 1, 2014 at 9:25 AM, Michael Lovin > wrote:
>
>> I am sure this has been asked many times but I cannot find a thread
I am sure this has been asked many times but I cannot find a thread that
answers my questions. I have code (pasted below) but it does not work
and it does not error(no highlight or pop up error message)
I have several workbooks with sequential file names..student1, student2,
etc. .In
