VBS 去除文件夹下 Excel 的公式

注意问题

1. window 环境下运行， 代码 ANSI 编码格式保存。
2. 直接放到需要转换的文件夹下，双击运行。

代码

function getfolder()
	getfolder=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)
end function 

Call ShowFileList(getfolder())

Sub ShowFileList(folderspec)
    Dim fs, f, f1, fc, s, objExcel, tmpname, sourcefile, dstfile, shell, tip

    set objExcel = CreateObject("Excel.application")
    set fs = CreateObject("Scripting.FileSystemObject")
    set f = fs.GetFolder(folderspec)
    set fc = f.Files
	set shell = CreateObject("WScript.Shell")

	fs.createFolder("tmp")

    For Each f1 in fc
		tmpname = f1.name

		if lcase(right(tmpname, 4)) = "xlsx" then     	

		sourcefile = folderspec + "\" + f1.name
		dstfile =  folderspec + "\tmp\" + tmpname

		set xslworkbook = objExcel.Workbooks.Open(sourcefile)

        For i = 1 to xslworkbook.Sheets.Count
			  set UseRange1 = xslworkbook.Worksheets(i).UsedRange
				  UseRange1.Copy
				  UseRange1.PasteSpecial(-4163)
        next

		xslworkbook.SaveAs(dstfile)
        xslworkbook.close()    		 

		tip = tmpname + " complete ..."

		WScript.Echo tip
        end if
    Next    

	objExcel.close
	fs.close
End Sub

VBScript

1. 用户手册
2. 在线手册
3. 语言参考
4. 微软官方
5. 函数