2

Excel VBAを使用して、テンプレートワークブックから新しいワークブックにシートをコピーする次のコードがあります。

Dim wkbSource As Workbook
Dim wkbDest As Workbook
Dim shtToCopy As Worksheet

'Opens Template file, and the new workbook.
            Set wkbSource = Workbooks.Open(MyPath & "Template.xlsx")
            Set wkbDest = Workbooks.Open(MyPath2 & "NewBook.xlsx")

            'Copys the "Approval sheet" Tab from the Template to the new workbook
            Set shtToCopy = wkbSource.Sheets(" Approval sheet")
            shtToCopy.Copy wkbDest.Sheets(1)

            'Copys the "ECL (1)" Tab from the Template to the new workbook
            Set shtToCopy = wkbSource.Sheets("ECL (1)")
            shtToCopy.Copy wkbDest.Sheets(2)

問題は、テンプレート ブックからコピーされた数式が、新しいブック内のセルにリンクするのではなく、テンプレート ファイル内のセルにリンクすることです。

どうすればこれを修正できますか?

4

1 に答える 1

1

このように、両方のシートを 1 回の操作でコピーする必要があります。

    wkbSource.Worksheets(Array(" Approval sheet", "ECL (1)")).Copy wkbDest.Sheets(2)
于 2013-02-11T18:42:56.493 に答える