投稿時間：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 '…②
|