Excelのレコードクリア (ID:115627)

名前

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

本文

DAO のみ使用も少し試してみましたが、
    RS.Fields(j - 1) = ""
で見た目は消えますが、セルを使用しているという情報は残るみたいですね。
WorkSheet オブジェクトで行削除しますかねぇ。うまい方法を思いつきません。

[VB6.0]見た目は消えると思われるコード(DAO のみ使用)
Private Sub WriteListViewDataToDAOExcel(ByVal ListViewX As ListView)
    Dim DB          As DAO.Database
    Dim RS          As DAO.Recordset
    Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
    Set RS = DB.OpenRecordset(xlSheetName)
    
    Dim wRowMax As Long
    Dim wColMax As Long
    Dim i As Long
    Dim j As Long
    Dim wStartRow As Long
    
    wStartRow = 6 - 1 ' Row は 0 始まり
    RS.Move wStartRow
    
    With ListViewX
        wRowMax = .ListItems.Count
        wColMax = .ColumnHeaders.Count
        With .ListItems
            i = 1
            Do Until RS.EOF
                RS.Edit
                For j = 1 To RS.Fields.Count
                    If i <= wRowMax And j <= wColMax Then
                        If j = 1 Then
                            RS.Fields(j - 1) = .Item(i)
                        Else
                            RS.Fields(j - 1) = .Item(i).SubItems(j - 1)
                        End If
                    Else
                        RS.Fields(j - 1) = ""
                    End If
                Next
                RS.Update
                
                i = i + 1
                RS.MoveNext
            Loop
        End With
    End With
End Sub

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

戻る