VBA：関数への引数としてワークシートを渡すときに正しいブックを呼び出す方法

Question

VBAのワークブックの正しいアドレスに関する質問があります。これはかなり新しいです。

これまで行ってきたことは次のとおりです。
CodeName "table10"のワークシートを作成するサブを作成しました。この機能

Text_To_Numbers(worksheet as worksheet) 

ワークシートの引数を期待：

は、その後、私は言ったシートの内容を操作する機能を定義しました。ここに私の問題であり、今

Call Text_To_Numbers(table10) 

：私は、次の行を使用して別のサブからの関数を呼び出すだけ開いているブックは、私は私の機能と操作したいものです
上記作品完璧とき。ただし、複数の開いているブックがある場合、この関数は別のブックを操作しようとし、エラーが発生します。

使用するワークブックを指定する方法が必要であることは確かですが、見つけられません。つまり、別の複雑さがあります。私が操作したいワークブックの名前はマシンで生成されるため、常に別の名前が付けられます。つまり、同じファイル名への明示的な参照を何度も使用することはオプションではありません。

誰でも私がこれを解決するのに役立つでしょうか？

Answer 1

VBAのオブジェクトは、親が何であるかあいまいな状況を避けるために、完全に修飾する必要があります。

状況によっては、シートを親ブックに接続する必要があります。そのブックが特定のブックから来たものであることを確認してください。あなたが直接そのコードネームにより他のブック内のワークシートを参照することはできません

、これが唯一のThisWorkbookオブジェクト（VBAコードを含むブック）に行うことができます。別のブックからコードネームでシートを取得する方法の詳細については、Fully reference a worksheet by codenameの質問を参照してください。私は答えにこの関数を含め、この文脈でそれをどのように使用するのかを考えました。

あなたは、次のいずれかのシートtable10を作成しました：

• ActiveWorkbook
• はThisWorkbook
• WB（一部のワークブックオブジェクト）

だから、そのワークブックオブジェクトを使用してアクセスすることができます名前の必要性なしに！ ThisWorkbook.table10を使用して

---

はちょうどtable10と同じ動作を与える必要がありますが、ここで関数を呼び出すための2つのすっきり例があります。

' A neater way to call the function: 
Text_To_Numbers worksheet:=ThisWorkbook.table10 
' You could also call it simply using 
Text_To_Numbers ThisWorkbook.table10 

---

あなたのシートがThisWorkbook

' Get sheet (from the workbook object you are using, WB) and pass to your Text_To_Numbers 
Text_To_Numbers GetSheetWithCodename("table10", WB) 

Function GetSheetWithCodename(ByVal worksheetCodename As String, Optional wb As Workbook) As Worksheet 
    Dim iSheet As Long 
    If wb Is Nothing Then Set wb = ThisWorkbook ' mimics the default behaviour 
    For iSheet = 1 To wb.Worksheets.Count 
     If wb.Worksheets(iSheet).CodeName = worksheetCodename Then 
      Set GetSheetWithCodename = wb.Worksheets(iSheet) 
      Exit Function 
     End If 
    Next iSheet 
End Function 

Answer 2

内にない場合は、いくつかの作業を行う必要がある場合は、この方法でそれを呼び出してその変数に、ブックやシートを割り当ててみそれに：

Dim WB As Workbook 

Dim WS As Worksheet 

'If you want to open the workbook before doing work 
Set WB = Workbooks.Open("/Workbook path name goes here”) 

Set WS = WB.Worksheets("Table‌​10") 

次に、指定したシート内で操作を実行するために、関数内からWS変数への呼び出しを渡すだけです。

編集：

謝罪、あなたは私が最初にあなたの質問を読んだとき、プロジェクトエディタでインデックス名を参照しようとしていたことに気づきませんでした。アイデアのためのEnderlandへ

Sub UseCodeNameFromOutsideProject() 
Dim WS As Worksheet 
With Workbooks("MyWorkbook.xlsb") 
    Set WS = _ 
     .Worksheets(CStr(.VBProject.VBComponents("Sheet1").Properties(7))) 
     WS.Range("A1").Copy 
     Selection.Copy 
     WS.Range("B1").PasteSpecial 
End With 
End Sub 

ありがとう：コードネームは別のワークブックからのコピー/貼り付けを実行するために、ブックやシートのコードネームを選択する方法を示し、次の例で、外部のブックから参照することができます。