Knowledge Share
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Knowledge Share

Knowledge is NOT Power IMPLEMENTATION of knowledge is Power!!!
HomePortalGalleryRegisterLog in


 Excel report code

Go down 

Posts : 142
Points : 46895720
Reputation : 0
Join date : 2007-12-29
Location : Chennai

Excel report code Empty
PostSubject: Excel report code   Excel report code Icon_minitimeTue Jul 14, 2015 10:21 am

Public Class dynamicemailtemplate
        Dim oexcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        Dim oSheet_status As Object
        Dim s As Object
        Dim starttime As String
        Dim sep As String = ":"
        Dim methodName As String
        Dim methodName1 As String
        Dim i As Integer = 3
        Dim j As Integer = 3
        Dim z As Integer = 3
        Dim hour1 As String
        Dim mini1 As String
        Dim second1 As String
        Dim hour2 As String
        Dim mini2 As String
        Dim second2 As String
        Dim str As String = ""
        Dim myTime As DateTime
        Dim myTime2 As String
        Dim method1 As String
        Dim jj As Integer
        Dim tsp As String
        Dim com As Integer = 0
        Dim pstp As Integer = 0
        Dim fstp As Integer = 0
        Dim rmstp As Integer
        Dim ll As Integer = 2
        Dim sttime As String
        Dim entime As String
        Dim tot_time As TimeSpan = TimeSpan.Parse("00:00:00")
        Dim y As Integer
        Dim tot_time2 As TimeSpan
        Dim tpass As Integer = 0
        Dim tfail As Integer = 0
        Dim f
        Dim a As String

        Public Function totaldatacount(ByRef r As Integer, ByRef datafile As String)
            Dim oExcel2 As Object
            Dim oBook2 As Object

            ''''''''''''''Gets the total no of iterations from excel test data sheet'''''''''''''''''''''''''''''''''''''''''
            oExcel2 = CreateObject("Excel.Application")
            oBook2 = oExcel2.Workbooks.Open(datafile)
            r = oExcel2.Application.ActiveSheet.UsedRange.Rows.Count
            Dim proc = Process.GetProcessesByName("QTAgent32.exe")

            Dim pListOfProcesses() As Process
            Dim pExcelProcess As System.Diagnostics.Process
            pListOfProcesses = Process.GetProcesses
            For Each pExcelProcess In pListOfProcesses
                If pExcelProcess.ProcessName.ToUpper = "EXCEL" Then
                End If
            Return r
        End Function

        Public Function CountNumberOfTestMethods(ByRef countOfTestMethods As Integer, ByRef prjpath As String) As Integer

            For Each ty As Type In System.Reflection.Assembly.LoadFrom(prjpath).GetTypes
                For Each method As System.Reflection.MethodInfo In ty.GetMethods
                    For Each ca As System.Reflection.CustomAttributeData In method.GetCustomAttributesData
                        If ca.ToString() = "[Microsoft.VisualStudio.TestTools.UnitTesting.TestMethodAttribute()]" Then
                            countOfTestMethods += 1
                            Return countOfTestMethods
                            Exit Function
                        End If
            Return countOfTestMethods
        End Function

        Public Sub CreateExcel(ByRef filename As String, ByRef g As String, ByRef r As Integer)

            i = 3
            j = 3
            z = 3
            If g = 1 Then
                If File.Exists(filename) Then

                End If

                If Not File.Exists(filename) Then

                    oexcel = CreateObject("Excel.Application")
                    oBook = oexcel.Workbooks.add
                    For kk As Integer = 2 To (r - 1)
                        With oexcel
                        End With
                End If
            End If

            oexcel = CreateObject("Excel.Application")
            oBook =
            s = Convert.ToInt32(g)

            If g <> " " Then
                oSheet = oBook.Worksheets(s)
       = "testdata" & s

            End If

            If g = 1 Then

                With oexcel
                    .Worksheets.Add(After:=.Worksheets(r - 1))
                End With

                oSheet_status = oBook.Worksheets(r)
       = "Test Execution Report"
            End If

        End Sub
Back to top Go down
Excel report code
Back to top 
Page 1 of 1
 Similar topics
» 1073741819 error when playing TheHunter Primal

Permissions in this forum:You cannot reply to topics in this forum
Knowledge Share :: Testing :: Automation :: VSTS :: CODED UI-
Jump to: