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