导入工作表时，date更改为数字格式。 Excel VBA

任何人都知道如何解决这个问题？ 在导入数据之前，打开的date似乎很好，这是格式：

Release Date Created 24/04/2014 10/03/2014 20:32 

但是，在我的工作簿中导入新的工作表后，date会变成下面显示的5位数字。

 Release Date Created 41753 41708.85556 

如何在导入到我的表单中时解决问题？ 以下是我的代码导入工作表到我的项目。

 Sub ImptSht() Dim altwb As Workbook Dim FilePathalt As String Dim activeWB As Workbook Set activeWB = Application.ActiveWorkbook FilePathalt = "C:\DataSheet\workbook.xls" Application.ScreenUpdating = False Application.DisplayAlerts = False Set altwb = Application.Workbooks.Open(FilePathalt, Local:=True) altwb.Worksheets(1).Copy After:=activeWB.Sheets(activeWB.Sheets.Count) altwb.Close False activeWB.Sheets("shet").Cells.AutoFilter activeWB.Sheets("shet").Cells.ClearFormats Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 

任何帮助是极大的赞赏！

Answer 1

显示的数字代表date值。 要将其转换为date格式，请select要转换为date的列，并使用NumberFormat属性，如下所示：

 'Change the column letter to the applicable one Columns("A:A").NumberFormat = "m/d/yyyy" 

Answer 2

ClearFormats正在这样做。 松开这个说法。