我真的希望有人可以帮助我,因为我需要做的,如何将文件从英语重命名为其他语言?
我有一个excel文件,有一些列和一列有英文文件名和其他列有其他语言的文件名。 现在我需要做的是重命名其他语言的文件,是否可以重命名。
我尝试这个代码
Sub pdfrenamefile()
Dim oldfile As String
Dim nwfile As String
Dim rng As Range
Dim fname As Range
Set rng = Range("Y7", Range("Y" & Rows.Count).End(xlUp))
For Each fname In rng
If IsEmpty(fname) Or fname = "" Then
'do nothing
Else
If FileFolderExists(Cells(1, 1) & fname) Then
nwfile = fname.Offset(, 1) & ".PDF"
Name Cells(1, 1) & fname As Cells(1, 1) & nwfile
fname.Offset(0, 2) = nwfile
fname.Offset(0, 3) = "Success"
Else
Range("AB" & fname.Row) = "File Not Found"
End If
End If
Next fname
End Sub
实施例:
示例数据ID OldFileName NewFileName
1 Sales1.PDF తెలుగు1.PDF
2 Sales02.PDF తెలుగు02.PDF
3 Sales567.PDF తెలుగు567.PDF
4 dest67.PDF తెలుగు67.PDF
我尝试,但它仅转换成英语,但不接受对其他。
在此先感谢您的帮助。
您没有显示您尝试过的任何代码。分享你正在做的事情......以及数据的样本。 – 2012-02-02 12:34:51
谢谢麦斯欧德快速响应 该守则 子pdfrenamefile() 昏暗的oldfile作为字符串 昏暗nwfile作为字符串 昏暗的RNG作为范围 昏暗FNAME作为范围 设置RNG =范围(“Y7”,范围(“Y “&Rows.Count).END(xlUp)) 对于每个FNAME在RNG 如果为IsEmpty(FNAME)或者FNAME = ”“ 然后 否则 如果FileFolderExists(将细胞(1,1)&FNAME)然后 nwfile = FNAME。 (1,1)&“。PDF” fname.Offset(0,2)= nwfile fname.Offset(0,3)=“fname.Offset(0,2)&nwfile ”成功“ 其他 范围(“AB”及fname.Row)=“找不到文件” 结束如果 结束如果 接下来FNAME 末次 – user1049518 2012-02-02 12:41:35
请将此代码添加到这个问题,以便它实际上可读。此代码ASIS不可用的任何地方:( – 2012-02-02 12:42:28