excel查找替换

[yvhygaa]

在PB里面，对WORD操作查找替换用ole_1.object.activedocument.application.Selection.find.Execute(……)

对EXCEL用查找替换的语法是什么呢？哪位知道，帮忙告诉一下，谢谢。

[yvhygaa]

感谢liubocy，非常感谢；
呵呵。这个能解决很大的问题。不过还差一点点，
就是不能替换页眉页脚，能一起替换就完美了。。
结贴。谢谢。

[leef_zh]

lo_Excel.Worksheets(1).UsedRange.Find('aaa')

lo_xls.worksheets(1).cells[li_r, li_c].value = 'aaa'

[leef_zh]

试试这样写行不行,我没有试过
lo_temp = lo_Excel.Worksheets(1).UsedRange.Find('aaa')
lo_temp.value = 'aaa'

[yvhygaa]

给个完全的语法我来试试
lo_temp是什么类型？object?

lo_Excel.Worksheets(1).UsedRange.Find('aaa')
具本写法应该是怎么样的？

[wag_enu]

查VBA for Excel 资料,安全安装了Excel 的有.

[yvhygaa]

当然安装了EXCEL啊。
就是对VBA for EXCEL的语法不熟。
只知道一些基本的操作；
呵呵。有知道的，帮忙指导一下。谢谢。。

[圣殿骑士18]

mark

[liubocy]

用oleobject读excel到字符串，操作字符串查找替换后，把字符串粘贴到excel去，保存。

String 	ls_SaveName, ls_Named, ls_Str
Int  	 	li_ExcelOk, li_Net

OleObject ExcelServer
ExcelServer = CREATE OleObject
li_ExcelOk = ExcelServer.ConnectTonewObject("excel.application")

IF li_ExcelOk <> 0 THEN 
	MessageBox( "信息提示", "连接EXCEL失败，请检查计算机中是否安装了EXCEL!" )
	RETURN
END IF 

li_Net = GetFileOpenName("选择文件", ls_SaveName,ls_Named,"xls","Excel文件(*.xls),*.xls")

IF li_Net > 0 THEN
	IF ls_SaveName = "" THEN  RETURN		
		ExcelServer.WorkBooks.Open(ls_SaveName)
		//把excel内容复制到剪贴板	
		ExcelServer.ActiveSheet.Cells.Copy		
		ls_Str = Clipboard("")
		//在这操作ls_Str，查找替换
		//ls_str = 'asa1~r~nasd'
		
		//把替换后的ls_Str赋到剪贴板
		Clipboard( ls_Str )
		ExcelServer.Application.Cells.Select
		ExcelServer.Application.Selection.ClearContents
		ExcelServer.Application.Range("A1").Select
		ExcelServer.ActiveSheet.Paste
		
		ExcelServer.ActiveWorkbook.Save()
		ExcelServer.Quit()
		ExcelServer.DisConnectObject()
		Destroy ExcelServer
	ELSE
		MessageBox('信息提示','没有指定文件!')
		RETURN
END IF

MessageBox( '', 'OK' )