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

注：間隔刪除指定的行