해색주의 조용한 공간

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=71906817&qb=7JeR7IWA7YyM7J28IOyXtOyngCDslYrqs6Ag7JeF642w7J207Yq4&enc=utf8&section=kin&rank=2&search_sort=0&spq=0

안녕하세요~

excell4.0메크로를 사용하시면 될듯합니다.

불러올 파일과 기록할 파일이 같은 폴더에 있다고 가정합니다.

불러올 파일 이름이 XLM_1.XLS 일때

기록할 파일의 B2:B4셀에

XLM_1.XLS 파일의 Sheet1 시트의 A1:A3셀의 데이타를 불러오는 경우의 코드입니다.

참조하시고 좋은 결과 있으시길~~~

Option Explicit

Sub Call_Data()
Dim strPath As String, strFile As String, strSht As String, strCell As String
Dim i As Integer

strPath = ThisWorkbook.Path & "\"
strFile = "XLM_1.xls"
strSht = "Sheet1"

For i = 0 To 2
    strCell = Range("a1").Offset(i, 0).Address
    Range("b2").Offset(i, 0) = Get_Data(strPath, strFile, strSht, strCell)
Next

End Sub

Function Get_Data(Path, File, Sht, Cell)

Dim strD As String
   

strD = "'" & Path & "[" & File & "]" & Sht & "'!" & Range(Cell).Address(, , xlR1C1)
Get_Data = ExecuteExcel4Macro(strD)

End Function

http://kin.search.naver.com/search.naver?where=kin&sm=tab_jum&ie=utf8&query=%EC%97%91%EC%85%80%20%EC%97%B4%EC%A7%80%20%EC%95%8A%EA%B3%A0%20%EC%97%85%EB%8D%B0%EC%9D%B4%ED%8A%B8&&nso=so%3Ar%2Ca%3Aall%2Cp%3Aall

안녕하세요~

어차피 VBA 를 사용해야될 상황인것 같은데요...

파일을 열고 닫는거야 눈 깜짝할 사이에 이루어 지므로 크게 문제될건 없지 않나요?

sub Test()

dim ws1  as worksheet

dim ws2  as worksheet

dim wb1 as workbook

dim wb2 as workbook

application.screenupdating=false

application.calculation=xlcalculationmanual

set wb1=thisworkbook

set ws1=wb1.sheets("Sheet1")

set wb2=workbooks.open(thisworkbook.path & application.pathseparator & "B.xls")

set ws2=wb2.sheets("Sheet1")

ws2.range("K1").value=ws1.range("A1").value

application.calculate

ws1.range("B1:F1").value=ws2.range("L1:P1").value

wb2.close true

application.calculation=xlcalculationautomatic

application.screenupdating=true

end sub