VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/09/16(Tue) 16:25 |
| 投稿者 | ： RUN |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: Excelシートのコピーについて |
ありがとうございます。
実際は下記のようなコードになっています。
Dim app As Excel.Application
Dim work1 As Excel.Workbook
Dim work2 As Excel.Workbook
Dim sheet1 As Excel.Worksheet
Dim sheet2 As Excel.Worksheet
Set app = CreateObject("Excel.Application")
Set work1= app.Workbooks.Open("C:\template.xlt")
Set work2 = app.Workbooks.Open("C:\copyfile.xls")
Set sheet1 = work1.Worksheets("Sheet1")
Set sheet2 = work2.Worksheets("Sheet1")
sheet1.Copy Before:=sheet2
コピーはシートからシートをパラメータとして指定するのではないのでしょうか？
ただ、このままだとコピー先のcopyfile.xlsではSheet1が既に存在しているのに、
既に存在しているSheet1にはコピーされず、Sheet1(2)というシートを新規作成して
そこにコピーされてしまいます。
テンプレートの中身を毎回、xlsファイルのシートへコピーさせたいというのが処理したい
ことです。
上記だと、テンプレートのSheet1の内容をxlsのSheet1へコピーというように。
それで、コピーする前に、Sheet1を削除して、そのあとコピーすればSheet1を新規作成して
くれるのかと思ったのですが、作成されずにsheet1.Copy Before:=sheet2の処理のところで
エラーが出てしまいました。
すみません。もしわかればよろしくお願いいたします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）