때때로 우리는 프로그램을 통해 MS 프로젝트를 조작해야 한다. (우리 회사는 회사의 기존 프로젝트 관리 플랫폼의 임무를 MS 프로젝트로 가져와야 했다.) 프로젝트는 다른 Microsoft 사무용 소프트웨어, Word 및 Excel 과 유사하며 VBA 를 통해 작동할 수 있습니다.

다음은 VB 로 쓴 일반 클래스입니다. Ne 는 VBA 에 전화해서 MS 프로젝트를 조작한다.

이 클래스는 프로젝트 파일 작성 및 열기, 작업 추가, 작업 승격 및 강등, 프로젝트 저장 등의 일반적인 기능을 제공합니다.

자세한 내용은 주의사항을 참조하십시오.

공용 클래스 항목

작성자: 손041201

Dimmprjapp 는 MSProject 로 사용됩니다. "응용프로그램" 은 VB.Net 의 msproject 클래스 라이브러리를 의미합니다.

"Dim mRow As Integer = 0" 은 프로젝트에 있는 작업의 행 번호를 기록합니다.

공용 자식 새 ()

MPrjApp = 신규 MSProject. Application end subpublic subnewproject ()

MPrjApp 입니다. FileNew ()' 새 프로젝트 파일 끝 하위 만들기' 프로젝트를 데이터베이스로 저장할 수 있습니다. 데이터베이스로 저장하면 ODBC 를 통해 이 프로젝트 파일을 직접 열 수 있습니다.

물론 데이터베이스 프로젝트에 익숙한 경우 데이터베이스의 데이터를 직접 조작하여 프로젝트 파일을 수정할 수 있습니다. Microsoft 는 이미 데이터베이스 구조에 대한 설명을 제공했지만, 그다지 상세하지는 않으며, 이 방면의 공식 자료도 비교적 적다. 나중에 ODBC 를 통해 문장 데이터베이스를 조작하는 것에 대한 기사를 쓰겠습니다.

Public Sub Open(ByVal ODBCName 은 문자열, ByVal ProjectName 은 문자열)

MPrjApp 입니다. 파일 열기 ("<+odbcname+"> \ "+projectname) end subpublic subnew project (byval tmp filename 을 문자열로 사용)

Dim template name as object = tmp filename

MPrjApp 입니다. FileNew(False, template name) end subpublic subsave as (byval file path as string)

유로파가 있다면. 파일이 있음 (파일 경로)

입출력. File.delete (파일 경로) end ifmprjapp 입니다. 파일을 다른 이름으로 저장 (FilePath, MSProject). Pj fileformat.pjm PP) end subpublic subadd task (byval taskname 은 문자열, ByVal StartDate 는 문자열, ByVal FinishDate 는 문자열, 선택적 byval REE

MPrjApp 입니다. 작업 필드 선택 (mRow, 이름)

MPrjApp 입니다. SetTaskField ("이름", 작업 이름)

MPrjApp 입니다. SetTaskField ("시작 시간", 시작 날짜)

MPrjApp 입니다. SetTaskField ("완료 날짜")

MPrjApp 입니다. SetTaskField ("Resource name", resource)' 여기서 자원은 임무가 할당된 사람, mrow =1end subpublic subdegradation () 을 나타냅니다.

MPrjApp 입니다. Outlineindent (1) end subpublic subupgrade ()

MPrjApp 입니다. Outlineoutent (1) endsubpublic subclose ()

MPrjApp 입니다. FileCloseAll(MSProject. PjSaveType.pjDoNotSave)

MPrjApp 입니다. Quit()End SubEnd 클래스의 예 (C#):

Projectprj = newproject ();

Prj 입니다. Newproject ("d: \ test \ test.mpp");