Excel 스프레드시트 데이터를 VBA가 포함된 다른 Excel 스프레드시트로 가져오기

Excel 스프레드시트 데이터를 VBA가 포함된 다른 Excel 스프레드시트로 가져오기

VBA 코드가 포함된 Excel 스프레드시트를 작성해야 합니다. 코드는 첫 번째 워크시트의 데이터를 읽고 작업을 수행합니다.

사용자는 데이터가 들어 있지만 VBA 코드가 들어 있지 않은 스프레드시트를 받게 됩니다.데이터가 포함된 스프레드시트의 데이터를 VBA 코드가 포함된 스프레드시트로 자동으로 가져올 수 있어야 합니다.데이터가 들어 있는 워크시트의 열 형식과 데이터 유형은 데이터가 들어 있는 스프레드시트의 워크시트와 동일합니다.

VBA 코드가 포함된 스프레드시트를 열고 사용자가 데이터가 포함된 스프레드시트로 이동할 수 있는 UI를 표시한 후 확인을 클릭하면 데이터를 가져올 수 있습니다.

당신은 어떻게 이것을 할 겁니까?엑셀 스프레드시트의 VBA를 사용해야 합니다.

대단히 고맙습니다.

이를 통해 시작할 수 있습니다.자체 Excel 워크북에서 VBA를 사용하여 사용자에게 데이터 파일의 파일 이름을 입력하라는 메시지를 표시한 다음 고정 범위를 대상 워크북에 복사합니다(매크로 활성화된 워크북과 동일한 워크북 또는 세 번째 워크북일 수 있음).다음은 vba의 작동 방식을 보여주는 간단한 예입니다.

' Get customer workbook...
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook

' make weak assumption that active workbook is the target
Set targetWorkbook = Application.ActiveWorkbook

' get the customer workbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)

Set customerWorkbook = Application.Workbooks.Open(customerFilename)

' assume range is A1 - C10 in sheet1
' copy data from customer to target workbook
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets(1)
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets(1)

targetSheet.Range("A1", "C10").Value = sourceSheet.Range("A1", "C10").Value

' Close customer workbook
customerWorkbook.Close

워크북 방법이나 외부 참조 또는 데이터 가져오기 기능을 통해 데이터를 다른 엑셀의 엑셀로 끌어 올 수 있습니다.

읽기를 원하거나 다른 Excel 워크북을 업데이트하고 싶더라도 이러한 방법을 사용할 수 있습니다.우리는 이것을 VBA에만 의존하지 않을 수 있습니다.

이러한 기술에 대한 자세한 내용은 여기를 클릭하여 기사를 참조하십시오.

언급URL : https://stackoverflow.com/questions/7876178/importing-excel-spreadsheet-data-into-another-excel-spreadsheet-containing-vba