saving expss tables in excel taking long time

[str_guru]

I have very large number of expss tables generated by my codes and and i am trying to save those tables in my excel output taking very long time with formatting.

i am using the below function to save tables one by one with formatting but this formatting taking very long time.

so what should i update in my code to save the desired tables in a very fast way or i did something wrong here.

library(expss)
library(dplyr)
library(purrr)
library(openxlsx)
df <- mtcars[1:7,]
df_list <- list()
df_list[[length(df_list)+1]] <- subset(df, vs==1) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, am==1) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, gear==3) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, gear==3) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, gear==4) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, carb==4) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, vs==1) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, am==1) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, gear==3) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, gear==3) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, gear==4) %>% as.etable()
df_list[[length(df_list)+1]] <- subset(df, carb==4) %>% as.etable()

write_tables <- function (db) 

  wb <- createWorkbook()
  addWorksheet(wb, "sheet1")
  addWorksheet(wb, "sheet2")
  for (i in seq_along(db)) {
    expss::xl_write(db[[i]], wb, "sheet1",)
}