excel批处理问题

来源：百度知道 编辑：UC知道 时间：2024/05/27 00:36:23
假设我有一列数，其范围从C1到C200，还有两个固定单元格A1，A2.现在我想要把C1的数据复制到A1，C2的数据复制到A2，然后另存为到D盘1.xls，再把C3的数据复制到A1,C4的数据复制到A2，然后另存为D盘2.xls，再把C5的数据复制到A1，C6的数据复制到A2，然后另存为D盘3.xls，......依次，因为数据很多，这样每次复制粘贴再另存为有点不太现实，所以想用宏来编辑一下，以实现这一过程，请VBA高手帮帮忙，先谢谢了！

把你那个有200个数据的Excel重命名为rootdate.xls，在同一目录下新建一个文本，把下面的代码拷进去，后缀名改成vbs，运行一下，你的D盘就会出现你要的东西，好用的话，给我竖个大拇指

mypath=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)
set excelapp=createobject("excel.application")
excelapp.visible=false
set excelbook=excelapp.workbooks.open(mypath&"\"&"rootdate.xls")
set excelsheet=excelbook.worksheets(1)

dim a(210)
for i=1 to 200
a(i)=excelsheet.cells(i,3)
next
excelapp.quit
j=1
for i=1 to 100
set excelapp=createobject("excel.application")
set excelnew=excelapp.WorkBooks.Add
excelnew.worksheets(1).cells(1,1)=a(j)
j=j+1
excelnew.worksheets(1).cells(2,1)=a(j)
title="D:\"&i&"xls"
excelnew.SaveAs( title )

excelapp.quit
next
msgbox("complete,please open your D disk")