批量删除文件夹中多个工作簿中某工作表中的一列

ahyyf

请教各位高手：如何批量删除文件夹名为《新建文件夹》的统一格式的多个工作簿中的名为“人员信息表”的工作表（每个工作簿中有多个工作表，）中第22列（V列)，谢谢！
（说明：是上级下发的表样，根据需要要我填加了一列”曾用名“，下发到下属单位，上报到我这里用以核对，向上级上报时还要删除这一列的）

ahyyf

请各位高人给编写个程序，谢谢了！

grf1973

试试看。在文件夹外新建个工作表。

1. Sub tt()
   
2.     On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Dim filename, shtname As String, wb As Workbook, Sht As Worksheet, fn As String, arr
   
6.     filename = Dir(ThisWorkbook.Path & "\新建文件夹\*.xls")
   
7.     Do While filename <> ""
   
8.         If filename <> ThisWorkbook.Name Then
   
9.             fn = ThisWorkbook.Path & "\新建文件夹" & filename
   
10.             Set wb = Workbooks.Open(fn)
    
11.             Set Sht = wb.Worksheets("人员信息表")
    
12.             Sht.Columns(22).Delete
    
13.             wb.Close True
    
14.         End If
    
15.         filename = Dir
    
16.     Loop
    
17.     Set Sht = Nothing
    
18.     Application.ScreenUpdating = True
    
19.     Application.DisplayAlerts = True
    
20. End Sub

复制代码

kszcs

grf1973 发表于 2013-12-12 15:45
试试看。在文件夹外新建个工作表。

学习了。如果删除22行的整行，怎么改？

liulang0808

rows(22).delete?看看吧

kyousn

grf1973 发表于 2013-12-12 15:45
试试看。在文件夹外新建个工作表。

老师好，我想请问，如果想删除多个工作薄中指定的一个工作表的话，您的编码应该怎么改呢？（工作薄名字只是序号不一样，而要删除的指定工作表的名字都一样）

lsc900707

kyousn 发表于 2017-8-22 15:06
老师好，我想请问，如果想删除多个工作薄中指定的一个工作表的话，您的编码应该怎么改呢？（工作薄名字只 ...

上传个附件，说明白要求。

kyousn

lsc900707 发表于 2017-8-22 15:25
上传个附件，说明白要求。

谢谢你的回复，这是我的问题。。。请参照。。。
http://club.excelhome.net/thread-1364835-1-1.html

lsc900707

kyousn 发表于 2017-8-22 15:06
老师好，我想请问，如果想删除多个工作薄中指定的一个工作表的话，您的编码应该怎么改呢？（工作薄名字只 ...

Sub tt()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    filename = Dir(ThisWorkbook.Path & "\")
    Do While filename <> ""
        If filename <> ThisWorkbook.Name Then
            fn = ThisWorkbook.Path & "\" & filename
            Set wb = Workbooks.Open(fn)
            Set Sht = wb.Worksheets(" 1月")
            Sht.Delete
            wb.Close True
        End If
        filename = Dir
    Loop
    Set Sht = Nothing
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

L1li-

grf1973 发表于 2013-12-12 15:45
试试看。在文件夹外新建个工作表。

老师，请问一下为什么我用这条程序，更改了“人员信息表”跟列数为我自己的表格名称跟需要删除的列数，但是没有反应