library(RDCOMClient)

xls <- COMCreate("Excel.Application")

xls[["Visible"]] <- TRUE	
wb <- xls[["Workbooks"]]$Add()

data(quakes)

ws <- xls[["ActiveSheet"]]
at <- ws$Range("A1:E1000")

at <- ws$Range("A1:A20")
cat("Setting range values\n")
at[["Value"]] <- rnorm(20)

#at[["Value"]] <- quakes