无法向.xlsb文件写入数据：代码写入Excel单元格后内容空白

我来帮你排查下这个写入.xlsb单元格后内容空白的问题，结合你的代码和场景，大概率是这几个原因导致的，咱们一步步来解决：

• 未保存临时文件的特性限制：你操作的是UnsavedFiles文件夹里的临时未保存文件，这类文件处于Excel的临时缓存状态，用GetObject打开后写入的内容如果不主动保存，很容易因为临时文件的机制导致内容不生效，甚至被Excel自动清理。

• 代码缺少保存与对象释放步骤：你的代码写完单元格值后，没有执行保存操作，也没有释放Excel对象，这在处理.xlsb这种二进制格式文件时，很容易出现内容不持久的情况。修改后的代码可以加上这些关键步骤：

sWebADIFilePath="C:\Users\uk1346\AppData\Local\Microsoft\Office\UnsavedFiles\Book1((Unsaved-306660471733269083)).xlsb"
Set objExcelbook2 = GetObject(sWebADIFilePath)
Set objExcelsheet2 = objExcelbook2.Worksheets(sWebADISheetName)

' 写入单元格内容
objExcelsheet2.Cells(8,5) = sLedgerJ
objExcelsheet2.Cells(9,5) = sCategoryJ
objExcelsheet2.Cells(10,5) = sCurrencyJ
objExcelsheet2.Cells(11,5) = sAccountingDateJ
objExcelsheet2.Cells(12,5) = sJournalName
objExcelsheet2.Cells(13,5) = sJournalDescription

' 核心新增：保存工作簿，确保内容写入文件
objExcelbook2.Save
' 释放对象，避免Excel进程残留占用资源
Set objExcelsheet2 = Nothing
Set objExcelbook2 = Nothing

• 确认变量是否实际有值：有可能sLedgerJ、sCategoryJ这些变量本身是空的，你可以在写入前加个调试语句，打开VBA编辑器的立即窗口（Ctrl+G）查看变量内容：

Debug.Print "Ledger: " & sLedgerJ & ", Category: " & sCategoryJ

如果输出都是空内容，那就要去排查变量赋值的逻辑是否正确，比如有没有从正确的数据源获取到值。

• 检查工作表名称是否正确：确认sWebADISheetName对应的工作表确实存在于目标工作簿中，拼写错误、空格或者特殊字符都可能导致引用到错误的工作表，看起来就像内容没写入。

• 排查工作表保护状态：如果目标工作表设置了保护，没有解锁的话写入操作会静默失败。你可以先解除保护再写入，写完后重新保护：

' 解除工作表保护（如果有密码请替换为实际密码）
objExcelsheet2.Unprotect Password:="your_password_here"
' 写入代码...
' 重新保护工作表
objExcelsheet2.Protect Password:="your_password_here"

你提供的原始写入代码：

sWebADIFilePath="C:\Users\uk1346\AppData\Local\Microsoft\Office\UnsavedFiles\Book1((Unsaved-306660471733269083)).xlsb"
Set objExcelbook2 = GetObject(sWebADIFilePath)
Set objExcelsheet2 = objExcelbook2.Worksheets(sWebADISheetName)
objExcelsheet2.Cells(8,5) = sLedgerJ
objExcelsheet2.Cells(9,5) = sCategoryJ
objExcelsheet2.Cells(10,5) = sCurrencyJ
objExcelsheet2.Cells(11,5) = sAccountingDateJ
objExcelsheet2.Cells(12,5) = sJournalName
objExcelsheet2.Cells(13,5) = sJournalDescription

应用程序截图：

内容的提问来源于stack exchange，提问作者Ujwal Kandimalla