excel - マクロを使用してmppファイルからExcelにデータをコピーする方法

Question

Excel を使用して、MPP の列の特定のデータを別の列にコピーするマクロを作成したいと考えています。

ある Excel から別の Excel にデータをコピーするコードを見つけました。助けてください

Option Explicit

Sub CopytoPS()
    Dim sfil As String
    Dim owbk As Workbook
    Dim sPath As String

    sPath = "C:\Users\HYMC\Excel\Test\" 'Change the file path for your purposes
    sfil = Dir(sPath & "Management Report PS.xls")

    Range("A2:I22").Copy

    Set owbk = Workbooks.Open(sPath & sfil)
    owbk.Sheets("Sales Data").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    owbk.Close True 'Save opened workbook and close
    sfil = Dir
End Sub

MPP の特定の列を Excel の一連の列にコピーしたい。また、コピー先のファイルパス、ソースファイル、コピー元のセル、およびコピー先のセルをユーザーに指定してもらいたい

score 0 · Accepted Answer

Excel で MPP ファイルを操作するには、VBA エディターを開き、[ツール] メニューの [参照設定] をクリックします。[使用可能な参照] の一覧で、[Microsoft Project xx.xx オブジェクトライブラリ] チェックボックスをオンにします。Microsoft Project 9.0 オブジェクトライブラリが表示されない場合は、[参照] をクリックして、Microsoft Project がインストールされているフォルダにある MsprjXX.olb ファイルを探します。デフォルトの場所は C:\Program Files\Microsoft Office\Office です。[OK] をクリックして [参照設定] ダイアログボックスを閉じます。次に、このコードを使用します。

コピーしたいものと場所を正確に言及していないので、作業できる非常に基本的なコードを提供します。

'~~> Code to open MPP file in Excel
Sub Sample()
    Dim appProj As MSProject.Application
    Dim aProg As MSProject.Project
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ActiveWorkbook

    '~~> This is the Sheet Where you want the data to be copied
    Set ws = wb.Sheets("Sheet1")

    Set appProj = CreateObject("Msproject.Application")

    '~~> This is a MS Project File. Change path as applicable.
    appProj.FileOpen "C:\MS Project.mpp"

    Set aProg = appProj.ActiveProject

    appProj.Visible = True

    '~~> Now you have the MPP file opened, rest of the code goes here
End Sub