求excle的宏

来源：百度知道 编辑：UC知道 时间：2024/07/03 01:40:23
具体要求为 先查找 "小区CGI=*" 替换为 无 （就是去掉小区CGI=后面的内容），然后将表名改为 bsc
能不指定一个文件夹,自动打开里面的文档?自动更换名字这种?比如我有三个文件分别放在三个不同的文件夹里面,都要求做这种更改.最好文件名也能改成bsc

查找替换：
Cells.Replace What:="小区CGI=", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
改表名：
Sheets("Sheet1").Select'Sheets("Sheet1") 这里面放原表名
Sheets("Sheet1").Name = "bsc"
给你个vb的
添加excel9.0的引用，在窗体上画一个textbox，这个里面输路径
代码如下：
Dim VbExcel As New Excel.Application
dim dbpath as string
form_load
dbpath=text1.text
Set VbExcel = New Excel.Application
Set VbExceldocument = VbExcel.Workbooks.Open dbpath
VbExcel.Visible = True'这里控制可见不可见
VbExcelCells.Replace What:="小区CGI=", Replacement:="",_ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
vbexcel.Sheets("Sheet1").Select'Sheets("Sheet1")
vbexcel.Sheets("Sheet1").Name = "bsc"
end sub

‘请按需修改

分给我算了吧，楼上也是想忽悠你的分，我实在不知道，只有问你讨分了。帮帮忙给我升升级。