473,388 Members | 989 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,388 software developers and data experts.

Error 429 ActiveX component can't create object

Hi,

I am recieving error ActiveX component can't create object in the following
line in the asp page.

set ExcelApp = CreateObject("Excel.Application")

Previously this code was working fine.

Thanks in advance.
Nov 23 '06 #1
4 11312
No code changes. It was working fine 2 days back. From yesterday, I am
receiving the error. PFB the entire asp page code.

<%@ LANGUAGE=VBScript %>
<% OPTION EXPLICIT %>
<% ON ERROR RESUME NEXT %>
<html>
<body>
<%
Dim IntRecordCount
Dim rsBillingRpt
Dim intLoop_i
Dim intLoop_j
Dim intIndexRow
Dim intHours
Dim strDay

'Dim objConnIntratime
Dim month_id
dim strSp
Dim strAsscID

Dim strRange
Dim objWorkSheet
Dim intTotalNoOfSheets
Dim intCurrentSheet
Dim strCurrentSheetName
Dim intNoOfResources
Dim intTaskRow
Dim intTaskCol
dim intTaskSNo
Dim ExcelApp
Dim ExcelBook

Dim PROJECT_NAME_OLD
Dim ASSOCIATE_NAME_OLD
Dim LOCATION_OLD
Dim TASK_NAME
Dim PROJECT_NAME
Dim ASSOCIATE_NAME
Dim LOCATION
Dim PROJECT_ID
Dim CLIENT_MANAGER
Dim DIVISION
Dim SUB_PROJECT_ID
Dim SUB_PROJECT_NAME
Dim SUB_TASK_ID
Dim SUB_TASK_NAME
Dim ASSOCIATE_ID
Dim NO_OF_DAYS
Dim total_HOURS

Dim strServerPath
Dim strExcelFileName
Dim strExcelFilePath
Dim intResourceHours
Dim intProjectHours
Dim blnNewResource
Dim blnNewProject
Dim strTemp

Dim intSaturdayStCol
Dim intSundayCol
Dim intResourceStRow
Dim intResourceEndRow
Dim blnSaturDayFound
Dim blnSundayFound
Dim intHolidayColor
Dim strResourceLink
Dim intNoOfRecords
Dim iArrHoliday
Dim iArrLeave
Dim strHoliday
Dim strLeave
Dim iTemp
Dim iHeaderRow
%>
<!-- #include file="../include/common.asp"-->
<!-- #include file="../include/timeSheet.inc" -->
<%
strResourceLink = ""
intTotalNoOfSheets = 3
intCurrentSheet = 1
intNoOfResources = 0
blnSaturDayFound = false
blnSundayFound = false
intSaturdayStCol = 4
intSundayCol = 0
intHolidayColor = lightGray
intLoop_i = 2
intIndexRow = 1
PROJECT_NAME = ""
ASSOCIATE_NAME = ""
intResourceHours = 0
intProjectHours = 0
blnNewResource = false
blnNewProject = false
intNoOfRecords = 0
strHoliday = ""
strLeave = ""

month_id = Request("MONTH_YEAR")

if ( month_id = "" or len(month_id) = 0 ) THEN
Response.Write ("Month and Year is mandatory to create billing report.")
response.end
end if

if ( NOT isdate("01-" & month_id ) ) THEN
Response.Write ("<BR><Font color=red size=5>Invalid Month and Year.</Font>")
response.end
end if

'For Testing
'month_id = "Jul-2006"
strSp = SP_MNTH_BILLING_REPORT & " '" & month_id &"'"

'OPEN EXCEL Application
Set ExcelApp = CreateObject("Excel.Application")

if ( Err.number <0) THEN
Response.Write ("Err.number[" & Err.number & "] Err.Description[" &
Err.Description & "]")
response.end
end if

ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add

'Set the first sheet as the index sheet and insert sheet headings
ExcelBook.Worksheets("sheet1").Name = "Index"
strCurrentSheetName = "Index"
strRange = "B" & intIndexRow & ":E" & intIndexRow

