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]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
