GetObject로 엑셀파일을 가져와서 사용후 .Close로 닫으면 파일이 안열립니다...

GetObject로 다른폴더나 같은폴더에 엑셀파일의 데이터를 가져와서

해당 매크로파일에서 그 데이터들을 이리저리 옴기면서 최종값을 만들고

그 값들을 다시 GetObject로 데이터를 가져온 파일에 입력후

.Close로 닫으면 GetObject로 데이터를 가져온 파일이 안열립니다.. 복구를해야 열리구요.

그렇다고 .Close로 안닫으면 해당 파일을 열 때 현재 편집중이라고 열게 되면 옴겨둔 데이터들이 저장이 안되어있구요..

혹시 방법이 없을까요?

당장은 데이터 가져오기만하면 저런 문제들이 없어서 마지막 데이터 입력은 수동으로 하고있습니다.

아래는 수식입니다.

데이터 가져오는 수식

Dim excelFile1 As Workbook
Dim excelFile2 As Workbook
Dim val
Dim i As Integer

Set excelFile1 = GetObject("C:\Users\관리자\Desktop\파일1.xlsx")
Set excelFile2 = GetObject("C:\ProgramData\VBA\파일2.xlsx")

For i = 1 To 100

val = excelFile1.Sheets("Sheet3").Range("G" & i).Value
Sheets("Sheet3").Range("F" & i) = val

Next i

For i = 1 To 200

val = excelFile2.Sheets("Sheets10").Range("G" & i).Value
Sheets("Sheet3").Range("K" & i) = val

Next i

excelFile1.Close
excelFile2.Close

데이터를 가져온 엑셀파일에 최종값을 입력하는 수식

Dim excelFile1 As Workbook
Dim excelFile2 As Workbook
Dim val
Dim i As Integer

Set excelFile1 = GetObject("C:\Users\관리자\Desktop\파일1.xlsx")
Set excelFile2 = GetObject("C:\ProgramData\VBA\파일2).xlsx")

For i = 1 To 100

val = Sheets("Sheet3").Range("H" & i)

If IsNumeric(val) Then

If val >= 1 Then

excelFile2.Sheets("Sheet10").Range("AA" & i).Value = val

End If

End If

Next i

excelFile1.Close
excelFile2.Close