ExcelBook.Worksheets("Index").Cells(intIndexRow,3) .value = "Timesheet for
the month of " & month_id
SetSelection strCurrentSheetName, intIndexRow, "B", "E"
SetAllBorder ExcelApp.Selection, xlNone, true, true, xlCenter, xlBottom

intIndexRow = intIndexRow + 1
intIndexRow = intIndexRow + 1

ExcelBook.Worksheets("Index").Cells(intIndexRow,3) .value = "Billing Details"
SetSelection strCurrentSheetName, intIndexRow, "B", "E"
SetAllBorder ExcelApp.Selection, lightOrange, true, true, xlCenter, xlBottom
intIndexRow = intIndexRow + 1

ExcelBook.Worksheets("Index").Cells(intIndexRow,2) .value = "S.NO"
ExcelBook.Worksheets("Index").Cells(intIndexRow,3) .value = "Resource Name"
ExcelBook.Worksheets("Index").Cells(intIndexRow,4) .value = "Location"
ExcelBook.Worksheets("Index").Cells(intIndexRow,5) .value = "Billable Hours"
ExcelBook.Worksheets("Index").Columns("C:C").Colum nWidth = 30
ExcelBook.Worksheets("Index").Columns(BillableHour sCol & ":" &
BillableHoursCol).ColumnWidth = 13.2

SetSelection strCurrentSheetName, intIndexRow, "B", "E"
SetAllBorder ExcelApp.Selection, lightOrange, true, false, xlLeft, xlBottom

intIndexRow = intIndexRow + 1

'OPEN SQL CONNECTION
'Set objConnIntratime = server.createobject("adodb.connection")
'objConnIntratime.ConnectionString = "DRIVER={SQL
Server};SERVER=HQSQ5610D;DATABASE=PUBS;UID=Intrati me;PWD=Intratime;"
'objConnIntratime.ConnectionString = "DRIVER={SQL
Server};SERVER=HQWLC831428\MYSQL_INSTANCE;DATABASE =PUBS;UID=TAPPMO;PWD=TAPPMO;"
''Response.Write("<BR>" & objConnIntratime.ConnectionString)
'objConnIntratime.Open
'objConnIntratime.CommandTimeout = 360

EstablishConnection

set rsBillingRpt = objConnIntratime.execute(strSp)

'LOOP through the result_set
DO WHILE NOT rsBillingRpt.EOF
intNoOfRecords = intNoOfRecords + 1
PROJECT_NAME_OLD = PROJECT_NAME
ASSOCIATE_NAME_OLD = ASSOCIATE_NAME
LOCATION_OLD = LOCATION

'OLD VALUE SAVED FOR FOLLOWING FIELDS
PROJECT_NAME =rsBillingRpt("PROJECT_NAME")
ASSOCIATE_NAME =rsBillingRpt("ASSOCIATE_LAST_NAME") & ", " &
rsBillingRpt("ASSOCIATE_FIRST_NAME")
PROJECT_ID =cint(rsBillingRpt("PROJECT_ID"))
CLIENT_MANAGER =rsBillingRpt("CLIENT_MANAGER")
LOCATION =rsBillingRpt("LOCATION")

'check if new project
if PROJECT_NAME_OLD <PROJECT_NAME then
blnNewProject = true
blnNewResource = true
intIndexRow = intIndexRow + 1
ExcelBook.Worksheets("Index").Cells(intIndexRow,3) .value = PROJECT_NAME &
"(" & CLIENT_MANAGER & ")"
SetSelection "Index", intIndexRow, "B", "E"
SetAllBorder ExcelApp.Selection, lightBlue, true, false, xlLeft, xlBottom

intIndexRow = intIndexRow + 1
if( PROJECT_NAME_OLD <"" ) THEN
Response.Write("<BRNEW PROJECT intResourceHours[" & intResourceHours &
"] ASSOCIATE_NAME[" & ASSOCIATE_NAME & "] ASSOCIATE_NAME_OLD[" &
ASSOCIATE_NAME_OLD & "]")
end if
intProjectHours = 0
intResourceHours = 0
else
blnNewProject = false
blnNewResource = false
end if

