Question

如何用VBS删除excel文件多行

（1）文件夹中有多个xls工作簿，只对文件名为DQS.XLS起作用

（2）DQS.XLS里面只有一张工作表，先删除第一列，再删除第一行到第1000行，提示退出完成

哪位能帮我写一个VBS，谢谢了
不好意思，我要的是VBS，不是VBA，能不能再改一下

Answer 1

注：Range("A1").EntireColumn.Delete 这样是删除A1整列

       Range("A1").EntireRow.Delete 这样是删除A1整行

        Range("A1").Delete 这是删除A1单元格  A2单元格会移上去

     上述命令就好像 你选中A1单元格后，右击选择 -》删除 ，在弹出对话框中有四个选项

Answer 2

我写了个，测试能用。

有二个前提：1、DQS.XLS文件与VBS文件在同一文件夹内；2、在用VBS操作DQS.XLS时，确保DQS.XLS存在，而且没有被打开。

删除成功后，会提示“操作完成”

 

具体代码：

 

dim FsoSetmp
dim FSetmp
dim WSetmp
dim SSetmp
dim a

a = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)
set FsoSetmp =  CreateObject("Scripting.FileSystemObject")
Set FSetmp = CreateObject("Excel.Application")
Set WSetmp = FSetmp.workbooks.open(a &"\DQS.XLS")
set SSetmp = FSetmp.worksheets(1)

with SSetmp
    .Columns("A:A").Delete
    .Rows("1:1000").Delete
end with

WSetmp.close True
FSetmp.quit

Msgbox "操作完成"

-----------------------------------------------------------------------

 

具体文件，请下载附件，将文件放在DQS.XLS同一位置，双击执行便可。

Answer 3

Private Sub filesexcel_Click()
Dim fd As Object
 Dim fso As Object
 Dim mydir As String
 Set fso = CreateObject("Scripting.FileSystemObject")
    '开启Excel内建的资料夹浏览方块
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show = -1 Then
        LookIn = fd.SelectedItems(1)
        mydir = fd.SelectedItems(1)
        mydir = mydir & "\"
    Else
        MsgBox "您未选择浏览目标文件夹!", 48, "系统提示": Exit Sub
    End If
   Application.ScreenUpdating = False
   Dim i As Long
   Dim strName As String
   Dim strNewNme As String
   nm = Dir(mydir & "DQS.XLS")
   Application.DisplayAlerts = False
        If nm = "DQS.XLS" Then
        Workbooks.Open Filename:=mydir & "DQS.XLS"
   Application.Columns("A:A").Delete Shift:=xlToLeft
   Application.Rows("1:1000").Delete Shift:=xlUp
MsgBox "DQS.XLS里面只有一张工作表，先删除第一列，再删除第一行到第1000行"
        Else
          MsgBox "您选择的目录没有DQS.XLS文件!", vbQuestion, Title:="系统信息"
        End If
End Sub

追问

不好意思，我要的是VBS，不是VBA，能不能再改一下

Answer 4

Sub LKJLK()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Workbooks.Open Filename:=ThisWorkbook.Path & "\DQS.XLS"
    Set sht = ActiveWorkbook.Sheets(1)
    sht.Columns("A:A").Delete
    sht.Rows("1:1000").Delete
    ActiveWindow.Close True
    Application.ScreenUpdating = True
    MsgBox "操作完成"
End Sub

追问

不好意思，我要的是VBS，不是VBA，能不能再改一下

追答

Dim Ex, Wb, Sht
Set Ex = CreateObject("Excel.Application")
Set Wb = Ex.Workbooks.Open("D:\DQS.xls")
Set Sht = Wb.Sheets("Sheet1")
Sht.Columns("a:a").Delete
Sht.Rows("1:1000").Delete
Ex.ActiveWorkbook.Save
MsgBox "操作完成"
Ex.Quit

 假设文件在D盘