VB6.0用掲示板の過去のログ(No.1)－VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2002/09/26(Thu) 14:58 |
| 投稿者 | ： よかろうもん。 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： VBからExcel操作で。 |
１シートしか持たない、雛型ファイル(TEST.xls)を開き、
シートに名前「TEST1」を付けます。
そのときある条件の時、シートを追加します。…①
そして、そのシートに名前「TEST2」を付けます。
その後、「TEST1」シートから使用するので、「TEST」シートを
アクティブにしたく(②)としたのですが上手くいきません。
何処に間違いがあるのか指摘してください。
また、「TEST1」から「TEST2」へコピー＆ペーストを行いたいのですが、
こうやったら簡単だよって記述があれば教えて下さい。
宜しくお願い致します。
---
Set objExcel = CreateObject("Excel.Application.8")
Set objBook = objExcel.Workbooks.Open(E:\TEST.xls)
Set objSheet = objBook.Sheets("Sheet1")
objBook.Sheets("Sheet1").Name = "TEST1"
if ある条件 '…①
Set objSheet = objBook.Sheets.Add
objBook.Sheets("Sheet1").Name = "TEST2"
endif
objBook.Sheets("TEST1").Select '…②
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）