두 통합 문서를 다른 시트와 비교하고 싶습니다. 어떻게 workbook1-> Sheet1, workbook2 ---> (sheet1)의 개체로 설정할 수 있습니까?
동일한 통합 문서 내의 워크 시트를 비교할 수 있지만 "getopenfilename"시트를 선택하려는 것처럼 어디에서나 비교할 수 있습니다. 이름을 객체로 어떻게 할당 할 수 있습니까?
암호:
Dim tabWb As Workbook 'Workbook2
Dim tabWS As Worksheet 'analysing worksheet
Filename = Application.GetOpenFilename("Excel files (*.xls*),*.xl*", Title:="Open data")
Set wb = ActiveWorkbook
Set tabWS = Sheets("Tabelle1")
Dim bsmWS As Worksheet ' workbook1
Set bsmWS = Sheets("Sheet1") ' currentworksheet
Workbook1 (sheet1)은 현재 통합 문서 및 워크 시트이며, 다른 workbook2 (sheet1)에서 데이터를 가져오고 싶습니다. 두 워크 시트의 개체를 어떻게 만들 수 있습니까? "set bsmws"에서 컴파일 실패가 발생합니다.
Sub test()
Dim strFileName as String
Dim wbTarget As Workbook
Dim wbSource As Workbook
Dim wsTarget As Worksheet
Dim wsSource As Worksheet
strFileName = Application.GetOpenFilename("Excel files (*.xls*),*.xl*", Title:="Open data")
Set wbSource = ThisWorkbook
Set wbTarget = Workbooks.Open(strFileName)
Set wsSource = wbSource.Worksheets("Sheet1")
Set wsTarget = wbTarget.Worksheets("Sheet1")
'to copy from Target - > Source
wsTarget.Range("B2").Resize(5, 5).Copy wsSource.Range("B2")
'etc.
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다