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

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

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

←解決時は質問者本人がここをチェックしてください。

戻る