WordからExcelシートのCodeNameを参照する方法は？

Question

WordマクロでExcelシートのCodeNameを使用します。ただし、Wordでは、プロパティが動作していないようです。

この作品は、作品：

Dim sht As Object 
Dim xlsobj_2 As Object 
Dim sheetName As String 

Set xlsobj_2 = CreateObject("Excel.Application") 
xlsobj_2.Application.Visible = True 'I can see it opens as I expected. 
Set xlsfile = xlsobj_2.Application.Workbooks.Open(folder & fileName, UpdateLinks:=0) 'You can create your own excel file. 
Set sht = xlsfile.Sheets(sheetName) 
MsgBox sht.Name 'This gives me the name of the sheet and I know it is correct. 

私が欲しいものである。これは動作しません：

Dim sht As Object 
Dim sheetName As String 
Dim sheetName As String 

...'Same as above. 

MsgBox sht.CodeName 

は、あなたのスマートな人々をありがとうございました！

Answer 1

シートが作成された後、最初にVisual Basic Editorに入ると、ワークシートにはCodeNameが割り当てられます。

CodeNameが割り当てられるまで、.CodeNameプロパティは空の文字列を返します。

---

この影響はしばしば混乱します。たとえば、デフォルトの3空のワークシートで新しいブックを開く場合、あなたはすぐに最初のものの前に別のワークシートを挿入し、その後はVBEに行くそして、あなたは

• ワークシート（「シート4」を持つことになります）"Sheet4"のNameを有し、CodeName
Sheet1のワークシート（ "シート1"） "Sheet1"の Nameを有し、 CodeName
Sheet2のワークシート（ "シート2"）は "Sheet2"の Nameを有します "Sheet3"と Sheet4