批量导入硬盘中的图片文件名称到Excel

2018年1月23日 Excel攻略 silent86

Sub aa()

Dim s As String

[a1].CurrentRegion.Clear

s = Dir(ThisWorkbook.Path & “\*.jpg”)

Do While s <> “”

[a1] = “图片名称”

[a65536].End(xlUp).Offset(1, 0) = s

s = Dir()

Loop

End Sub

本文是全系列中第7 / 9篇：Excel

版权声明：

作者：silent86

链接：https://axby.xyz/123/

文章版权归作者所有，未经允许请勿转载。