'
'OLD VALUE NOT SAVED FOR FOLLOWING FIELDS
DIVISION =rsBillingRpt("DIVISION")
SUB_PROJECT_ID =rsBillingRpt("SUB_PROJECT_ID")
SUB_PROJECT_NAME =rsBillingRpt("SUB_PROJECT_NAME")
SUB_TASK_ID =rsBillingRpt("SUB_TASK_ID")
SUB_TASK_NAME =rsBillingRpt("SUB_TASK_NAME")
ASSOCIATE_ID =rsBillingRpt("ASSOCIATE_ID")
NO_OF_DAYS = cint(rsBillingRpt("NO_OF_DAYS") )
'total_HOURS = cint(rsBillingRpt("total_HOURS") )
total_HOURS = cdbl(rsBillingRpt("total_HOURS"))

IF ( SUB_TASK_NAME = "Total Hours" ) THEN
ExcelBook.Worksheets("Index").Cells(intIndexRow,2) .value = intNoOfResources
ExcelBook.Worksheets("Index").Cells(intIndexRow,3) .value =
ASSOCIATE_NAME_OLD
ExcelBook.Worksheets("Index").Cells(intIndexRow,4) .value = LOCATION_OLD
ExcelBook.Worksheets("Index").Cells(intIndexRow,5) .value = intResourceHours

SetSelection "Index", intIndexRow, "B", "E"
SetAllBorder ExcelApp.Selection, xlNone, false, false, xlLeft, xlBottom

'SET hyperLink in the INDEX Sheet
strTemp = "C" & intIndexRow
ExcelBook.Worksheets("Index").Select
ExcelBook.Worksheets("Index").Range(strTemp).Selec t
ExcelApp.ActiveSheet.Hyperlinks.Add ExcelApp.Selection, "",
strResourceLink, ASSOCIATE_NAME_OLD
Response.Write ("<BR>strResourceLink[" & strResourceLink & "]
ASSOCIATE_NAME_OLD[" & ASSOCIATE_NAME_OLD & "]")

intIndexRow = intIndexRow + 1
END IF

'check new resource
if ASSOCIATE_NAME_OLD <ASSOCIATE_NAME then
blnNewResource = true
if (ASSOCIATE_NAME_OLD <"" ) then

Response.Write("<BRNEW RESOURCE intResourceHours[" & intResourceHours &
"] ASSOCIATE_NAME[" & ASSOCIATE_NAME & "] ASSOCIATE_NAME_OLD[" &
ASSOCIATE_NAME_OLD & "]")
end IF
intResourceHours = 0
intNoOfResources = intNoOfResources + 1
else
blnNewResource = false
end if

'New project create new worksheet
if ( blnNewProject ) then
intCurrentSheet = intCurrentSheet + 1
iHeaderRow = 1
intTaskRow = 5
intTaskCol = 2
ExcelBook.Worksheets("Sheet2").Select
ExcelBook.Worksheets.add
ExcelBook.Worksheets(intCurrentSheet).Columns(Task NameCol & ":" &
TaskNameCol).ColumnWidth = 30
strCurrentSheetName = mid(PROJECT_NAME,1,30)
ExcelBook.Worksheets(intCurrentSheet).Name = strCurrentSheetName
ExcelBook.Worksheets(intCurrentSheet).Cells(iHeade rRow,3).value =
"Timesheet for the month of " & month_id
SetSelection strCurrentSheetName, iHeaderRow, "B", "AH"
SetAllBorder ExcelApp.Selection, xlNone, true, true, xlCenter, xlBottom
iHeaderRow = iHeaderRow + 1
ExcelBook.Worksheets(intCurrentSheet).Cells(iHeade rRow,4).value = "Legend"
SetSelection strCurrentSheetName, iHeaderRow, "D", "G"
SetAllBorder ExcelApp.Selection, xlNone, true, true, xlCenter, xlBottom
iHeaderRow = iHeaderRow + 1
ExcelBook.Worksheets(intCurrentSheet).Cells(iHeade rRow,5).value = "Holiday"
SetSelection strCurrentSheetName, iHeaderRow, "E", "H"
SetAllBorder ExcelApp.Selection, xlNone, true, true, xlCenter, xlBottom
ExcelBook.Worksheets(intCurrentSheet).Cells(iHeade rRow,13).value = "Leave"
SetSelection strCurrentSheetName, iHeaderRow, "M", "P"
SetAllBorder ExcelApp.Selection, xlNone, true, true, xlCenter, xlBottom
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, 3).Value = "Client
Manager: " & CLIENT_MANAGER

