使用する複数のpdfファイルの名前を変更する方法データベースvbaをExcelに変換

Question

ご協力いただきありがとうございます。

私は次の問題がありますが、可能かどうかわかりません...フォルダC：\にあるPDFファイルの名前を変更しようとしています...私はワークシートに従って名前を変更する必要があります私はExcelのスプレッドシートデータの名前を変更したいと思いますか？

私が研究し、コードを持っていますが、それは私のデータベースを検索しませんが、それは

ます。Public Sub lsSelecionaArquivo（各ファイルの名前を入力するように私を頼む）文字列

として文字列 薄暗いNomeBaseとして 薄暗いCaminho

Caminho = InputBox("Informe o local dos arquivos a serem renomeados:", "Pasta", "C:\TEMP") 
NomeBase = InputBox("Informe o local dos arquivos a serem renomeados:", "Renomear", "") 


lsRenomearArquivos Caminho, NomeBase 

End Subの

公開サブlsRenomearArquivos（文字列としてとしてCaminho、NomeBase）

Dim FSO As Object, Pasta As Object, Arquivo As Object, Arquivos As Object 
Dim Linha As Long 
Dim lSeq As Long 
Dim lNovoNome As String 

Set FSO = CreateObject("Scripting.FileSystemObject") 

If Not FSO.FolderExists(Caminho) Then 
    MsgBox "A pasta '" & Caminho & "' não existe.", vbCritical, "Erro" 
    Exit Sub 
End If 

lSeq = 1 

Set Pasta = FSO.GetFolder(Caminho) 
Set Arquivos = Pasta.Files 

Cells(1, 1) = "De" 
Cells(1, 2) = "Para" 

Linha = 2 

For Each Arquivo In Arquivos 

    Cells(Linha, 1) = UCase$(Arquivo.Path) 
    lNovoNome = Caminho & "\" & NomeBase & lSeq & Right(Arquivo, 4) 
    Name Arquivo.Path As lNovoNome 

    Cells(Linha, 2) = lNovoNome 
    lSeq = lSeq + 1 
    Linha = Linha + 1 

Next 

エンドサブ

Answer 1

名前変更の部分については、これを考慮してください。

Sub RenameFiles() 
'Updateby20141124 
Dim xDir As String 
Dim xFile As String 
Dim xRow As Long 
With Application.FileDialog(msoFileDialogFolderPicker) 
    .AllowMultiSelect = False 
If .Show = -1 Then 
    xDir = .SelectedItems(1) 
    xFile = Dir(xDir & Application.PathSeparator & "*") 
    Do Until xFile = "" 
     xRow = 0 
     On Error Resume Next 
     xRow = Application.Match(xFile, Range("A:A"), 0) 
     If xRow > 0 Then 
      Name xDir & Application.PathSeparator & xFile As _ 
      xDir & Application.PathSeparator & Cells(xRow, "B").Value 
     End If 
     xFile = Dir 
    Loop 
End If 
End With 
End Sub 

https://www.extendoffice.com/documents/excel/2339-excel-rename-files-in-a-folder.html

また、これを考慮してください。

Sub ListFiles() 
Dim MyFolder As String 
Dim MyFile As String 
Dim j As Integer 
MyFolder = "C:\DealerExam" 
MyFile = Dir(MyFolder & "\*.*") 
a = 0 
Do While MyFile <> "" 
    a = a + 1 
    Cells(a, 1).Value = MyFile 
    MyFile = Dir 
Loop 
End Sub 

これは、私は、Javaを勉強し、VBAを始めて以来、言語を変更するには少し緊張しているセルで始まるヘルプ

のための「A1」

Answer 2

感謝のディレクトリ内のすべてのファイルを一覧表示します。

コードを実行すると、スプレッドシートに古いファイル名と新しいデータを挿入する必要があることがわかりましたが、新しいデータを取得するだけの方法はありません。そして、私はワークシートにファイル拡張子を置かなくてもPDFとして作成する方法を探そうとしました。

ご質問申し訳ありません...私はVBAとの多くの連絡がありません。

私は非常に私を助けてくれてありがとう。

Sub RenameFiles() 
 

 
Dim xDir As String 
 
Dim xFile As String 
 
Dim xRow As Long 
 
With Application.FileDialog(msoFileDialogFolderPicker) 
 
    .AllowMultiSelect = False 
 
If .Show = -1 Then 
 
    xDir = .SelectedItems(1) 
 
    xFile = Dir(xDir & Application.PathSeparator & "*") 
 
    Do Until xFile = "" 
 
     xRow = 0 
 
     On Error Resume Next 
 
     xRow = Application.Match(xFile, Range("A:A"), 0) 
 
     If xRow > 0 Then 
 
      Name xDir & Application.PathSeparator & xFile As _ 
 
      xDir & Application.PathSeparator & Cells(xRow, "B").Value 
 
     End If 
 
     xFile = Dir 
 
    Loop 
 
End If 
 
End With 
 
End Sub 
 

 
Sub ListFiles() 
 
Dim MyFolder As String 
 
Dim MyFile As String 
 
Dim j As Integer 
 
MyFolder = "C:\Users\AnaWill\Desktop\Holerites Folha\Nova pasta" 
 
MyFile = Dir(MyFolder & "\*.*") 
 
a = 0 
 
Do While MyFile <> "" 
 
    a = a + 1 
 
    Cells(a, 2).Value = MyFile 
 
    MyFile = Dir 
 
Loop 
 
End Sub