Question

“此单元格中的数字格式为文本或前面有撇号”

我有大约300行，有两列数字，每一行都说明这个错误。它不允许我将单元格格式化为数字（不粘）。它允许我在出现错误时更改它，但仅在错误菜单中。

有没有人遇到过这个？

我正在使用模板文件来使用访问代码进行导出：

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, _
                              TableName, ExcelPath, True

Answer 1

好吧，我最终将addint添加到我的代码中来处理它。它需要大约6秒钟，但它是一个月一次的自动化，这节省了用户的时间，所以我认为这是可以接受的。

Dim wb As Excel.Workbook, WorkSheet As Excel.WorkSheet
Set wb = xlApp.Workbooks.Open(NewFileName)
Set WorkSheet = wb.Worksheets(1)
'begin workbook formatting
For Each cell In WorkSheet.Range("G2:H500")
    If cell.Value <> "" Then
        cell.Value = cell.Value * 1
    End If
Next cell

对空字符串的检查会将空字符串保留为空字符串，如果没有它，它们将变为0

Access导出到Excel后修复Excel数字格式

1 个答案: