VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/03/29(Sat) 11:15
投稿者： みー
Ｅメール：
ＵＲＬ：
タイトル： Excelのヘッダーの設定について

はじめまして、みーと申します。

現在Webの開発をしているのですが、ASPからCOMを呼び出し、COM内でExcelの編集を行って
います。
作成したExcelの帳票はシートが３枚あり、それぞれ1ページづつ出力されるようにExcelに
印刷ボタンを設けています。


Private xlApp               As Excel.Application    'Excelアプリケーション
Private xlBook              As Excel.Workbook       'ワークブック
Private xlSheet             As Excel.Worksheet      'シート

'■Excelの起動
　　Set xlApp = CreateObject("Excel.Application")
    
'Excelを開く
    Set xlBook = xlApp.Workbooks.Open(sAllPath)

'1シート目の書込み
Set xlSheet = xlBook.Worksheets(CNST_PR2)
　　　　　　　　・

　　　　　　　　・
　　　　　　　　・

'2シート目の書込み
Set xlSheet = xlBook.Worksheets(CNST_PR2)
'ヘッダーに1シート目の"D7"の値をセット
xlSheet.PageSetup.RightHeader = xlBook.Worksheets(CNST_PR1).Range("D7").Value & "　" & Format(Date, "yyyy/mm/dd")

という形で、ヘッダーを設定しています。
自社の環境では、VB6.0 sp5でExcel2000、Excel97でこの設定はうまくいくのですが
お客様のところでは

"PageSetupクラスのRightHeaderプロパティを設定できません"
というエラーが発生しています。
環境はVB6.0 sp5でExcel97です。
自社で再現ができずに困っています。

どなたか解決策をお教えくださいませんか？

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -