使用条件格式将导出文件从 access 格式化为 excel

Question

在执行格式检查时需要帮助。 好的，我现在拥有的是访问表单上的一个按钮，单击该按钮将结果导出到一个新的空白 Excel 文件中。 我现在想要完成的是添加一些代码来检查字段 6-10 是否在整个 WHOLE 数据集中添加在一起 ​​<> 字段 5 然后执行条件格式并突出显示与黄色不同的那些。

一旦到位，然后我希望出现一个消息框，并且在 Excel 文件中突出显示的许多项目出现在列表框 msg 中。 例如，有 (9) 个不匹配的单元格需要注意才能提交上传！”

Dim dbs As DAO.Database
Dim Excel_App As Excel.Application 'Creates Blank Excel File
Dim strTable As String ' Table in access
    Dim queryDelete As String 'SQL to delete records in local table
    Dim strAssigned As DAO.Recordset


    strTable = "Make_allUp" 'Access Table I am trying to copy
    Set Excel_App = CreateObject("Excel.Application")
        Set dbs = CurrentDb

Dim rs As DAO.Recordset
Set rs = dbs.OpenRecordset(strTable)

    Excel_App.Visible = True

Dim wkb As Excel.Workbook
Set wkb = Excel_App.Workbooks.Add

Dim rg As Excel.Range
Dim i As Long
' Add the headings
For i = 0 To rs.Fields.Count - 1
    wkb.Sheets(1).Cells(1, i + 1).Value = rs.Fields(i).Name
Next i

Set rg = wkb.Sheets(1).Cells(2, 1)
rg.CopyFromRecordset rs

' make pretty
rg.CurrentRegion.EntireColumn.AutoFit

If wkb.Sheets(1).Cells(5, 2) <> wkb.Sheets(1).Cells(6, 2) + wkb.Sheets(1).Cells(7, 2) + wkb.Sheets    (1).Cells(8, 2) + wkb.Sheets(1).Cells(9, 2) + wkb.Sheets(1).Cells(10, 2) Then
Format.Cells
****Okay above is what I am having troubles with. Just needing to somehow say if the vaule in field 6 + field 7 + field 8 + field 9 + field 10 <> field 5 Then
highlight those records yellow



Set rs = Nothing
Set wkb = Nothing
Set dbs = Nothing


End Sub

Answer 1

据我所知，Access 不会也不能格式化导出信息。 可以编写 Excel VBA 代码来格式化目标电子表格中的单元格。 此外，可以在 Access VBA 中编写代码来编写 Excel VBA 代码来格式化单元格并将代码导出到电子表格。 此外，还可以打开导出信息的电子表格，并使用 Access VBA 代码从 Ms. Access 中设置单元格格式。 但是，据我所知，在导出过程本身之前或过程中，您无法获得 Access 来格式化信息。