R help - Mar 2010 - rdcomclient issue - member not found when using borders

I wrote a procedure to create a spreadsheet using rdcomclient. It uses a
function to do the writing and runs "correctly" in isolation. It gives
errors, but it continues to completion. The error I receive is "Error:
Member not found". If I place it inside a for loop the loop fails after
the first iteration, once it reaches the error.

 

Has anyone had experience with this error? Here is the code that is
causing the problem.

 

 

library(RDCOMClient)

source("http://www.omegahat.org/RDCOMClient/examples/excelUtils3.R")

xls <- COMCreate("Excel.Application")

xls[["Visible"]] <- TRUE

wb = xls[["Workbooks"]]$Add(1)

 

sh = wb[["Worksheets"]]$Add()

sh[["Name"]] <- as.character(tabName)

 

 

 

AnalyzeExport <- function(sh,Data,Cell,Title1,Title2) {

 
letters<-c("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","
P","Q","R","S","T","U","V","W","X","Y","Z")

    print(Cell)

    exportDataFrame(Data, at = sh$Range(Cell))

 

    B3R<-sh$Range(Cell)

    B3R[["Formula"]] <- Title1

    #B3R[["HorizontalAlignment"]]<-"xlRight"

 

 
B3R<-sh$Range(paste(letters[grep(substring(Cell,1,1),letters)+1],substri
ng(Cell,2),sep=""))

    B3R[["Formula"]] <- Title2

    #B3R[["HorizontalAlignment"]]<-"xlLeft"

 

    B3R<-sh$Range(paste(substring(Cell,1,1),
as.integer(substring(Cell,2))+1+nrow(Data),sep=""))

    B3R[["Formula"]] <- "Total"

 

    B3R<-sh$Range(paste(letters[grep(substring(Cell,1,1),letters)+1],
as.integer(substring(Cell,2))+1+nrow(Data),sep=""))

    Cell1<-paste(letters[grep(substring(Cell,1,1),letters)],
as.integer(substring(Cell,2))+1,sep="")

    Cell2<-paste(letters[grep(substring(Cell,1,1),letters)+1],
as.integer(substring(Cell,2))+nrow(Data),sep="")

    MyCell=paste(Cell1,":",Cell2,sep="")

    B3R[["Formula"]] <-
paste("=sum(",MyCell,")",sep="")

 

    print(MyCell)

 

    B3RB <- sh$Range(MyCell)

    B3RB[["Borders"]][["LineStyle"]]<-as.integer(1)

    #B3RB[["ColumnWidth"]]<-20

}

  

 

AnalyzeExport(sh,ExcelCopy,"B2","NDC","Unique
Pats")

 

The line that is causing the problem is :

B3RB[["Borders"]][["LineStyle"]]<-as.integer(1)

 

On another note, I'd also love to learn how to change columnWidth and
HorizontalAligment properly (the code commented out).

 

Jason Baucom

Ateb, Inc. 

2600 Sumner Blvd. Suite 158

Raleigh, NC 27616

www.ateb.com <http://www.ateb.com/> 


	[[alternative HTML version deleted]]