⑴ 如何把照片名稱批量導入excel
1、打開電腦,首先在指定盤符中新建一個文件夾,並把需要導入到excel中圖片復制到該文件夾內;
⑵ 有一個表格和一堆照片,怎麼批量把表格里的名字命名到圖片
你可以參考這個方式來修改網頁鏈接,裡面有軟體直接下載可以使用
⑶ 如何能批量導出excel內表格圖片並命名
工具:Office2013
方法如下:
Excel中有如下圖片,將之復制出來並保存重命名:
4. 最後將圖片文件重命名即可。
⑷ 關於如何利用EXCEL中的編號批量修改圖片文件名
可以用VBA來實現你要的功能,具體方法可以參考下面的來實現:
1、首先建立一個EXCEL表 其中第一個工作薄名稱為照相順序表 如下圖
Sub 照片重命名()
If MsgBox("程序將重命名與本工作薄同目錄下的所有照片文件,確認這樣做么?", vbYesNo) <> 6 Then
Exit Sub
End If
Dim oldname As String '舊文件名變數oldname
Dim newname As String '新文件名變數newname
Dim photopath As String '路徑變數photopath
Dim nophoto As String '錯誤提示變數nophoto
Dim i As Integer '循環變數i
photopath = ThisWorkbook.Path '為要修改的文件名路徑復制為當前excel文件的路徑
For i = 2 To Worksheets("照相順序表").Range("a65536").End(xlUp).Row '開始循環 從「照相順序表」工作薄的a2單元格開始
'為新文件名變數賦值為路徑變數& \ & 照相順序表工作薄中的a2&b2單元格內容加上擴展名.jpg
newname = photopath & "\" & Worksheets("照相順序表").Cells(i, 1).Text & Worksheets("照相順序表").Cells(i, 2).Text & ".jpg"
'為舊文件名變數賦值為路徑變數& \ & 照相順序表工作薄中的c2單元格內容&擴展名.jpg
oldname = photopath & "\" & Worksheets("照相順序表").Cells(i, 3).Text & ".jpg"
'判斷舊文件名是否在當前目錄存在
If Dir(oldname) <> "" Then
Name oldname As newname '存在則改名
Else
nophoto = nophoto & Chr(10) & oldname『不存在則將其賦值給錯誤提示變數並以回車分割累加
End If
Next i
If nophoto <> "" Then
MsgBox nophoto & Chr(10) & "圖片不存在" 』存在錯誤提示則彈出錯誤提示框
End If
End Sub