回答受付が終了しました

ID非公開

2022/1/21 10:40

11回答

Excel VBA についてご教授ください。(当方全くの初心者です。)

Visual Basic | Excel213閲覧xmlns="http://www.w3.org/2000/svg">100

回答(1件)

0

バグっていたので鳥消して再回答します。 画像の様にセルB1に処理するフォルダ名を入れて下さい。 0で始まるフォルダは無いものとします。 Option Explicit ' Sub Macro1()     Dim FSO As Object     Dim PathName As String     Dim FileNo As Integer     Dim FileName As String '     Set FSO = CreateObject("Scripting.FileSystemObject")     PathName = Dir([B1] & "\*.", vbDirectory) '     Do While PathName > ""         FileName = Val(PathName)         FileNo = Len(FileName) + 1         On Error Resume Next         FSO.MoveFile [B1] & "\*" & Mid(PathName, FileNo) & "*.pdf", _             [B1] & "\" & PathName         On Error GoTo 0         PathName = Dir     Loop     MsgBox "終了" End Sub

画像