使用 XLConnect 的 appendWorksheet 函数向现有 Excel 表添加新行

Question

我想要实现的是将R 中的对象中的一行添加到Excel 文件中已经存在的表中（读取表，如“Excel 表”中的表）。

通过以下代码，我完美地将行添加到现有表中：

library(XLConnect)
setStyleAction(wb,XLC$"STYLE_ACTION.NONE")
wb <- loadWorkbook("test.xlsx")
appendWorksheet(wb, expense, sheet="expenses", header = FALSE)
saveWorkbook(wb)

这里的问题是，我在 Excel 中有大量其他公式，例如使用 Expenses[@TDC] 的引用。如果我添加该行，这些值将不会自动成为 Expenses 表的一部分。有可能吗？

Answer 1

我建议在您的电子表格中编写一个简单的公式复制宏。当然，您需要将其称为 test.xlsm 而不是 test.xlsx。如果您的电子表格如下所示：

那么您的宏可能如下所示：

Option Explicit

Sub MyMacro()
    Dim BottomRowOfData As Integer, BottomRowOfFormula As Integer, rowDiff As Integer

    With ThisWorkbook.Worksheets("expenses")
        BottomRowOfData = .Range("B1").End(xlDown).Row
        BottomRowOfFormula = .Range("C1").End(xlDown).Row
        rowDiff = BottomRowOfData - BottomRowOfFormula

        If (rowDiff > 0) Then
            .Range("C" & BottomRowOfFormula).Copy
            Call .Range(.Range("C" & BottomRowOfFormula + 1), .Range("C" & BottomRowOfData)).PasteSpecial
        End If
    End With

    ' Save your work
    ThisWorkbook.Save
End Sub

根据我对this question on so 的回答，您可以从 R 调用 VBA 宏。为了完整起见，以下是该问题的代码：

library(RDCOMClient)

# Open a specific workbook in Excel:
xlApp <- COMCreate("Excel.Application")
xlWbk <- xlApp$Workbooks()$Open("C:\\TEMP\\test.xlsm")

# this line of code is only necessary if you want to see your spreadsheet getting updated:
xlApp[['Visible']] <- TRUE 

# Run the macro called "MyMacro":
xlApp$Run("MyMacro")

# Close the workbook and quit the app:
xlWbk$Close(FALSE)
xlApp$Quit()

# Release resources:
rm(xlWbk, xlApp)
gc()