电子表格如何提取照片名称到excel表格中

1.如何提取照片名称到excel表格中

提取文件名到excel的方法：

Sub ExtractfilePath()

Dim Filename As String

Dim x As Variant

For Each cl In ActiveSheet.Range("A1:A10")

x = Split(cl.Value, Application.PathSeparator)

Filename = x(UBound(x))

cl.Value = Filename

Next cl

End Sub

2.图片名称提取到excel里

点EXCEL的 打开-->；文件类型-->；文本文件（*.prn;*.txt。）-->；选择C盘的AA文件夹，会看到名叫AA的文本文件，双击AA文本文件-->；出现文本导入向导-->；直接点完成-->；然后把其中一些以图片扩展名结尾的列复出来就行了。

DOS啊，怀念一去不复返的DOS年代，那时按市场平均价维修一台电脑人工费就能收180元啊！可惜钱是进了老板的口袋，不是进我的口袋。 ^_^！

最后一步请按下图操作（请稍等一会即出现动态图片录像）：