代码之家 › 专栏 › 技术社区 › TobiasH

填充B列中最后修改的文件列表(A)的时间戳

vba timestamp excel

TobiasH · 技术社区 · 7 年前

A列包含没有扩展名的文件名,我希望B列显示上次修改的时间和日期。

Sub Workbook_Open()
Dim Path As String
Path = ThisWorkbook.Sheets("E").Range("B14")
Range("B4").Value = FileDateTime(Path & ThisWorkbook.Sheets("Projekterfassung_Monitoring").Range("A4") & ".xlsx")
Range("B5").Value = FileDateTime(Path & ThisWorkbook.Sheets("Projekterfassung_Monitoring").Range("A5") & ".xlsx")
Range("B6").Value = FileDateTime(Path & ThisWorkbook.Sheets("Projekterfassung_Monitoring").Range("A6") & ".xlsx")
Range("B7").Value = FileDateTime(Path & ThisWorkbook.Sheets("Projekterfassung_Monitoring").Range("A7") & ".xlsx")
(...)
End Sub

1 回复 | 直到 6 年前

Tom 7 年前

您只需要实现一个基本循环

Sub Workbook_Open()
    Dim Path As String
    Dim i As Long
    Path = ThisWorkbook.Sheets("E").Range("B14")

    With ThisWorkbook.Sheets("Projekterfassung_Monitoring")
        For i = 4 To .Cells(.Rows.Count, 1).End(xlUp).Row
            .Range("B" & i).Value = FileDateTime(Path & .Range("A" & i) & ".xlsx")
        Next i
    End With
End Sub

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前