ypzdy

回复 5# went


    我试试看效果。谢谢老师。

ypzdy

回复 4# Batcher


    命名的规则是这样的。假设我有图片：321.jpg 需要重命名的格式为321&入库单&321库单.jpg
因为一定要改成这样的格式系统才会识别并且保存到对应的入库单里面。

went

// & cls & cd /d "%~dp0" & @cscript -E:javascript -Nologo "%~0" &pause&exit
var file = 'F:/Desktop/0.xlsx';							//文件名
var col = 5;											//提取的列
var out = '0.txt';										//生成的文件名
var ofs = new ActiveXObject('Scripting.FileSystemObject').CreateTextFile(out,true);
var excel = new ActiveXObject('Excel.Application');
excel.Visible = false;
excel.Application.Workbooks.Open(file);
var sheet = excel.Application.ActiveSheet;		//当前工作簿
var totalRow = sheet.UsedRange.Rows.Count; 		//数据总行数
var totalCol = sheet.UsedRange.Columns.Count; 	//数据总列数
for(var i=1;i<=totalRow;i++){
	var line = '';
	for(var j=1;j<=totalCol;j++)
		line += sheet.Cells(i,j).Text + ',';
	WSH.Echo(line);
	ofs.WriteLine(line);
}
excel.Quit();
ofs.Close();
复制代码

回复 6# netdzb

netdzb

回复 5# went

老师能再写一个vbs的代码吗？
还有怎么全部转存出来？

went

test.bat ANSI编码

// & cls & cd /d "%~dp0" & @cscript -E:javascript -Nologo "%~0" &pause&exit
var file = 'F:/Desktop/0.xlsx';							//文件名
var col = 5;											//提取的列
var out = '0.txt';										//生成的文件名
var ofs = new ActiveXObject('Scripting.FileSystemObject').CreateTextFile(out,true);
var excel = new ActiveXObject('Excel.Application');
excel.Visible = false;
excel.Application.Workbooks.Open(file);
for(var i=1;i<=excel.Application.ActiveSheet.UsedRange.Rows.Count;i++){
	WSH.Echo(excel.Application.ActiveSheet.Cells(i,col).Text);
	ofs.WriteLine(excel.Application.ActiveSheet.Cells(i,col).Text);
}
excel.Quit();
ofs.Close();
复制代码

Batcher

回复 3# ypzdy


    请详细描述一下文件改名的规则和要求，一般情况下BAT脚本就足够了，不需要借助Excel的。

ypzdy

回复 2# Batcher


    工作上需要进行多个图片改名字批量上传。所以我想着能否只双击一个bat文件就能运行所有的批量改名字效果。
我已经弄到这最后一步了。卡在复制我做好的命令到bat里。只要能实现就可以大大的提高我的工作效率。

Batcher

回复 1# ypzdy


    能否介绍一下这样做的目的是什么？