vb做的excel小软件

Private Sub Command1_Click()
     CD1.Filter = "*.xls"
     CD1.ShowOpen
     FileName.Text = Trim(CD1.FileName)
End Sub

Private Sub Submit_Click()

   
    FileName = Trim(FileName.Text)
    BeginValue = Val(Trim(BeginValue.Text))
    EndValue = Val(Trim(EndValue.Text))
    jg = Val(Trim(jg.Text))
    If "" = FileName Then
        MsgBox "请选择文件"
        FileName = Trim(CD1.FileName)
        FileName.Text = Trim(CD1.FileName)
    Else
        result = delete(FileName,BeginValue,EndValue,jg)
        MsgBox "删除成功"
    End If
    
End Sub
Function delete(ByVal FileName As String,ByVal BeginValue As Integer,ByVal EndValue As Integer,ByVal jg As Integer)
    Dim i As Integer
    Set x = CreateObject("excel.application")
    Set xbook = x.Workbooks.Open(FileName)
    'Set xsheet = x.Worksheets("sheet1")
    Set xsheet = x.ActiveSheet
    For i = BeginValue To EndValue Step jg
        xsheet.range("A" & i).EntireRow.delete
    Next i
    xbook.save
    xbook.Close
    delete = 1
End Function

注：间隔删除指定的行

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!