私がする必要があるので、誰かが私にこれを手伝ってくれることを願っています。ファイル名を英語から他の言語に変更する方法は?
英語のファイル名と他の列のファイル名を持つExcelファイルがあります。 私は他の言語でファイルの名前を変更する必要があります。名前を変更することは可能ですか?
Iは例このコードを
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
私が試みたが、それが英語にのみ変換が、他に受け入れません。
ご協力いただきありがとうございます。
あなたが試したことのコードは表示されません。あなたがしようとしていることを共有してください...そしてデータのサンプルも同様に。 –
はレンジ セットRNG =範囲(「Y7」、レンジ(「Yとしてレンジ 薄暗いFNAMEとして文字列 薄暗いRNGなどの文字列 薄暗いnwfileとしてOLDFILE)コード( サブpdfrenamefileある 迅速な対応のためにあなたに 点心をMasudありがとうございました「 をRNGの各FNAMEについて&Rows.Count).END(xlUp)) 場合のisEmpty(FNAME)またはFNAME = "" さもなければそして そしてFileFolderExists(セル(1,1)&FNAME) nwfile = FNAME場合。 "032" fname.Offset(0、2)= nwfile fname.Offset(0、3)= "セルのセル(1,1)成功 " Else 012 終了した場合、それは実際に読めるだよう 次のFNAME End Subの – user1049518
質問にコードを追加してください場合レンジ(「AB」&fname.Rowは)= 終了「ファイルが見つかりません」という。このコードASISはどこにも使用できません:(データ ID OldFileName NewFileName 1 Sales1.PDFతెలుగు1 –