vba打开excel文件

Question

D盘下有1~10的xlsx文件，我需要打开每个文件进行操作，操作完成后关闭。
就是这个循环，请问怎么写。文件名是连续的。

Answer 1

主要看你想要做什么。
之前我有做过一个批量删除excel里的vba代码的程序，你可以参考一下。
如果有需要的话可以再联系我。
附之前问题的链接：
http://zhidao.baidu.com/question/1176340378514114979追问

比如我有100个excel文档，文档名称假如是1.xlsx~100.xlsx。
我需要一个代码，自动循环打开1~100文档，并删除sheet2里面的a2的内容，再自动关闭，
这样表达。明白？

追答

嗯，那你这个简单一点。

用VBA的话，不用管这些excel的名称是怎么样的，连不连续都无所谓，但最好把它们放在同一个文件夹里。

步骤如下：

（1）把这些excel文件放在同一个文件夹里；

（2）在那个文件夹之外的地方新建一个excel文件，名称随意；

（3）按alt+F8打开vbe编辑器；

（4）在选择菜单“插入”->“模块”；

（5）在出现的空白区域里粘贴以下代码，并按F5运行，将刚那100个excel所在的地址复制过去就行。

代码：

Sub 批量删除sheet2A2代码()
On Error Resume Next
Dim xlsApp As New Excel.Application
Dim xlsWorkBook As Excel.Workbook
 Dim vbPro
 Dim sFileName As String
 Dim Addr As String
 Addr = InputBox("请输入文件所在的地址：") & "\"
 If Addr = "" Then Exit Sub
xlsApp.DisplayAlerts = False
xlsApp.ScreenUpdating = False
 sFileName = Dir(Addr)
Do Until sFileName = ""
    Set xlsWorkBook = xlsApp.Workbooks.Open(Addr & sFileName)
    xlsWorkBook.Sheets(2).Range("a2").Clear
    xlsWorkBook.Save
    xlsWorkBook.Close
    sFileName = Dir
Loop
xlsApp.ScreenUpdating = True
xlsApp.DisplayAlerts = True
MsgBox "删除完成！"
End Sub

Answer 2

VBA程序代做，文件名随意，个人资料可查邮箱。追问

我知道vba代码做 问题是怎么做

追答