- 日時： 2008/07/19 14:11
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：シート数,シート名,追加・削除,シート名の一覧 *
***********************************************************************************
元質問：VBからExcelシートを操作したいのですが。 - ゆうや 2002/10/04-17:52 No.847
VBから新規Bookを作って、データを書き込んで保存したいのですが、Sheetの枚数を追加、削除したいと思っているのですが、よく分かりません。
あと、同時に、Sheet名をVBから変更したいのですが、方法が分かりません。
-----------------------------------------------------------------------------------
Re: VBからExcelシートを操作したいのです.. - Say 2002/10/05-00:53 No.850
-----------------------------------------------------------------------------------
Excel Object 操作のコードがわからないときは、Excelで「新しいマクロの記録」を用いて
一連の操作をやってみる、というのは常道手段です。
Sheets → WorkSheets に置き換える必要があったりしますから、得られるコードはあくまで参考資料に過ぎませんが・・・。
-----------------------------------------------------------------------------------
シート数・シート名の取得及びシートの追加・削除 - 花ちゃん 2007/08/09
-----------------------------------------------------------------------------------
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
'Excel 操作部分(シート数・シート名の取得及びシートの追加・削除）
Dim xlSheet1 As Excel.Worksheet
'シート数の取得
Debug.Print xlBook.Worksheets.Count '3
'新規にシートを追加
Set xlSheet1 = xlBook.Worksheets.Add
'追加したシートの名前を取得
Debug.Print xlSheet1.Name 'Sheet4
'追加したシートの名前を変更
xlSheet1.Name = "Test1"
'変更したシート名を取得(確認）
Debug.Print xlSheet1.Name 'Test1
'シート数を取得
Debug.Print xlBook.Worksheets.Count '4
'追加したシートを削除
xlBook.Worksheets("Test1").Delete
'シート数を取得
Debug.Print xlBook.Worksheets.Count '3
'シート名の取得
Dim Sheet As Excel.Worksheet
For Each Sheet In xlBook.Worksheets
Debug.Print Sheet.Name
Next
'-----------------------------------------------------------------------
'新規にBook を開いた時に表示したいシート数を設定する場合
'Excelのツール→オプション→全般→新しいブックのシート数 の設定と同じ
xlApp.SheetsInNewWorkbook = 1
'Book をオープンする前に書いて下さい。
'-----------------------------------------------------------------------
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
|
シート数・シート名の取得及びシートの追加・削除（VB6.0 基本編）