问题：在日常工作中需要对庞大的EXCEL部分数据进行删除，例如下面在网上找的代码，在第9行的  ("2:7619")  说的是删除表格第2行----7619行，但是程序一旦生产应用程序就不能更改了。请问各位老师 能不能在窗体上放一个控件 text1 ，以后直接在空间里输入  "x:x".
[code]'菜单“工程/引用”，勾选Microsoft Excel 11库，必须的
Private Sub Command1_Click()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Set xlApp = CreateObject("Excel.Application")
On Error GoTo prcERR
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls") '打开你的EXCEL文件
Set xlSheet = xlBook.Worksheets(1) '第一个表格
xlSheet.Application.Visible = True '设置Excel 可见
 xlSheet.Rows("2:7619").Delete Shift:=xlUp '假如要删除第1行。删除第2行就是"2:2"，删除1-3行就是"1:3"
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Exit Sub
prcERR:
 Debug.Print Err.Number & ":" & Err.Description
End Sub

[此贴子已经被作者于2018-12-19 23:54编辑过]