VBからExcelにデータを出力する時、ヘッダーを設定するには？

解決

CCC 2006-04-17 22:43:31 No: 95088

VB(6.0)からExcel2000にデータをExportする時、できたExcelのヘダーにタイトルが設定されているようにするのはどうしたらいいでしょうか。エクスポートするデータは、Oracleに保持されています。よろしくお願いいたします。

Blue 2006-04-17 22:59:35 No: 95089

ヘッダにタイトルを設定する作業を、
Excelの "マクロの記録" で記録したコードを参考にしてみてはどうでしょうか？

CCC 2006-04-17 23:17:47 No: 95090

Blue様 Excelがあまり詳しくないので、できましたら具体的に教えていただけますと助かります。VBのコードで設定できる方法をご教授願います。よろしくお願いします。

Blue 2006-04-18 00:23:51 No: 95091

> Excelがあまり詳しくないので
こんなのGoogle検索すればすぐ出てくるんですけど。

マクロの記録をすると
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2006/4/17 ユーザー名 : Blue
'

'
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "たいとる"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.787)
        .RightMargin = Application.InchesToPoints(0.787)
        .TopMargin = Application.InchesToPoints(0.984)
        .BottomMargin = Application.InchesToPoints(0.984)
        .HeaderMargin = Application.InchesToPoints(0.512)
        .FooterMargin = Application.InchesToPoints(0.512)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub
のようなコードができます。

問題になりそうなのは、

    With ActiveSheet.PageSetup
        .CenterHeader = "たいとる"
    End With

ここらへんでしょうか。
Oracleのデータを書き込むシートオブジェクトのPagetSetupプロパティを設定すればできそうです。

objSheet.PageSetup.CenterHeader = "たいとる"

みたいに。(ソースが１行もかかれていないのでこれ以上はかけません)

もげ 2006-04-18 01:29:10 No: 95092

[XL2003] [INFO] Visual Basic から Excel にデータを転送する方法
http://support.microsoft.com/kb/247412/

'ソースが１行もかかれていないのでリンクのみ

CCC 2006-04-18 20:11:59 No: 95093

BLUE様、もげ様、ありがとうございました。無事解決しました。