python操作excel性能问题求助

http://bbs.chinaunix.net/thread-1586782-1-1.html
我刚刚用python写了一段操作excel的脚本，目的是把一个excel文件按照某一列中的字段拆分成多个文件，例如按照城市或者省份等，但是发现处理一个1700行的文件拆分成40多个文件时要运行30分钟左右，性能太慢，请高手帮忙看看怎么才能优化性能，谢谢。
新手写的脚本，请不要见笑，如下：
'''
Created on 2009-9-25
@author: vidon
'''
#_*_ coding:UTF-8 _*_
import os, sys, time
import win32com.client
xls=win32com.client.Dispatch("Excel.Application")
xls.Visible=False
source_path = input('请输入要操作的文件名路径与名称（例如：D:\ABC\BOOK.XLS）：').replace('\r','')
target_path = input('请输入存放数据处理结果的目录（例如：D:\BACK\)：').replace('\r','')
x=int(input("请输入表头的行数：").replace('\r',''))
y=int(input("请输入作为拆分数据的依据所在列的号码：").replace('\r',''))
if not os.path.exists(target_path):
    os.mkdir(target_path)
    print("已经创建指定的目录，准备创建文件，请稍等······")
else:
    print("准备创建文件，请稍等······")
   
#读取原始文件
book=xls.Workbooks.Open(source_path)
sheet=book.ActiveSheet
length = sheet.UsedRange.Rows.Count
y_length = sheet.UsedRange.Columns.Count
keyArray = []
for i in range((x+1),length):
    keyArray.append(sheet.Cells(i,y).Value)
  
#根据指定的列中的字段创建新文件
ll = len(keyArray)
for j in range(1,ll):
   
    filename = target_path + str(keyArray[j]) + ".xls"
    if os.path.exists (filename):
        continue
    else :
        sheet.Range(sheet.Cells(1,1),sheet.Cells(x,y_length)).select
        sheet.Range(sheet.Cells(1,1),sheet.Cells(x,y_length)).copy
        newbook = xls.Workbooks.Add()
&nb