Excelファイルを開き、シート1をアクティブにしてマクロを実行する

Question

ディレクトリから自分が選択したExcelファイルを参照して選択し、そのExcelファイルでSheet1をアクティブにできるようにするVBAコードを記述する必要があります。その後、マクロを起動したシート上で実行します。開いているファイルを有効にする方法をここから

Sub GetFile() 
Dim fNameAndPath As Variant, wb As Workbook 
Dim sht As Worksheet 

fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLSX), *.XLSX", Title:="Select File To Be Opened") 
If fNameAndPath = False Then Exit Sub 
Set wb = Workbooks.Open(fNameAndPath) 

、そしてどのようにマクロを実行するために、開いているファイルのシート1をアクティブにするには：

前方の下から助けてください？

Answer 1

マクロを実行するために、Activate「Sheet1」は必要ありません。

あなたはActivateそれは、使用しなければならない場合：

Set wb = Workbooks.Open(fNameAndPath) 

' Option 1: set the first sheet (index) 
Set Sht = wb.Worksheets(1) 
' Option 2: set the sheet named "Sheet1" 
Set Sht = wb.Worksheets("Sheet1")  

Sht.Activate ' <-- Not sure why you would need to Activate it ? 

Answer 2

コードは、ワークブックを開き、WB対象に開かれたワークブックを割り当てます。自動的にwbがアクティブになるので、そのためのコードを書く必要はありません。ただ、シート1がアクティブになり、あなたが追加する必要がありますを確認します：「私はマクロが有効にシート上で実行したい」

wb.sheets("Sheet1").activate 

私は非常にあなたが何を意味するかによって取得できませんでした実行されるマクロに依存するからです。などマクロが変更を加えるためにアクティブなシートを使用することを確認してくださいあなたはこれを行うことができ、たとえばオブジェクトactivesheetを使用する必要がありますようにするには：

Dim ws as worksheet 
set ws=activesheet 
' ... 
' do whatever you want on ws in here 
' ...