macintosh에서 excel vba를 사용하여 파워 포인트를 열어보기

Question

나는이 주제에 대해 많은 연구를 해왔고, 저에게 도움이되는 것을 찾을 수없는 것 같습니다. 내 프로젝트는 사용자가 Excel 파일에 데이터를 채우는 역할을합니다. 사용자가 Excel을 끝내고 자동으로 그것을 파워 포인트로 채우는 finish를 누릅니다. 파워 포인트 "ExcelUseThisOne")은 이미 만들어져 있으며 바탕 화면의 폴더 ("파워 포인트"라고 함)에 저장됩니다. 파워 포인트를 열고 파워 포인트를 자동으로 채우고 저장 한 다음 파워 포인트를 닫으려는 엑셀 파일을 원합니다. 이 맥을 PC에서 작동하지만이 을 여기에 내가 일 것이라고 생각 파워 포인트를 열기에 내 코드,하지만하지 않습니다.!.

UserName = InputBox(Prompt:="You name please.", Title:="ENTER YOUR NAME", Default:="all LOWERCASE and ONE WORD") 
Dim strPresPath As String, strExcelFilePath As String, strNewPresPath As String 
strPresPath = ":Users:" & UserName & ":Desktop:PowerPoint:ExcelUsesThisOne.ppt" 
FilePath = ":Users:" & UserName & ":Desktop:PowerPoint:NewPresentation.ppt" 
strNewPresPath = FilePath 
Set oPPTApp = CreateObject("PowerPoint.Application") 
oPPTApp.Visible = msoTrue 
Set oPPTFile = oPPTApp.Presentations.Open(strPresPath) 

어떤 도움이 좋을 것 감사

Answer 1

을

확실하지 않지만 Mac이 이 아니고은 파일 확장자를 사용하므로 Mac에서 시도해 볼 수 있습니다.

strPresPath = ":Users:" & UserName & ":Desktop:PowerPoint:ExcelUsesThisOne" 

다른 가능한 이유는 사용자 이름이 잘못 입력 되었기 때문일 수 있습니다.

strPresPath = ":Users:" & Environ("username") & ":Desktop:PowerPoint:ExcelUsesThisOne" 

또는 파일 확장자 (다시, 내가 파일에 대한 특정 100 % 아니에요과 그 접근 방법을 시도 :이 대신 입력 상자의 이러한 옵션 중 하나를 시도 할 수 있습니다, 맥에서 작동합니다 생각 Mac OS에서는 사용되지 않는 확장 기능).

당신은 볼륨 이름, 예컨대해야 할 수도 있습니다 :.

strPresPath = "volume_name:Users:..."` 

그렇지 않으면, 당신은 당신에게 경로 문자열을 공식화하는 올바른 방법을 보여 주어야 다른 통합 문서의 경로를 확인하여 디버깅 할 수 있습니다.

행운을 빈다.