Sub text()
Dim f, x, arr, y
f = Application.GetOpenFilename("EXCEL文件,*.*,", 1, MultiSelect:=True)
For x = 1 To UBound(f)
arr = Split(f(x), "\")
y = UBound(arr)
Range("a1000").End(xlUp).Offset(1, 0) = f(x)
Range("b1000").End(xlUp).Offset(1, 0) = arr(y)
Set y = Nothing
Set arr = Nothing
Next x
End Sub
参考以上代码与附件！
你在淘宝上找家店也许能给你解决 ，数据图文办公服务
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024