QTPExcel/Excelqtp at main · kalpanasha-dev/QTPExcel · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
Set x1=createobject("excel.application")
msgbox typename(x1)
Set wb=x1.Workbooks.open("C:\Users\ksundaram\Desktop\QTP\test2.xlsx")
msgbox typename(wb)
Set sh=wb.worksheets(1)
msgbox typename(sh)
x1.visible=true
sh.cells(1,1).value="Annai"
var=sh.cells(1,1).value
msgbox var
wb.Save
wb.close
x1.Quit
##############################################################################
Dim objWordDoc
' Initaiate the Word Document object
Set objWordDoc = CreateObject("Word.Application")

' New word document
objWordDoc.Documents.Add

' Type some charecters in the newly created document
objWordDoc.Selection.TypeText "My first Line" & vbnewline & "My Second Line"

' Save the document
objWordDoc.ActiveDocument.SaveAs "C:\Users\ksundaram\Desktop\VB\MyWordDoc.doc"

' Close word
objWordDoc.Quit

'Release the object
Set objWordDoc=Nothing
#####################################################################################
Set x1=createobject("excel.application")
msgbox typename(x1)                                    'Application
Set wb=x1.Workbooks.Open("C:\Users\ksundaram\Desktop\VB\test1.xlsx")
msgbox typename(wb)                                    'Workbook
Set sh=wb.Worksheets(1)
msgbox typename(sh)                                    'worksheet
x1.visible=true
sh.cells(1,1).value="Karnataka"
var=sh.cells(1,1).value
msgbox var                                            'Karnataka
wb.Close
x1.Quit
msgbox typename(x1)                                    'Application
msgbox typename(wb)                                    'Object
Set x1=nothing
msgbox typename(x1)                                    'Nothing
Set wb=nothing
msgbox typename(wb)                                    'Nothing
Set rh=nothing
#####################################################################################
Set x1=createobject("excel.application")
Set wb=x1.Workbooks.Open("C:\Users\ksundaram\Desktop\VB\test1.xlsx")
Set sh=wb.Worksheets(1)
x1.visible=true
sh.cells(1,1).value="Karnataka"
sh.cells(1,2).value="Bangalore"
sh.cells(2,1).value="Tamilnadu"
sh.cells(2,2).value="Coimbatore"
wb.Save
wb.Close
x1.Quit
Set x1=nothing
Set wb=nothing
Set rh=nothing

#####################################################################################

Set x1=createobject("excel.application")
Set wb=x1.Workbooks.Open("C:\Users\ksundaram\Desktop\VB\test1.xlsx")
Set sh1=wb.Worksheets(1)
x1.visible=true
sh1.cells(1,1).value="Karnataka"
sh1.cells(1,2).value="Bangalore"
sh1.cells(2,1).value="Tamilnadu"
sh1.cells(2,2).value="Coimbatore"
Set sh2=wb.Worksheets(2)
x1.visible=true
sh2.cells(1,1).value="Madurai"
sh2.cells(1,2).value="chennai"
sh2.cells(2,1).value="coimbatore"
sh2.cells(2,2).value="Tirunelveli"
wb.Save
wb.Close
x1.Quit
Set x1=nothing
Set wb=nothing
Set rh=nothing


#####################################################################################
Set x1=createobject("excel.application")
Set wb=x1.Workbooks.Open("C:\Users\ksundaram\Desktop\VB\test1.xlsx")
Set sh1=wb.Worksheets(1)
Set sh2=wb.Worksheets(2)
x1.visible=true
rc=sh1.usedrange.rows.count
cc=sh1.usedrange.rows.count
msgbox rc
msgbox cc
For i=1 to rc
    For j=1 to cc
    sh1.cells(i,j)="Annai"
    sh2.cells(i,j).value="Aurobindo"
    If sh2.cells(i,j)="Annai" Then
        sh2.cells(i,j).font.color=vbred
        sh2.cells(i,j).font.size=40
        sh2.cells(i,j).font.name="calibri"
        sh2.cells(i,j).interior.color=vbgreen
        else
        sh2.cells(i,j).font.color=vbblue
        sh2.cells(i,j).font.size=36
        sh2.cells(i,j).font.name="Arial"
        sh2.cells(i,j).interior.color=vbyellow
    End If

    Next
Next


Set x1=createobject("excel.application")
Set wb=x1.Workbooks.Open("C:\Users\ksundaram\Desktop\VB\test1.xlsx")
Set sh1=wb.Worksheets(1)
Set sh2=wb.Worksheets(2)
x1.visible=true
rc=sh1.usedrange.rows.count
cc=sh1.usedrange.rows.count
msgbox rc
msgbox cc
For i=1 to rc
    For j=1 to cc
    sh1.cells(i,j).value="Annai"
    var=sh1.cells(i,j).value
    sh2.cells(i,j).value=var
        If sh2.cells(i,j)="Annai" Then
        sh2.cells(i,j).font.color=vbred
        sh2.cells(i,j).font.size=40
        sh2.cells(i,j).font.name="calibri"
        sh2.cells(i,j).interior.color=vbgreen
        else
        sh2.cells(i,j).font.color=vbblue
        sh2.cells(i,j).font.size=36
        sh2.cells(i,j).font.name="Arial"
        sh2.cells(i,j).interior.color=vbyellow
    End If

    Next
Next