Đặt tên file ảnh hàng loạt dựa vào list excel?

[khanhnth02]

1.tôi chụp rất nhiều hình ảnh cho từng loại mã hàng. bây giờ tôi muốn đặt tên cho mỗi bức ảnh dựa vào mã code và tên hàng hóa trong list excel. Làm thế nào để đặt tên nhanh nhất .vui lòng chỉ dẫn giúp,
2. sau khi đã có tên của từng bứng ảnh. làm sao khi in se hiện luôn tên file của mỗi bức ảnh đó luôn vậy. chân thành cảm ơn mọi người

 

[ndu96081631]

1.tôi chụp rất nhiều hình ảnh cho từng loại mã hàng. bây giờ tôi muốn đặt tên cho mỗi bức ảnh dựa vào mã code và tên hàng hóa trong list excel. Làm thế nào để đặt tên nhanh nhất .vui lòng chỉ dẫn giúp,
2. sau khi đã có tên của từng bứng ảnh. làm sao khi in se hiện luôn tên file của mỗi bức ảnh đó luôn vậy. chân thành cảm ơn mọi người

Hỏi lại: Những tấm ảnh hiện đang được đặt ở đâu? Tôi đoán có lẽ nó nằm trong ổ cứng của máy tính (chứ không phải nằm trên bảng tính)
Nếu là vậy thì xin hỏi tiếp: Bằng cách nào tôi có thể biết được tấm ảnh nào phải được đặt tên nào? (chẳng lý nào đặt tên.. đại)

 

[khanhnth02]

xin lỗi vì đã viết ko cụ thể. những tấm ảnh được chụp để trong ổ cứng riêng trên file ảnh (không nằm trong bảng tính).
Tôi đã sắp xếp ảnh theo thứ tự của mã code trong bảng tính excel rồi (cụ thể là từ số thứ tự 1 đến 100...)

 

[ndu96081631]

xin lỗi vì đã viết ko cụ thể. những tấm ảnh được chụp để trong ổ cứng riêng trên file ảnh (không nằm trong bảng tính).
Tôi đã sắp xếp ảnh theo thứ tự của mã code trong bảng tính excel rồi (cụ thể là từ số thứ tự 1 đến 100...)

Code đổi tên file dễ mà. Cứ dùng Scripting.FileSystemObject mà mần
Ví dụ:

Sub Test()
  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.MoveFile "File cần đổi tên", "Đổi tên thành cái gì?"
End Sub

Vậy thôi
Nếu bạn không tự làm được, vui lòng cho file Excel lên đây tôi làm trực tiếp vào file luôn

 

[khanhnth02]

đổi file ảnh hàng loạt

Thật khó quá, a giúp tôi làm cụ thể hợn trong file này với. số lượng ảnh trong đơn vị tôi rất nhiều, vì thế muốn đổi hàng loạt chứ không thể làm thủ cong được.trong bảng tính excel lấy cột D để điền tên vào ba file ảnh tôi vì dụ minh hoạ. chân thành cảm ơn

 

[ndu96081631]

Thật khó quá, a giúp tôi làm cụ thể hợn trong file này với. số lượng ảnh trong đơn vị tôi rất nhiều, vì thế muốn đổi hàng loạt chứ không thể làm thủ cong được.trong bảng tính excel lấy cột D để điền tên vào ba file ảnh tôi vì dụ minh hoạ. chân thành cảm ơn

Ví dụ thế này:

Sub RenameFiles()
  Dim i As Long, n As Long
  Dim OldFile As String, NewFile As String, strPath As String
  Dim fso As Object, vFile, arr
  On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
  arr = Sheet1.Range("A1:C10000").Value
  vFile = Application.GetOpenFilename("Image Files, *.jpg", , , , True)
  If TypeName(vFile) = "Variant()" Then
    strPath = Left$(vFile(1), InStrRev(vFile(1), "\"))
    For i = 1 To UBound(vFile)
      If Len(arr(i, 1)) Then
        If Len(arr(i, 2)) Then
          If Len(arr(i, 3)) Then
            n = n + 1
            OldFile = CStr(vFile(i))
            NewFile = strPath & arr(i, 1) & "-" & arr(i, 2) & "-" & arr(i, 3) & ".jpg"
            fso.MoveFile OldFile, NewFile
          End If
        End If
      End If
    Next
    MsgBox "Doi ten " & n & " files", , "Xong!"
  End If
End Sub

Cách dùng:
- Chạy code, hộp Open file hiện ra
- Dùng chuột chọn file đầu tiên, bấm giữ phím shift rồi chọn file cuối ---> Bấm nút Open
- Khi MsgBox hiện ra là quá trình đổi tên file đã xong
Lưu ý: Windows không chấp nhận dấu hai chấm trong tên file đâu nha (nên tôi đổi thành dấu gạch ngang)

 

[khanhnth02]

liệu có phần mềm nào tiện lợi hơn không anh

 

[duyenhoang]

mình đang có nhu cầu như bạn này, anh chị nào có phần mềm mong hỗ trợ giúp

 

[phucymvn]

File của anh em chạy không thấy đổi được tên.
Thanks

 

[phucymvn]

Code của anh em chạy không thấy đổi được tên file.
ANh check lại giúp.
Thanks

 

[Lequocvan]

em có cái này anh xem thử nhé. đổi tên file ảnh hàng loạt bằng marcro, đã test

em có cái này anh xem thử nhé. đổi tên file ảnh hàng loạt bằng marcro, đã test

 

[phucymvn]

em có cái này anh xem thử nhé. đổi tên file ảnh hàng loạt bằng marcro, đã test

Thanks bạn
FIle HDSD cần sửa câu lệnh :
Bên cột old name tại ô A6 gỏ vào công thức =righ(c6,len(c6)-4) => sửa thành Bên cột old name tại ô A6 gỏ vào công thức =left(c6,len(c6)-4)
thanks

 

[Anti-Plus]

Các bạn giúp mình đổi tên file hàng loạt bằng excel nhé, thanks !

 

[minhlong104]

Ví dụ thế này:

Sub RenameFiles()
  Dim i As Long, n As Long
  Dim OldFile As String, NewFile As String, strPath As String
  Dim fso As Object, vFile, arr
  On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
  arr = Sheet1.Range("A1:C10000").Value
  vFile = Application.GetOpenFilename("Image Files, *.jpg", , , , True)
  If TypeName(vFile) = "Variant()" Then
    strPath = Left$(vFile(1), InStrRev(vFile(1), "\"))
    For i = 1 To UBound(vFile)
      If Len(arr(i, 1)) Then
        If Len(arr(i, 2)) Then
          If Len(arr(i, 3)) Then
            n = n + 1
            OldFile = CStr(vFile(i))
            NewFile = strPath & arr(i, 1) & "-" & arr(i, 2) & "-" & arr(i, 3) & ".jpg"
            fso.MoveFile OldFile, NewFile
          End If
        End If
      End If
    Next
    MsgBox "Doi ten " & n & " files", , "Xong!"
  End If
End Sub

Cách dùng:
- Chạy code, hộp Open file hiện ra
- Dùng chuột chọn file đầu tiên, bấm giữ phím shift rồi chọn file cuối ---> Bấm nút Open
- Khi MsgBox hiện ra là quá trình đổi tên file đã xong
Lưu ý: Windows không chấp nhận dấu hai chấm trong tên file đâu nha (nên tôi đổi thành dấu gạch ngang)

Em làm theo code của anh thì nó vẫn báo là đã đổi tên "n" file nhưng không thấy file đó được rename theo list trong Sheet1 ạ. Anh có thể hỗ trợ em không ạ?