'Set the new sheets font Size to default size
ExcelBook.Worksheets(intCurrentSheet).Cells.Select
ExcelApp.Selection.Font.Size = NormalFont

SetSelection strCurrentSheetName, intTaskRow, "B", "AJ"
SetFont BigFont, DarkBlue, true

ExcelApp.WorkSheets(intCurrentSheet).Cells(iHeader Row,
4).Interior.ColorIndex = intHolidayColor
ExcelApp.WorkSheets(intCurrentSheet).Cells(iHeader Row,
12).Interior.ColorIndex = 39

Dim objRange
Set objRange = ExcelApp.Range("C1").EntireColumn
objRange.WrapText = TRUE

intTaskRow = intTaskRow + 1

ExcelBook.Worksheets(intCurrentSheet).Columns("D:D ").ColumnWidth = 30

END if

IF (blnNewResource OR blnNewProject) then
intTaskRow = intTaskRow + 1
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, 3).Value =
"Resource Name: " & ASSOCIATE_NAME
strResourceLink = "'" & strCurrentSheetName & "'!C" & intTaskRow

SetSelection strCurrentSheetName, intTaskRow, "B", "AJ"
SetFont NormalFont, Black, true

intTaskRow = intTaskRow + 1
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, 3).Value =
"Location: " & LOCATION

SetSelection strCurrentSheetName, intTaskRow, "B", "AJ"
SetFont NormalFont, Black, true

intTaskRow = intTaskRow + 1

intResourceStRow = intTaskRow
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, 2).Value = "S.NO"
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, 3).Value = "Task
Name"

for intLoop_i = 1 to NO_OF_DAYS
strDay = rsBillingRpt("day_" & intLoop_i & "_day") & ""
if ( (ucase(strDay) = "SAT") and (not blnSaturDayFound)) then
blnSaturDayFound = true
intSaturdayStCol = intLoop_i + 3
elseif ((ucase(strDay) = "SUN") and (not blnSaturDayFound) and (not
blnSundayFound)) then
intSundayCol = intLoop_i + 3
blnSundayFound = true
end if
strDay = strDay & " " & intLoop_i
'ExcelBook.Worksheets(intCurrentSheet).Cells(intTa skRow, (intLoop_i
+ 3)).value = strDay
if intLoop_i <= 9 then
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, (intLoop_i +
3)).value = cstr(intLoop_i) & space(1)
else
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, (intLoop_i +
3)).value = intLoop_i
end if
next
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, (intLoop_i +
3)).value = "Total Hours"
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, (intLoop_i +
4)).value = "Department"
'Color code the Resource-task header
SetSelection strCurrentSheetName, intTaskRow, "B", "AJ"
SetAllBorder ExcelApp.Selection, lightOrange, true, false, xlLeft, xlBottom

Response.Write("strTemp[" & strTemp & "] <BR>")
intTaskRow = intTaskRow + 1
intTaskSNo = 1
strHoliday = ""
strLeave = ""

end if

if lcase(SUB_TASK_NAME) <"leave" and lcase(SUB_TASK_NAME) <"holiday" then
'Fill the Resource hours
if ( SUB_TASK_NAME <"Total Hours" ) THEN
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, 2).Value = intTaskSNo
if ( SUB_TASK_NAME <"Total Hours" ) THEN
TASK_NAME = SUB_PROJECT_NAME & "-" & SUB_TASK_NAME
else
TASK_NAME = SUB_TASK_NAME
end if

ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, 3).Value = TASK_NAME

