可以通过以下步骤完成:
接下来,根据操作系统的不同,有两种方法可以插入所有文件名:
方法一:使用VBA宏
Sub InsertFileNames()
Dim FolderPath As String
Dim FileName As String
Dim i As Integer
FolderPath = "C:\YourFolderPath\" '将YourFolderPath替换为实际的文件夹路径
i = 2 '从第二行开始插入文件名
FileName = Dir(FolderPath & "*.*")
Do While FileName <> ""
Cells(i, 1).Value = FileName
Cells(i, 2).Value = FolderPath & FileName
Cells(i, 3).Value = Right(FileName, Len(FileName) - InStrRev(FileName, "."))
Cells(i, 4).Value = FileDateTime(FolderPath & FileName)
i = i + 1
FileName = Dir
Loop
End Sub
方法二:使用命令提示符(适用于Windows操作系统)
dir /b > filelist.txt
=CONCATENATE("C:\YourFolderPath\", A2)
将"YourFolderPath"替换为实际的文件夹路径。
=RIGHT(A2,LEN(A2)-FIND(".",A2))
将公式拖动到所有单元格中以填充整个列。
=TEXT(MID(B2,FIND("]",B2)+1,LEN(B2)-FIND("]",B2)),"yyyy-mm-dd hh:mm:ss")
将公式拖动到所有单元格中以填充整个列。
请注意,以上方法中的"YourFolderPath"应替换为实际的文件夹路径。另外,这些方法适用于Windows操作系统,对于其他操作系统可能需要使用不同的命令或脚本来获取文件名。
推荐的腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云