Hi All,
I have some excel VBA code that I am converting to run in Access (as I have done successfully before) as below. This one however runs until it gets to the last line and stops....It selects and copies but will not past where I want it. Can any one tell me what I need to change on that line so that it will paste and Transpose???
Set xlApp = CreateObject("Excel.Application")
Set xlwrkb = xlApp.Workbooks.Open("C:\temp\Reprt.xls")
xlApp.Visible = True
xlApp.DisplayAlerts = False
xlApp.Range("A1:E13").Select
xlApp.Selection.Copy
xlApp.Range("A15").Select
xlApp.Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,_
SkipBlanks:=False, Transpose:=True
Thanks for any assistance.
I have some excel VBA code that I am converting to run in Access (as I have done successfully before) as below. This one however runs until it gets to the last line and stops....It selects and copies but will not past where I want it. Can any one tell me what I need to change on that line so that it will paste and Transpose???
Set xlApp = CreateObject("Excel.Application")
Set xlwrkb = xlApp.Workbooks.Open("C:\temp\Reprt.xls")
xlApp.Visible = True
xlApp.DisplayAlerts = False
xlApp.Range("A1:E13").Select
xlApp.Selection.Copy
xlApp.Range("A15").Select
xlApp.Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,_
SkipBlanks:=False, Transpose:=True
Thanks for any assistance.
