Question

请教 excel，批量取sheet1的第一行内容，改为文件名的方法。

找回的 大量已删除的excel文件，文件名都是数字，想取出每个文件中sheet1的第一行内容，将其改为文件名。请指点，谢谢。

Answer 1

;autoit自动化脚本写这个，简单
;读取sheet1单元格A1，作为文件名
;
#include <excel.au3>
#include <file.au3>
#NoTrayIcon
$filefolder = FileSelectFolder("请选择excel所在文件夹","")
$filelist = _FileListToArray($filefolder,"*.xls",1)
For $i = 1 To $filelist[0]
$oExcel = _ExcelBookOpen($filefolder&"\"&$filelist[$i],0,True)
$read = _ExcelReadCell($oExcel,1)
_ExcelBookClose($oExcel,0)
FileMove($filefolder&"\"&$filelist[$i],$filefolder&"\"&$read&".xls")
Next
MsgBox(0,"完成","")