If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
opening and editing excel
I have recorded the following macro from Excel, and wish to run it from a
button on a form. could someone please show me how to convert the code so i can use it in Access. Thanks ChDir "U:\Technology\opsdelivery\Area Team Finance\PO Reports" Workbooks.Open Filename:= _ "U:\Technology\opsdelivery\Area Team Finance\PO Reports\Latest PO Report - UK West CSR 1 to 5999.xls" Rows("1:4").Select Range("A4").Activate Selection.Delete Shift:=xlUp Range("B8").Select ChDir "I:\Netcon North\GUK West\Nom & Build trackers\Finance" ActiveWorkbook.SaveAs Filename:= _ "I:\Netcon North\GUK West\Nom & Build trackers\Finance\Copy of Latest PO Report - UK West CSR 1 to 5999.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close ChDir "U:\Technology\opsdelivery\Area Team Finance\PO Reports" Workbooks.Open Filename:= _ "U:\Technology\opsdelivery\Area Team Finance\PO Reports\Latest PO Report - UK West CSR 6000 to 12999.xls" Rows("1:4").Select Range("A4").Activate Selection.Delete Shift:=xlUp Range("B8").Select ChDir "I:\Netcon North\GUK West\Nom & Build trackers\Finance" ActiveWorkbook.SaveAs Filename:= _ "I:\Netcon North\GUK West\Nom & Build trackers\Finance\Copy of Latest PO Report - UK West CSR 6000 to 12999.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close ChDir "U:\Technology\opsdelivery\Area Team Finance\PO Reports" Workbooks.Open Filename:= _ "U:\Technology\opsdelivery\Area Team Finance\PO Reports\Latest PO Report - UK West CSR 13000 to 20999.xls" Rows("1:4").Select Range("A4").Activate Selection.Delete Shift:=xlUp Range("B8").Select ChDir "I:\Netcon North\GUK West\Nom & Build trackers\Finance" ActiveWorkbook.SaveAs Filename:= _ "I:\Netcon North\GUK West\Nom & Build trackers\Finance\Copy of Latest PO Report - UK West CSR 13000 to 20999.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close ChDir "U:\Technology\opsdelivery\Area Team Finance\PO Reports" Workbooks.Open Filename:= _ "U:\Technology\opsdelivery\Area Team Finance\PO Reports\Latest PO Report - UK West CSR 21000 and above.xls" Rows("1:4").Select Range("A4").Activate Selection.Delete Shift:=xlUp Range("B8").Select ChDir "I:\Netcon North\GUK West\Nom & Build trackers\Finance" ActiveWorkbook.SaveAs Filename:= _ "I:\Netcon North\GUK West\Nom & Build trackers\Finance\Copy of Latest PO Report - UK West CSR 21000 and above.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close |
Thread Tools | |
Display Modes | |
|
|