0

委員会計算表を歯科委員会レポートにコピーするマクロを作成しようとしています。問題は、宛先に「June Dental Commissions v5.xlsm」という固定名があることです。「June Dental Commissions v5.xlsm」を、マクロで現在のワークブックとして定義する変数に置き換える方法はありますか?

Workbooks.Open Filename:= _
    "X:\Customer Service\Dental Reports\Commission Report Calculation\Commission Calculation Tables.xlsx"
Sheets(Array("Entire Commission Table", "Zip & Terr List May 2013", _
    "Abbreviation Finder")).Select
Sheets("Zip & Terr List May 2013").Activate
Sheets(Array("Entire Commission Table", "Zip & Terr List May 2013", _
    "Abbreviation Finder")).Copy Before:=Workbooks( _
    "June Dental Commissions v5.xlsm").Sheets(4)
4

2 に答える 2

1

マクロがアクティブなファイルにない場合は、この Tim のコードの適応を使用してください

Dim wb as Workbook, fName as string, fPath as string, wbDest as workbook

fPath = "X:\Customer Service\Dental Reports\Commission Report Calculation\"
fName = "Commission Calculation Tables.xlsx"

set wbDest=activeworkbook
Set wb = Workbooks.Open(fPath & fName)

wb.Sheets(Array("Entire Commission Table", "Zip & Terr List May 2013", _
    "Abbreviation Finder")).Copy Before:=wbDest.Sheets(4)

wb.close(false)
于 2013-07-18T17:25:33.910 に答える