如何把指定文件夹下的所有*.xls A:A列设置为日期型

tycm10

请大家帮看看  如何把指定文件夹下的所有*.xls A:A列设置为日期型

请人帮写了一段代码，在我的机子上运行报错
Sub test()
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim file As file
    Dim path As String
    Dim wb As Workbook
    path = Range("A6").Value
    For Each file In fso.GetFolder(path).Files
        If UCase(fso.GetExtensionName(file.Name)) Like "XLS" Then
          Set wb = Workbooks.Open(file.path)
            wb.Worksheets(1).Range("A:A").NumberFormat = "[$-x-sysdate]dddd, mmmm dd, yyyy"
            wb.Close True
        End If
    Next

End Sub

小小鸟前滚翻

*.xls没有A列这东西

tycm10

小小鸟前滚翻 发表于 2019-9-19 21:26
*.xls没有A列这东西

我是说的是A：A列