Sub Set_Global(Set_String,Set_x,Set_y)
Set setExcelObj = CreateObject("Excel.Application")
setExcelObj.Visible = False
Set setWorkBook = setExcelObj.Workbooks.Open(pathfinder.Locate("Default.xls"))
Set setSheet = setWorkBook.Sheets("Global")
setSheet.Cells(Set_x+1,Set_y) = Set_String
setWorkBook.Save
setWorkBook.close
DataTable.GlobalSheet.GetParameter(Set_y).ValueByRow(Set_x)= Set_String
End Sub