이 기사에서는 VBA 코드를 사용하여 닫힌 통합 문서에서 활성 통합 문서로 데이터를 가져 오는 절차를 만듭니다.

가져 오려는 원시 데이터는 “C : \ Users \ Ramandeep \ Desktop”경로에있는 “DataFile.xlsx”파일의 시트 “Sheet1″에 A13 : E22 범위에 있습니다.

dataFile

논리 설명

이 기사에서는 두 가지 절차를 만들었습니다. CallingMainProcedure. GetValuesFromAClosedWorkbook

CallingMainProcedure 프로 시저

이 프로시 저는 “GetValuesFromAClosedWorkbook”프로 시저를 호출하는 데 사용됩니다. “GetValuesFromAClosedWorkbook”프로 시저의 매개 변수에 값을 할당합니다.

GetValuesFromAClosedWorkbook 프로 시저

이 절차는 닫힌 통합 문서의 파일 경로와 파일 이름을 매개 변수로 사용합니다. 또한 닫힌 통합 문서의 시트 이름과 범위를 매개 변수로 사용합니다. 입력 매개 변수의 값을 사용하여 활성 시트의 A13 : E22 범위에 \ {= ‘C : \ Users \ Ramandeep \ Desktop \ [DataFile.xlsx] Sheet1’! A13 : E22} 배열 수식이 입력됩니다. 닫힌 통합 문서의 필수 데이터. 데이터를 활성 시트로 가져 오면 수식을 값으로 대체하여 시트에서 수식을 제거합니다.

ArrowAfterRunningMacro

아래 코드를 따르세요

Option Explicit

Sub CallingMainProcedure()

'Calling GetValuesFromAClosedWorkbook procedure

'Specifying the file path, filename, sheet name and range of data

GetValuesFromAClosedWorkbook "C:\Users\Ramandeep\Desktop", "DataFile.xlsx", _

"Sheet1", "A13:E22"

End Sub

Sub GetValuesFromAClosedWorkbook(fPath As String, _

fName As String, sName, cellRange As String)



With ActiveSheet.Range(cellRange)

'Assigning the array formula to the specified range

.FormulaArray = "='" & fPath & "\[" & fName & "]" & sName & "'!" & cellRange

'Removing formula from the cell and pasting the values in the cell

.Value = .Value

End With

End Sub

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요