无法将数据写入.xslb文件

Question

以下是我用于在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

应用程序的屏幕截图：