Excel VBA - 다른 이름으로 통합 문서 이름 복사

Question

"OTIF"[...]라는 열린 파일을 매크로가 검색하도록합니다. 매크로가 통합 문서를 찾으면 파일 이름을 다른 통합 문서 (wb2)의 "sheet1"셀 A1에 붙여 넣어야합니다. 여하튼 그것은 작동하지 않는다. 무엇

Sub Filename() 

Dim Wb1 As Workbook, wb2 As Workbook, wB As Workbook 

For Each wB In Application.Workbooks 
    If Left(wB.Name, 4) = "OTIF" Then 
     Set Wb1 = wB 
     Exit For 
    End If 
Next 

If Not Wb1 Is Nothing Then 
    Set wb2 = ThisWorkbook 
End If 

With wb2.Sheets("AAA") 
    .Range("A1").Value = Dir(Wb1.FullName) 
End With 

Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 

MsgBox "DONE!" 

End Sub 

Answer 1

나는 코드를 보았고, 그것은 아래와 같이 단순화 할 수있다.

Sub Filename() 
Dim wB As Workbook 
For Each wB In Application.Workbooks 
    If Left(wB.Name, 4) = "OTIF" Then 
     ThisWorkbook.Sheets("AAA").Range("A1").Value = wB.FullName 
     Exit For 
    End If 
Next 
Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 
MsgBox "DONE!" 
End Sub 

Answer 2

당신은 문제의 원인

Dir(Wb1.FullName) 

달성하고자합니다. 그냥 Dir과 ()과 그 실행을 삭제 : .Range("A1").Value = Wb1.FullName

Answer 3

전체 편집 코드 :

Option Explicit 

Sub Filename() 

Dim Wb1 As Workbook, wb2 As Workbook, wB As Workbook 
Dim ws As Worksheet 

Set wb2 = ThisWorkbook 

On Error Resume Next 
Set ws = wb2.Worksheets("AAA") 
On Error GoTo 0 
If ws Is Nothing Then ' make sure "AAA" sheet exists 
    MsgBox "AAA sheet does not exist, or has been renamed", vbCritical 
    Exit Sub 
End If 

For Each wB In Application.Workbooks 
    If Left(wB.Name, 4) = "OTIF" Then 
     ' for DEBUG ONLY 
     ws.Range("A1").Value = wB.Sheets.Count 

     ' 2nd Debug option 
     ws.Range("A1").Value = "Test" 

     ' ws.Range("A1").Value = wB.Name 

     MsgBox "DONE!" 
     Exit For 
    End If 
Next 

End Sub