SHARE
TWEET

Untitled

a guest Aug 13th, 2017 46 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'AutoSetup Module
  2. Public Sub AutoSetup(Project As String, Program As String, TestName As
  3. String, TestType As String, TaskNumber As String, Token As String)
  4. Dim TokenArr() As String
  5.  
  6. Application.ScreenUpdating = False
  7. Application.EnableEvents = False
  8. Set IntSht = ActiveWorkbook.Sheets("Integrations")
  9. Set DctSht = ActiveWorkbook.Sheets("Duct")
  10. IntSht.Range("B4").value = Program
  11. IntSht.Range("B5").value = TestName
  12. IntSht.Range("E4").value = Project
  13. IntSht.Range("E5").value = TaskNumber
  14. Call WorkbookSetup
  15. MenuForm.TestSetBox.value = TestType
  16. TokenArr = Split(Base64DecodeString(Token), ",")
  17. EPFLogin.TextBox1.value = TokenArr(0)
  18. EPFLogin.TextBox2.value = TokenArr(1)
  19. MenuForm.LoadSheets (True)
  20. DctSht.Activate
  21. ThisWorkbook.Save
  22. ThisWorkbook.Close
RAW Paste Data
Top