for intLoop_i = 1 to NO_OF_DAYS
'intHours = cint(rsBillingRpt("day_" & intLoop_i & "_hours"))
intHours = cdbl(rsBillingRpt("day_" & intLoop_i & "_hours"))
if( intHours <0) THEN
'ExcelBook.Worksheets(intCurrentSheet).Cells(intTa skRow, (intLoop_i +
3)).value = cint(intHours)
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, (intLoop_i
+ 3)).value = cdbl(intHours)
end if
next
'Add Total Hours for the resource
'ExcelBook.Worksheets(intCurrentSheet).Cells(intTa skRow, (intLoop_i +
3)).value = cint(total_HOURS)
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, (intLoop_i +
3)).value = cdbl(total_HOURS)
ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, (intLoop_i +
4)).value = rsBillingRpt("Department")
else
for intLoop_i = 1 to NO_OF_DAYS
iTemp = intLoop_i + 3
intHours = cdbl(rsBillingRpt("day_" & intLoop_i & "_hours"))
if (intHours <0) THEN
if lcase(SUB_TASK_NAME) = "leave" then
strLeave = strLeave & cstr(iTemp) & ","
elseif lcase(SUB_TASK_NAME) = "holiday" then
strHoliday = strHoliday & cstr(iTemp) & ","
end if
end if
next
end if

SetSelection strCurrentSheetName, intTaskRow, "B", "AJ"

if lcase(SUB_TASK_NAME) <"leave" and lcase(SUB_TASK_NAME) <"holiday" then
'if ( SUB_TASK_NAME <"Total Hours" ) THEN intResourceHours =
intResourceHours + cint(total_HOURS)
if ( SUB_TASK_NAME <"Total Hours" ) THEN intResourceHours =
intResourceHours + cdbl(total_HOURS)
'if ( SUB_TASK_NAME <"Total Hours" ) THEN intProjectHours =
intProjectHours + cint(total_HOURS)
if ( SUB_TASK_NAME <"Total Hours" ) THEN intProjectHours =
intProjectHours + cdbl(total_HOURS)
end if

if ( SUB_TASK_NAME <"Total Hours" ) THEN
SetAllBorder ExcelApp.Selection, xlNone, false, false, xlLeft, xlBottom
else 'TOTAL row
SetAllBorder ExcelApp.Selection, lightOrange, TRUE, false, xlLeft, xlBottom
intResourceEndRow = intTaskRow
SetHolidayColor
SetVacationColor

intTaskRow = intTaskRow + 2

ExcelBook.Worksheets(intCurrentSheet).Cells(intTas kRow, 3).value = "Total
Billable Hours =" & intResourceHours & ""
SetSelection strCurrentSheetName, intTaskRow, "B", "AJ"
SetAllBorder ExcelApp.Selection,lightGreen, true, true, xlCenter,
xlBottom
end if

