Question

Excel问题，求高手指点

在D盘的aa文件夹里存在N个.xls文件，N通常很大，比如100个。这些.xls文件格式一致，比如每个.xls都包含预算表、材料表等工作表如何用VBA对把这N个.xls文件 批量处理实现下面的要求：
1.把这N个.xls文件中预算表的A1单元格的内容删掉。
2.把所有预算表中“北京”都替换为“南京”
3.把所有预算表中的A2单元格内容之前加上“江苏”两个字，末尾加上“项目”两个字
4.把所有预算表的A3单元格内容中的第12个和第13个字符之间加上“无锡”两个字。
要求代码越简单越好，一定要用VBA,求高手指点，谢谢。

Answer 1

Sub ddd01()
Dim path As String
Dim wkspath As String
Dim wks As Workbook
Dim rn01 As Range
Dim temp As String
path = "c:\excel\"
wkspath = Dir(path)
Do Until wkspath = ""
Set wks = Workbooks.Open(path & wkspath)
wks.Sheets("预算表").Range("a1").Clear
wks.Sheets("预算表").UsedRange.Replace What:="北京", Replacement:="南京"
wks.Sheets("预算表").Range("a2").Value = "江苏" & wks.Sheets("余链预算表"竖闹孙).Range("a2").Value
temp = wks.Sheets("预算表").Range("a3").Value
wks.Sheets("预算表").Range("弯清a3").Value = Mid(temp, 1, 12) & "无锡" & Mid(temp, 13)
wks.Close True
wkspath = Dir
Loop
End Sub

追问

不好意思。可以实现了，谢谢！

追答

什么意思？

Answer 2

欣野 的正没禅解卖世

1、这句最好指定类型
wkspath = Dir(path)
为
wkspath = Dir(path & "*.xls")

2、这句末尾还要加上　　& "项目"
wks.Sheets("预算表").Range("a2").Value = "江苏" & wks.Sheets("预算表").Range("a2").Value
即
wks.Sheets("预算中察肢表").Range("a2").Value = "江苏" & wks.Sheets("预算表").Range("a2").Value & "项目"

追问

不好意思。可以实现了，谢谢！

可否帮助解决这个问题。http://zhidao.baidu.com/question/572784468.html?fromPage=askSuc&from=0&ssid=0&uid=C5B62583519B7E99967C7B99247A59FD&pu=sz%401320_1003%2Cta%40_2_2.3_1_9.1%2Cusm%404%2Cos%40android&bd_page_type=1&tj=11002_1_0_10_title&init=iphone&step=3