スプレッドの列ヘッダ部分をExcelに出力するには？

ディム 2004-09-24 11:46:10 No: 116493 IP: [192.*.*.*]

VB6.0、Spread6.0です。
表題の通りですが、スプレッドのデータをExcelに出力するとき
ExportToExcelを使うとデータのみ出力されます。
同時に列ヘッダを表示する方法はあるでしょうか？

+id_rsa 2004-09-24 23:31:01 No: 116494 IP: [192.*.*.*]

Public Sub ExportExcelFile(FileName As String,IsTabCsv As Boolean)
Dim Value As Variant
Dim Col As Long

    With Spread
        .Row = 1:   .Action = ActionInsertRow
        For Col = 1 To .MaxCols
            .Col = Col: .CellType = CellTypeStaticText
            If .GetText(Col, 0, Value) Then .SetText Col, 1, Value
        Next Col
        Select Case IsTabCsv
            Case True:  .SaveTabFile FileName
            Case Else:  .ExportToExcel FileName, "", ""
        End Select
        .Row = 1:   .Action = ActionDeleteRow
    End With
End Sub

編集削除

a 2006-01-26 15:49:42 No: 116495 IP: [192.*.*.*]

Public Function gfnc_Export_Spread(ByVal Hw_Spread_Name_Obj As Object, _
                                   ByVal Hw_ExcelSheet_Path_Str As String, _
                                   ByVal Hw_ExcelSheet_Name_Str As String, _
                                   ByVal Hw_ExcelLog_Path_Str As String, _
                                   ByVal Hw_IsTabCsv_Bln As Boolean, _
                                   ByVal Hw_ProgramID_Str As String) As Boolean
'*********************************************************************************************************
'* 関数名  ：gfnc_Export_Spread
'* 処理内容：スプレッドシートの内容を見出しとヘッダーを付加してエクセルに落とす処理
'* 引数１  ：ByVal Hw_Spread_Name_Obj     As Object    :対象となるスプレッドの名称
'* 引数２  ：ByVal Hw_ExcelSheet_Path_Str As String    :対象となるエクセルのパス
'* 引数３  ：ByVal Hw_ExcelSheet_Name_Str As String    :出力するエクセルのシート名
'* 引数４  ：ByVal Hw_ExcelLog_Path_Str   As String    :ログのパス
'* 引数５  ：ByVal Hw_IsTabCsv_Bln        As String    :処理の切り替えフラグ
'* 引数６  ：ByVal Hw_ProgramID_Str       As String    :プログラムID
'* 戻り値  ：TRUE(OK) FALSE(NG)
'* 作成者  ：
'* 作成日  ：2006/01/26
'* 更新者  ：
'* 更新日  ：
'* 更新内容：
'*********************************************************************************************************

    On Error GoTo gfnc_Export_Spread_Err

    With Hw_Spread_Name_Obj
        .ReDraw = False
        '対象となるスプレッドシートに行を追加する。
        .MaxRows = .MaxRows + 2
        .Row = 1: .Row2 = 2
        .BlockMode = True
        .Action = ActionInsertRow
        .BlockMode = False

        '追加された行にヘッダーの内容と、見出しの内容をセットする。
        For Col = 1 To .MaxCols
            If .Col = 7 Then .SetText Col, 1, "鋼材リスト"
            .Col = Col: .CellType = CellTypeStaticText
            If .GetText(Col, 0, Value) Then .SetText Col, 2, Value
        Next Col

        'タブ区切りファイルに保存/Excel形式ファイルのシートにエクスポート。
        Select Case Hw_IsTabCsv_Bln
            Case True:  .SaveTabFile Hw_ExcelSheet_Path_Str

            Case Else:  .ExportToExcel Hw_ExcelSheet_Path_Str, _
                                       Hw_ExcelSheet_Name_Str, _
                                       Hw_ExcelLog_Path_Str
        End Select

        .Row = 1: .Row2 = 2
        .BlockMode = True
        .Action = ActionDeleteRow
        .BlockMode = False
        .MaxRows = .MaxRows - 2

        .ReDraw = True
    End With

    Exit Function

gfnc_Export_Spread_Err:
    Call gfnc_Err_MsgBox(Err.Description, Hw_ProgramID_Str, 1)

End Function

編集削除