if lcase(SUB_TASK_NAME) <"leave" and lcase(SUB_TASK_NAME) <"holiday" then
intTaskRow = intTaskRow + 1
intTaskSNo = intTaskSNo + 1
Response.Write( "<BRNORMAL intResourceHours[" & intResourceHours & "]
ASSOCIATE_NAME[" & ASSOCIATE_NAME & "] ASSOCIATE_NAME_OLD[" &
ASSOCIATE_NAME_OLD & "]")
end if

rsBillingRpt.MoveNext
Loop
'#################################### FORMATING START
########################################
IntRecordCount = rsBillingRpt.RecordCount

SetSelection "Index", intIndexRow, "B", "E"
SetAllBorder ExcelApp.Selection, xlNone, false, false, xlLeft, xlBottom
intIndexRow = intIndexRow + 1

'Delete unwanted sheets
ExcelBook.Worksheets("Sheet2").delete
ExcelBook.Worksheets("Sheet3").delete

'Set the days column width
FOR intLoop_i = 2 to intCurrentSheet
ExcelBook.Worksheets(intLoop_i).Columns("D:AJ").En tireColumn.AutoFit
Next

ExcelBook.Worksheets("Index").Select
'#################################### FORMATING END
########################################

strServerPath = Server.MapPath(".")
strExcelFileName = "./BillingReport/" & Session.SessionID & "_" &
year(now()) & month(now()) & day(now()) & hour(now()) & minute(now()) &
second(now()) & ".XLS"
strExcelFilePath = strServerPath & strExcelFileName
ExcelBook.Worksheets("Index").Select
ExcelBook.Worksheets("Index").Range("A1:A1").Selec t

ExcelBook.SaveAs strExcelFilePath
'Response.Write("strExcelFilePath[" & strExcelFilePath & "]
strExcelFileName[" & strExcelFileName & "] strServerPath[" & strServerPath &
"]")

on error resume next
'Close EXCEL Application EXCEL.EXE
ExcelApp.Application.Quit
Set ExcelApp = Nothing

'Close Record-set
Set rsBillingRpt = Nothing
objConnIntratime.close()

'Close Connection
set objConnIntratime = nothing

if ( intNoOfRecords = 0 ) then
Response.Write("<BR><Font color=red size=5>No resources entered time for
" & month_id & "</font>")
Response.end
end if

'Redirect the user to EXCEL
if( Err.number = 0 ) THEN
Response.Redirect(strExcelFileName)
Response.end
else
Response.Write("ERROR: Unknown error occured Err.number[" & Err.number &
"] Err.Description[" & Err.Description & "]")
End IF
%>
<a href='.<%= strExcelFileName %>' target="EXCEL_REPORT">Billing_report</a>
</body>
</html>

<%
'################################################# ################################################## ################
'Sub Routine Name: SetSelection
'Paramaters : 1) SheetName 2) Row# 3) startColumn# 4)End Colummn#
'Description : Sets the EXCEL selection for the given cell row and
column ranges
'
'################################################# ################################################## ################
public Sub SetSelection ( ByVal p_SheetName, ByVal p_row, ByVal p_startCol,
ByVal p_endCol)
ExcelBook.Worksheets(p_SheetName).Select
strTemp = p_startCol & p_row & ":" & p_endCol & p_row
ExcelBook.Worksheets(p_SheetName).Range(strTemp).S elect
End Sub

'################################################# ################################################## ################
'Sub Routine Name: SetHolidayColor
'Paramaters : None
'Description : Sets the holiday color for the Saturday and Sunday
'
'################################################# ################################################## ################
Public Sub SetHolidayColor
Dim intI
Dim intJ
Dim intK
intJ = intSaturdayStCol
intK = intSundayCol
Do while (intJ <= (NO_OF_DAYS+3))
For intI = intResourceStRow to intResourceEndRow
ExcelApp.WorkSheets(intCurrentSheet).Cells(intI,
intJ).Interior.ColorIndex = intHolidayColor
if ( (intJ + 1) <= (NO_OF_DAYS+3) ) then
ExcelApp.WorkSheets(intCurrentSheet).Cells(intI, (intJ
+1)).Interior.ColorIndex = intHolidayColor
End IF
next
intJ = intJ + 7
Loop
if intK <= (NO_OF_DAYS+3) and intK <0 then
For intI = intResourceStRow to intResourceEndRow
ExcelApp.WorkSheets(intCurrentSheet).Cells(intI,
intK).Interior.ColorIndex = intHolidayColor
next
end if
End Sub

Public Sub SetVacationColor
Dim intI
Dim intJ

if strHoliday <"" then
strHoliday = Left(strHoliday,len(strHoliday)-1)
iArrHoliday = Split(strHoliday,",")
For intJ = intResourceStRow to intResourceEndRow
For intI = 0 to ubound(iArrHoliday)
ExcelApp.WorkSheets(intCurrentSheet).Cells(intJ,
cint(iArrHoliday(intI))).Interior.ColorIndex = intHolidayColor
next
next
end if

if strLeave <"" then
strLeave = Left(strLeave,len(strLeave)-1)
iArrLeave = Split(strLeave,",")
For intJ = intResourceStRow to intResourceEndRow
For intI = 0 to ubound(iArrLeave)
ExcelApp.WorkSheets(intCurrentSheet).Cells(intJ,
cint(iArrLeave(intI))).Interior.ColorIndex = 39
next
next
end if
End Sub

'################################################# ################################################## ################
'Sub Routine Name: SetFont
'Paramaters : 1) Font Size 2) Font Color Index 3)Font Bold (Y/N)
'Description : Sets the given font properties for the cells that are
already selected
'
'################################################# ################################################## ################
Public Sub SetFont (ByRef p_intFontSize, ByRef p_intFontColor, ByRef
p_blnBold)
ExcelApp.Selection.Font.Bold = p_blnBold
ExcelApp.Selection.Font.Size = p_intFontSize
ExcelApp.Selection.Font.ColorIndex = p_intFontColor
End Sub

'################################################# ################################################## ################
'Sub Routine Name: SetAllBorder
'Paramaters : 1) Selection 2) Interior Color Index 3)Font Bold (Y/N) 4)
Merge Cells(Y/N) 5)Horizantal alignment 6) Vertical Alignment
'Description : Sets the given font properties for the cells that are
already selected
'
'################################################# ################################################## ################
Public Sub SetAllBorder(Byref selection, ByVal p_intColor, ByVal p_blnBold,
ByVal p_blnMerge, ByVal p_intHAlign, ByVal p_intVAlign)

