Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

VBscript C# Help

By: a guest on Jun 25th, 2012  |  syntax: C#  |  size: 4.51 KB  |  hits: 82  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Sub start()
  2.  
  3. startDate = WScript.Arguments.Item(0)
  4. finishDate = WScript.Arguments.Item(1)
  5. If Not IsObject(application) Then
  6.    Set SapGuiAuto  = GetObject("SAPGUI")
  7.    Set application = SapGuiAuto.GetScriptingEngine
  8.    Set connection = application.OpenConnection("Procurement", True)
  9. End If
  10. If Not IsObject(connection) Then
  11.    Set connection = application.Children(0)
  12. End If
  13. If Not IsObject(session) Then
  14.    Set session    = connection.Children(0)
  15. End If
  16. If IsObject(WScript) Then
  17.    WScript.ConnectObject session,     "on"
  18.    WScript.ConnectObject application, "on"
  19. End If
  20. session.findById("wnd[0]").resizeWorkingPane 143,28,false
  21. session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "tmcmeans"
  22. session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "Lucky.234"
  23. session.findById("wnd[0]/usr/pwdRSYST-BCODE").setFocus
  24. session.findById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 9
  25. session.findById("wnd[0]/tbar[0]/okcd").text = "sq00"
  26. session.findById("wnd[0]").sendVKey 0
  27. session.findById("wnd[0]/tbar[0]/okcd").text = "sq01"
  28. session.findById("wnd[0]").sendVKey 0
  29. session.findById("wnd[0]/tbar[0]/btn[12]").press
  30. session.findById("wnd[0]/tbar[0]/okcd").text = "sq01"
  31. session.findById("wnd[0]").sendVKey 0
  32. session.findById("wnd[0]/mbar/menu[5]/menu[0]").select
  33. session.findById("wnd[1]/usr/radRAD1").select
  34. session.findById("wnd[1]/tbar[0]/btn[2]").press
  35. session.findById("wnd[0]/tbar[1]/btn[19]").press
  36. session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").currentCellRow = 15
  37. session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").selectedRows = "15"
  38. session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").doubleClickCurrentCell
  39. session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").selectedRows = "0"
  40. session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").doubleClickCurrentCell
  41. session.findById("wnd[0]/tbar[1]/btn[8]").press
  42. session.findById("wnd[0]/usr/ctxtSP$00003-LOW").setFocus
  43. session.findById("wnd[0]/usr/ctxtSP$00003-LOW").caretPosition = 3
  44. session.findById("wnd[0]").sendVKey 2
  45. session.findById("wnd[1]").close
  46. session.findById("wnd[0]/usr/ctxtSP$00003-LOW").text = startDate
  47. session.findById("wnd[0]/usr/ctxtSP$00003-HIGH").text = finishDate
  48. session.findById("wnd[0]/usr/ctxtSP$00003-HIGH").setFocus
  49. session.findById("wnd[0]/usr/ctxtSP$00003-HIGH").caretPosition = 10
  50. session.findById("wnd[0]/tbar[1]/btn[8]").press
  51. session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").pressToolbarButton "&MB_SUM"
  52. session.findById("wnd[1]").close
  53. session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").pressToolbarButton
  54.  
  55. "&MB_SUBTOT"
  56. session.findById("wnd[1]/usr/subSUB_DYN0500:SAPLSKBH:0610/btnAPP_FL_SING").press
  57. session.findById("wnd[1]/tbar[0]/btn[0]").press
  58. session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").pressToolbarContextButton
  59.  
  60. "&MB_EXPORT"
  61. session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").selectContextMenuItem "&XXL"
  62. session.findById("wnd[1]/usr/radRB_OTHERS").setFocus
  63. session.findById("wnd[1]/usr/radRB_OTHERS").select
  64. session.findById("wnd[1]/usr/cmbG_LISTBOX").key = "04"
  65. session.findById("wnd[1]/tbar[0]/btn[0]").press
  66.  
  67. End Sub
  68.  
  69. Sub Macro1()
  70.  
  71.     Sheets.Add
  72.     ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  73.         "Sheet1!R1C1:R8382C6", Version:=xlPivotTableVersion12).CreatePivotTable _
  74.         TableDestination:="Sheet4!R3C1", TableName:="PivotTable1", DefaultVersion _
  75.         :=xlPivotTableVersion12
  76.     Sheets("Sheet4").Select
  77.     Cells(3, 1).Select
  78.     With ActiveSheet.PivotTables("PivotTable1").PivotFields("Material")
  79.         .Orientation = xlRowField
  80.         .Position = 1
  81.     End With
  82.     With ActiveSheet.PivotTables("PivotTable1").PivotFields("Reqmnt Qty")
  83.         .Orientation = xlColumnField
  84.         .Position = 1
  85.     End With
  86.     ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
  87.         "PivotTable1").PivotFields("Reqmnt Qty"), "Sum of Reqmnt Qty", xlSum
  88.     ActiveWindow.LargeScroll ToRight:=2
  89.     ActiveSheet.PivotTables("PivotTable1").PivotFields("Reqmnt Qty").Orientation = _
  90.         xlHidden
  91.     ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Reqmnt Qty"). _
  92.         Orientation = xlHidden
  93.     With ActiveSheet.PivotTables("PivotTable1").PivotFields("ReqmtsDate")
  94.         .Orientation = xlColumnField
  95.         .Position = 1
  96.     End With
  97.     ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
  98.         "PivotTable1").PivotFields("Reqmnt Qty"), "Sum of Reqmnt Qty", xlSum
  99.     ActiveWindow.SmallScroll Down:=-3
  100. End Sub
create a new version of this paste RAW Paste Data