合並單元格中的CopyFromRecordset

Question

我正在嘗試將幾個查詢從Access數據庫移到Excel。 現在，這些查詢之一必須與合並的單元格一起在一張紙上進行，但這對我來說是錯誤的。

該查詢的代碼是：

Public Sub CreateExcelInfo()
'Set reference to Microsoft Excel Object library
'Set reference to Microsoft ActiveX DataObject 2.x

Dim oExcel As New Excel.Application
Dim WB As New Excel.Workbook
Dim WS As Excel.Worksheet
Dim rng As Excel.Range
Dim objRs5 As New ADODB.Recordset
MsgBox ("Este proceso puede tardar unos minutos." & Chr(13) & Chr(13) & Chr(13) & "Por favor abstengase de realizar tareas en el equipo hasta ver el mensaje de finalizado."), vbOKOnly
sFileNameTemplate = Application.CurrentProject.Path & "\templates\Informes.xlsm"
sSQL5 = "SELECT [COMENTARIOS ÚLTIMO CIERRE].TipoComentarioInventario, [COMENTARIOS ÚLTIMO CIERRE].Comentario FROM [COMENTARIOS ÚLTIMO CIERRE] " 'Export comments last inventory

With oExcel
.Visible = True
        Set WB = .Workbooks.Add(sFileNameTemplate)
            With WB
                          objRs5.Open sSQL5, CurrentProject.Connection, adOpenDynamic, adLockReadOnly
                          Set rng = .Range("B24")
                          rng.CopyFromRecordset objRs5
                          objRs5.Close
                 End With
            End With

Set objRs5 = Nothing
MsgBox ("!El informe se ha realizado correctamente!"), vbOKOnly

End Sub

這是帶有查詢和工作表的圖像，現在代碼可以正常工作了：

Answer 1

一個簡單的解決方法是先將數據導入excel，然后進行格式化（和計算）。

在.copyfromrecordset步驟之前取消合並單元格：

Rng.MergeCells = False

然后重新合並細胞后

Rng.MergeCells = True

我還將關閉屏幕更新，以使用戶看起來並不陌生。