ExcelApp.Selection.Font.Bold = p_blnBold
ExcelApp.Selection.Interior.ColorIndex = p_intColor

ExcelApp.Selection.Borders(xlDiagonalDown).LineSty le = xlNone
ExcelApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

ExcelApp.Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
ExcelApp.Selection.Borders(xlEdgeLeft).Weight = xlThin
ExcelApp.Selection.Borders(xlEdgeLeft).ColorIndex = xlAutomatic

ExcelApp.Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
ExcelApp.Selection.Borders(xlEdgeTop).Weight = xlThin
ExcelApp.Selection.Borders(xlEdgeTop).ColorIndex = xlAutomatic

ExcelApp.Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
ExcelApp.Selection.Borders(xlEdgeBottom).Weight = xlThin
ExcelApp.Selection.Borders(xlEdgeBottom).ColorInde x = xlAutomatic

ExcelApp.Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
ExcelApp.Selection.Borders(xlEdgeRight).Weight = xlThin
ExcelApp.Selection.Borders(xlEdgeRight).ColorIndex = xlAutomatic

ExcelApp.Selection.Borders(xlInsideVertical).LineS tyle = xlContinuous
ExcelApp.Selection.Borders(xlInsideVertical).Weigh t = xlThin
ExcelApp.Selection.Borders(xlInsideVertical).Color Index = xlAutomatic

ExcelApp.Selection.MergeCells = p_blnMerge
ExcelApp.Selection.HorizontalAlignment = p_intHAlign
ExcelApp.Selection.VerticalAlignment = p_intVAlign
End Sub
%>

"Mike Brind" wrote:
>
"Abdhul Saleem" <Ab**********@discussions.microsoft.comwrote in message
news:5A**********************************@microsof t.com...
Hi,

I am recieving error ActiveX component can't create object in the
following
line in the asp page.

set ExcelApp = CreateObject("Excel.Application")

Previously this code was working fine.

What changed?

--
Mike Brind
Nov 23 '06 #2

"Abdhul Saleem" <Ab**********@discussions.microsoft.comwrote in message
news:5A**********************************@microsof t.com...
Hi,

I am recieving error ActiveX component can't create object in the
following
line in the asp page.

set ExcelApp = CreateObject("Excel.Application")

Previously this code was working fine.
What changed?

