كيفية القيام بما يلي: سرد كافة أوراق العمل في المصنف
ينطبق على |
---|
تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع. نوع المشروع
إصدار Microsoft Office
|
توفر الفئة Microsoft.Office.Interop.Excel.Workbook كائن Microsoft.Office.Interop.Excel.Worksheets . يحتوي هذا الكائن على مجموعة من كافة كائنات Microsoft.Office.Interop.Excel.Worksheet في المصنف .
لسرد كافة أوراق العمل الموجودة في تخصيص على مستوى المستند
قم بالتكرار خلال المجموعة Worksheets و قم بإرسال اسم كل ورقة لإزاحة الخلية من عنصر التحكم NamedRange .
Private Sub ListSheets() Dim index As Integer = 0 Dim NamedRange1 As Microsoft.Office.Tools.Excel.NamedRange = _ Globals.Sheet1.Controls.AddNamedRange( _ Globals.Sheet1.Range("A1"), "NamedRange1") For Each displayWorksheet As Excel.Worksheet In Globals.ThisWorkbook.Worksheets NamedRange1.Offset(index, 0).Value2 = displayWorksheet.Name index += 1 Next displayWorksheet End Sub
private void ListSheets() { int index = 0; Microsoft.Office.Tools.Excel.NamedRange NamedRange1 = Globals.Sheet1.Controls.AddNamedRange( Globals.Sheet1.Range["A1", missing], "NamedRange1"); foreach (Excel.Worksheet displayWorksheet in Globals.ThisWorkbook.Worksheets) { NamedRange1.Offset[index, 0].Value2 = displayWorksheet.Name; index++; } }
لسرد كافة أوراق العمل الموجودة في مصنف في وظيفة إضافية على مستوى التطبيق
قم بالتكرار خلال المجموعة Worksheets و قم بإرسال اسم كل ورقة لإزاحة الخلية من كائن Microsoft.Office.Interop.Excel.Range .
Private Sub ListSheets() Dim index As Integer = 0 Dim rng As Excel.Range = Me.Application.Range("A1") For Each displayWorksheet As Excel.Worksheet In Me.Application.Worksheets rng.Offset(index, 0).Value2 = displayWorksheet.Name index += 1 Next displayWorksheet End Sub
private void ListSheets() { int index = 0; Excel.Range rng = this.Application.get_Range("A1", missing); foreach (Excel.Worksheet displayWorksheet in this.Application.Worksheets) { rng.get_Offset(index, 0).Value2 = displayWorksheet.Name; index++; } }
راجع أيضًا:
المهام
كيفية القيام بما يلي: إضافة ورق عمل جديد إلى المصنفات
كيفية القيام بما يلي: نقل أوراق العمل بين المصنفات