Question

此功能将数据导出并格式化为excel。但是，电子表格输出有一些绿色的数据错误，如上所述 - 所以我在函数内放置一个代码来清除它，这不起作用。谢谢你的帮助。

Function frmatEx()
    Dim FileName As String

    FileName = "C:\FolderName"
    'Set xl = New Excel.Application
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open(FileName)
    With wb.Sheets(1)

        .Columns("E:E").NumberFormat = "m/d/yyyy"
       .Columns("A:DA").HorizontalAlignment = xlCenter
       .Rows("BE:BE").ErrorCheckingOptions.NumberAsText = False
       .Rows("1:1").Columns.AutoFit

    End With
    wb.Save
    wb.Close True
    Set wb = Nothing

    xl.Quit
    Set xl = Nothing
End Function

Answer 1

我会猜测这一行是问题所在：

.Rows("BE:BE").ErrorCheckingOptions.NumberAsText = False

ErrorCheckingOptions.NumberAsText Property不是范围的属性，而是全局Excel选项。

所以你必须这样做

xl.ErrorCheckingOptions.NumberAsText = False

但当然这将适用于此后的所有Excel文件。

也许在一个新的问题中显示你是如何/导出的，所以根本问题可以解决。

Excel错误 - 此单元格中的数字格式为文本或前面有撇号

1 个答案: