2017-11-13 2 views
0

미안하지만 3 일 후에 나는 포기한다. 그래서 나는 아주 간단한 질문이 무엇인지 물어보고있다. 그러나 내가 찾은 모든 예는 Excel 파일을 열거 나 동일한 파일의 읽기 전용 버전을 열어 뭔가 내 경우에 파일을 이미 아래의 코드를 사용하여 다른 매크로에서 열렸습니다, 난 그냥 파일을 이미 열어에 대한 적응 방법을 파악할 수없는 것 같은 ??Excel 및 파일이 이미 열려있을 때 Word 매크로에서 Excel 참조?

또한 코드 내에서 활성 창으로 이동하는 방법을 알아 내려고하고 있습니까?

Dim oApp As Object 
Dim x As Variant 
Dim sPath As String 
Dim oExcel As Excel.Application 
Dim oWB As Workbook 
Dim oSheet As String 

sPath = "E:\Special Folders\WWWRoot\temp.xlsx" 
oSheet = "--Keywording--" 

On Error Resume Next 


    Set oExcel = New Excel.Application 
    Set oWB = oExcel.Workbooks.Open(sPath) 
    oExcel.Visible = True 
    Sheets(oSheet).Select 

    Range("A1:G1000").Clear 
    Range("A1").Select 

    Sheets(oSheet).Cells(1, 1).Select 
    Sheets(oSheet).PasteSpecial (xlPasteAll) 

    Range("A1").Select 
+1

'set oExcel = GetObject ("Excel.Application")'또는'Set oExcel = GetObject ("Book2"). Application' 자세한 내용은 https : //support.microsoft.com/을 참조하십시오. en-us/help/288902/getobject-and-createobject-behavior-of-office-automation-servers – cyboashu

+0

가지고있는 코드로 원하는 것을 할 수 있습니다. 해당 코드가 끝나면 Excel 통합 문서가 활성화됩니다. 왜 그것이 효과가 없다고 생각합니까? 또는 나머지 매크로 또는 다른 매크로가 활성 응용 프로그램을 Word 응용 프로그램으로 다시 전환하고 Excel 응용 프로그램으로 다시 가져 오려고합니까? (어떤 경우에는 매크로 사이에 'oWB'에 대한 참조 만 전달하면됩니다.) – YowE3K

+0

도움 주셔서 감사합니다. 다음과 같이 할 수 있었지만 GetObject (oSheet) 태그를 사용하여 시트를 참조 할 수없는 것 같습니다. MSFT 문서에서 언급 한 신청서. 다시 한 번 감사드립니다 - CES 희미한 oSheet 문자열로 oSheet = "--Keywording--" 설정 oExcel = GetObject를 ("이 Excel.Application") 설정 oExcel = GetObject를 (oSheet) .Application 'oExcel.Visible = TRUE oExcel.Sheets (oSheet) ' "ALL 기타 사항 서보 -OFF 함께' '.Range. ("A1 : G1000」) 클리어 '.Cells (1,1) ALL 기타 사항 서보 -OFF '.PasteSpecial (xlPasteAll) '. 셀 (1, 1). 셀렉트 ' '로 끝납니다 – CES

답변

0

죄송 합니다만, 매크로 레코더를 켜고 원하는 것을 얻을 수 없습니까?

Sub TryThis() 
    Windows("SecondaryWorkbook.xlsb").Activate 
    Range("A1").Select 
    Windows("PrimaryWorkbook.xls").Activate 
    Range("A1").Select 
End Sub 

저는 Excel의 동일한 인스턴스에 있어야하거나 그렇지 않습니다. AFAIK, 다른 Excel 인스턴스는 서로 통신하지 않습니다 ... 전혀 없습니다.