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

名前

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

本文 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