批量修改文件名称的求助！！！！急急急急

fishman110

我们单位要将员工照片导入ERP系统，原来的照片为员工姓名＋身份证，现在要求照片的名称换为对应的8位人员代码，我做了一个批量修改的VBA程序，在用到filecopy函数时，出现了错误，如下：
  我先提取原文件和目标文件的位置，对应为A1、B1
                       A列                                                                      B列
                     原文件位置                                                                目标文件位置
第1行      E:\个人杂货\excelVBA\照片复制\原图片\周志强_340521550707003.jpg           E:\个人杂货\excelVBA\照片复制\新命名图片\10070223.jpg

  执行到 filecopy  "cells(a,1).value","cells(a,2).value"时，总是出现“53”错误提示（找不到文件）。a是我自定义的能换行的变量。

请问 filecopy “原文件路径”，“新文件路径”，中的原文件和新文件路径是不是一定要明确为D:\asf.txt这种格式的，不能是我说的那种加变量的吗？

Tq-laoyu

Sub dd()
Dim i
For i = 1 To Sheets(1).[a65536].End(xlUp).Row
    Name  Cells(i, 1).Text As  Cells(i, 2).Text
Next
End Sub

必须确保新路径存在~

[ 本帖最后由 Tq-laoyu 于 2009-7-4 21:53 编辑 ]

fishman110

非常谢谢！我来试一下。