Question

我正在使用一些excel文件。我们的想法是只采取那些经过修改的。但在这里我遇到了问题。当我执行所有包时，Excel连接器正在使用系统小时修改“修改日期”。这些文件没有属性“只读”，我对此无能为力，因为我只是从特定文件夹中读取文件。

面对这个问题的最佳方法是什么？。

Answer 1

通过这种方式，您可以在不打开文件的情况下读取文件的修改日期，全部来自excel。

Sub test()
    Dim FD As FileDialog
    Dim i

    Set FD = Application.FileDialog(msoFileDialogFilePicker)

    With FD
        If .Show = -1 Then
            For Each i In .SelectedItems
                MsgBox FileLastModified(i)
            Next i
        End If
    End With
End Sub

Function FileLastModified(ByVal strFullFileName As String)
    Dim fs As Object
    Dim f As Object
    Dim s As String

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(strFullFileName)

    s = UCase(strFullFileName) & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified
    FileLastModified = s

    Set fs = Nothing: Set f = Nothing
End Function

Excel连接器修改文件的“修改日期”属性 - SSIS

1 个答案: