다른 파일에서 행 값 검색

Question

나는이 프로젝트에서 단계별로 작업 해왔다. 왜이 함수 (SheetName)로 전달되는 인수로 사용되는 "SheetName"에서 행 문자열 값을 복사하지 않는지 이해할 수 없습니다. 이 함수는 파일을 읽고 첫 번째 파일에서 찾은 열 제목의 수에 따라 확인란을 사용하여 두 번째 파일을 만들 수 있지만 열 제목은 두 번째 파일에 확인란의 캡션으로 복사되지 않습니다. 어떤 도움을 주셔서 감사합니다.

Function CallFunction(SheetName As Variant) As Long 

Dim text As String 
Dim titles(200) As String ' Dim titles(200) As String ' Array 
Dim nTitles As Integer 
Dim wks As Worksheet 
Dim myCaption As String 
Dim NewBook As Workbook 

PathName = Range("F22").Value 
Filename = Range("F23").Value 

ControlFile = ActiveWorkbook.Name 
Workbooks.Open Filename:=PathName & "\" & Filename 

Set wks = ActiveWorkbook.Worksheets(SheetName) 

For i = 1 To 199 
    If Trim(wks.Cells(4, i).Value) = "" Then 
     nTitles = i - 1 
     Exit For 
    End If 
     titles(i - 1) = wks.Cells(4, i).Value 
Next 

i = 1 

Workbooks.Add 
Set NewBook = ActiveWorkbook 
NewBook.SaveAs fileExported 
Workbooks.Open (fileExported) 

For Each cell In Range(Sheets(SheetName).Cells(4, 1), Sheets(SheetName).Cells(4, 1 + nTitles)) 

    myCaption = Sheets(SheetName).Cells(4, i).Value 

    With Sheets(SheetName).checkBoxes.Add(cell.Left, _ 
     cell.Top, cell.Width, cell.Height) 
     .Interior.ColorIndex = 12 
     .Caption = myCaption 
     .Characters.text = myCaption 
     .Border.Weight = xlThin 
     .Name = myCaption 
    End With 

    i = i + 1 
Next 
End Function 

Answer 1

내 자신의 질문에 대한 답을 찾았습니다. 여기에 답을 추가하는 것을 잊어 버렸습니다. 좋아, 여기있어

' Save all Jira column titles into jTitles 
If sj = True Or ji = True Then 
    For j = 1 To 199 
     If Trim(wks1.Cells(4, j).Value) = "" Then 
      titlesj = j - 1 
      Exit For 
     End If 
      jTitles(j - 1) = wks1.Cells(4, j).Value 
    Next 

    j = 1 

    ' Add column titles as checkboxes 
    For j = 0 To titlesj 
     Sheet1.ListBox1.AddItem jTitles(j) 
     Sheet1.ListBox3.AddItem jTitles(j) 
    Next 
    wb1.Close 
End If