'Sheet1: The name or index of the sheet in the file that you want to import. Index values begin with 1.
'Action1: The name or index of the sheet in the Data Table that you want to replace with the SheetSource. Index values begin with 1.
DataTable.ImportSheet "C:/JX/WorkSpace/test.xls","Sheet1","Action1"
Dim xl
Set xl = createobject("excel.application")
xl.Visible = true
xl.Workbooks.Open("C:/JX/WorkSpace/test.xls")
Set xl = nothing