1. 如何將大量圖片的名稱編輯到一張EXCEL表格中
1、直接復製法
進入文件夾
全選圖片文件
shift+右鍵>復制為路徑
粘貼到Excel中
注意,此時復制到excel中的包括圖片的路徑,可通過替換為空值的方法批量刪除。
2、VBA法
復制如下代碼到VBA模塊中,運行即可。
SubPic_name()
DimmyPathAsString
DimmyPicAsString
DimiAsSingle
i=1
WithApplication.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect=False
myPath=.SelectedItems(1)
EndWith
myPic=Dir(myPath&""&"*.jpg")
DoWhileLen(myPic)<>0
ActiveSheet.Cells(i,1)=myPic
i=i+1
myPic=Dir
Loop
EndSub