2012-10-30 4 views
2

다른 통합 문서의 워크 시트를 참조하기위한 올바른 구문은 무엇입니까? 다음 코드는 마지막 줄에 오류를 던지고 있습니다. 감사!변수로 통합 문서 및 워크 시트 참조

'Instantiate Workbook variables 
Dim mWB As Workbook 'master workbook 

'Instantiate Worksheet variables 
Dim mWS As Worksheet 'master worksheet 

'Open Workbook, set variables and reference range 
Workbooks.Open ("Local 500GB HD:Users:user:Public:file.xlsx") 
Set mWB = ActiveWorkbook 
Set mWS = Sheets("Invoices") 
mWB.mWS.Range("A1").FormulaR1C1 = "Import Date" ' <---- This is the where the error is 

답변

5

변경

Set mWS = Sheets("Invoices") 

마지막 줄에

Set mWS = mWb.Sheets("Invoices") 

그럼 그냥 쓰기 mWS.Range("A1").FormulaR1C1 = "Import Date"

에.

실제로 ActiveWorkbook이 변경되지 않았기 때문에 위에 표시된 것처럼 마지막 줄을 읽을 수 있습니다. 그러나 모든 변수를 정확히 한정하여 예기치 않은 동작이 발생하지 않는 것이 가장 좋습니다.

+0

감사합니다. 훌륭한 작품입니다! – Liquidgenius

관련 문제