options(error=recover) library(RDCOMClient) data(quakes) source("excelUtils.R") xls <- COMCreate("Excel.Application") xls[["Visible"]] <- TRUE wb <- xls[["Workbooks"]]$Add() exportDataFrame(quakes, at = wb$Worksheets(1)$Range("A1")) cat("Done the first\n") exportDataFrame(quakes, at = wb$Worksheets(2)$Range("A1"))