小编Raf*_*Mil的帖子

我试图使用.xlsx库,但函数write.xlsx返回错误,无法找到.

当我在日志中安装库(xlsx)时,我可以阅读:

Error : .onLoad nie powiod?o si? w funkcji 'loadNamespace()' dla pakietu 'rJava', szczegó?y:
  wywo?anie: fun(libname, pkgname)
  b??d:  No CurrentVersion entry in Software/JavaSoft registry! Try re-installing Java and make sure R and Java have matching architectures.
In addition: Warning messages:
1: pakiet ‘xlsx’ zosta? zbudowany w wersji R 3.3.2 
2: pakiet ‘rJava’ zosta? zbudowany w wersji R 3.3.3 
Error: pakiet ‘rJava’ nie móg? zosta? za?adowany

Java是最新的.

我放在下面的代码不能正常工作.尝试运行宏时,我收到错误400.您能否对此代码进行一些审核？我不确定问题是否与我所指的函数变量不一致.

Sub AutoFinal()    
    Dim final_wb As Workbook, shop_stat_wb As Workbook 
    Dim book2 As String
    book2 = "Workbook_I_need.xlsx"
    Dim book2path As String
    book2path = ThisWorkbook.Path & "\" & book2
    Set final_wb = ThisWorkbook
    If IsOpen(book2) = False Then Workbooks.Open (book2path)
    Set shop_stat_wb = Workbooks(book2)    
End Sub

Function IsOpen(strWkbNm As String) As Boolean    
    On Error Resume Next

    Dim wBook As Workbook
    Set wBook = Workbooks(strWkbNm)

    If wBook Is Nothing Then    'Not open
        IsOpen = False
        Set wBook = Nothing
        On Error GoTo …