--
Mike Brind
Nov 23 '06 #3

"Abdhul Saleem" <Ab**********@discussions.microsoft.comwrote in message
news:8E**********************************@microsof t.com...
"Mike Brind" wrote:
>>
"Abdhul Saleem" <Ab**********@discussions.microsoft.comwrote in message
news:5A**********************************@microso ft.com...
Hi,

I am recieving error ActiveX component can't create object in the
following
line in the asp page.

set ExcelApp = CreateObject("Excel.Application")

Previously this code was working fine.

What changed?
No code changes. It was working fine 2 days back. From yesterday, I am
receiving the error.
[snipped]

What about changes on the Server? Updates? Removal of Excel? Changed
server altogether?

--
Mike Brind
Nov 23 '06 #4
Yes, Office was unistalled in the server. Now it has been reinstalled and
working fine

Thanks.

"Mike Brind" wrote:
>
"Abdhul Saleem" <Ab**********@discussions.microsoft.comwrote in message
news:8E**********************************@microsof t.com...
"Mike Brind" wrote:
>
"Abdhul Saleem" <Ab**********@discussions.microsoft.comwrote in message
news:5A**********************************@microsof t.com...
Hi,

I am recieving error ActiveX component can't create object in the
following
line in the asp page.

set ExcelApp = CreateObject("Excel.Application")

Previously this code was working fine.


What changed?
No code changes. It was working fine 2 days back. From yesterday, I am
receiving the error.

[snipped]

What about changes on the Server? Updates? Removal of Excel? Changed
server altogether?

--
Mike Brind
Nov 27 '06 #5

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

2
by: brazilnut | last post by:
Hi. Let me explain the setup. I am using Visual Studio .NET to develop a sort of add-in (COM class) for Excel called SQLAddin. It basically queries a SQL server and pulls in data. Now within my...
1
by: John Gabriel | last post by:
I have set up a website and am testing ASPs. I have created a very simple ActiveX component with two interfaces: AboutBox() - displays About details calcpi() - returns 3.14159 Here is my...
7
by: Munsifali Rashid | last post by:
Hi, I've built a webservice in C# that can add public folders to Exchange. There's also a component built in VB6 which references the Outlook 10 (XP) DLL, so I can change the default form being...
3
by: Jeffery Franzen | last post by:
Anyone know where the documentation is regarding Activex controls in asp web forms? I'm using VS.NET 2002 enterprise and am trying to use Activex controls in vb.net web form app. I do the add...
1
by: John Gabriel | last post by:
I have set up a website and am testing ASPs. I have created a very simple ActiveX component with two interfaces: AboutBox() - displays About details calcpi() - returns 3.14159 Here is my...
0
by: HKSHK | last post by:
This list compares the error codes used in VB.NET 2003 with those used in VB6. Error Codes: ============ 3: This Error number is obsolete and no longer used. (Formerly: Return without GoSub)...
1
by: drk.kumar | last post by:
I have an implementation issue with WMI scripts to check the user machine processor. The implementation is working fine in the local machine (Windows XP operating system). It is throwing script...
1
by: Lucy Ludmiller | last post by:
Sorry about the cross posts, not sure which group is the most relevant, since I am using C++, MFC/COM and VB6 I have written an MFC ActiveX control in C++. I want to use the control in VB6. The...
4
by: Steve Kershaw | last post by:
Hi, I have a simple web page that starts Excel and fills it with some dummy data. Using IE I can run this web page from the C: drive (IE: "C: \startexcel.htm") and it runs fine. However, when I...
0
by: syedsarfaraz | last post by:
Hi There! Could anybody please help regarding the below issue. We had a COM+ component deployed on Windows 2000/NT machine it was working fine, I mean when it was being invoked from other...
0
by: taylorcarr | last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
0
by: Charles Arthur | last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
0
by: ryjfgjl | last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
0
by: emmanuelkatto | last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel
0
BarryA
by: BarryA | last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
1
by: nemocccc | last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
1
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
0
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
0
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.