Excel VBAをクローズドブックからアクティブブックに値としてコピーして貼り付けるには、Mac OS X

Question

これはよくある質問ですが、アクティブな状態で特定のインスタンスにまだ回答が見つかりません検索。私はまた、新しいVBAのユーザーですので、私に同行してください。

クローズドブックからアクティブなブックへのライブ式（範囲A1：HW6000）を含むデータシート（HISTORY.XLSMのAllDATAタブ）全体をインポートしたいが、アクティブブックに値として貼り付けるだけです。より簡単には、閉鎖されたワークブックからシートをアクティブなワークシートに値として（ライブ形式ではなく）複製する必要があります。私は、Mac OS Xの

日午前

は、これは私が（アクティブなブックからのコードを実行している）で作業されているコードです。

Sub GetRange() 
    With Range("A1:HW6000") 
    .Formula = "='C:\[HISTORY.xlsm]ALLDATA'!A1" 
    .Value = .Value 
End With 
End Sub 

このコードは、実際の貼り付けられた値を実際の貼り付けられた値ではなくフォーマットをインポートするようです。

アイデア？

Answer 1

あなたは、これは素晴らしいですその

Sub ImportData() 
    Dim App As New Excel.Application 'create a new (hidden) Excel 

    ' remember active sheet 
    Dim wsActive As Worksheet 
    Set wsActive = ThisWorkbook.ActiveSheet 

    ' open the import workbook in new Excel (as read only) 
    Dim wbImport As Workbook 
    Set wbImport = App.Workbooks.Open(Filename:="C:\History.xlsm", UpdateLinks:=True, ReadOnly:=True) 

    'copy the data of the import sheet 
    wbImport.Worksheets("AllDATA").Range("A1:HW6000").Copy 
    wsActive.Range("A1").PasteSpecial Paste:=xlPasteFormats 'paste formats 
    wsActive.Range("A1").PasteSpecial Paste:=xlPasteValues 'paste values 

    App.CutCopyMode = False 'clear clipboard (prevents asking when wb is closed) 
    wbImport.Close SaveChanges:=False 'close wb without saving 
    App.Quit 'quit the hidden Excel 
End Sub