如何使用win32com打开多个Excel文件？

Question

有没有一种方法可以使用os.walk或glob简化这种情况？

from win32com.client import Dispatch

inputwb1 = "D:/apera/Workspace/Sounding/sounding001.xlsx"
inputwb2 = "D:/apera/Workspace/Sounding/sounding002.xlsx"

Sheet = 'OUTPUT'
excel = Dispatch("Excel.Application")

source = excel.Workbooks.Open(inputwb1)
source.Worksheets(Sheet).Range('F1:H500').Copy()
source.Worksheets(Sheet).Range('I1:K500').PasteSpecial(Paste=-4163)

source = excel.Workbooks.Open(inputwb2)
source.Worksheets(Sheet).Range('F1:H500').Copy()
source.Worksheets(Sheet).Range('I1:K500').PasteSpecial(Paste=-4163)

因为如果我要写几百个东西，这东西会占用很多空间。

Answer 1

您似乎几乎回答了自己的问题。 这样的事情可能会做到：

import glob
from win32com.client import Dispatch

Sheet = 'OUTPUT'
excel = Dispatch("Excel.Application")

for filename in glob.glob("D:/apera/Workspace/Sounding/sounding*.xlsx"):
    source = excel.Workbooks.Open(filename)
    source.Worksheets(Sheet).Range('F1:H500').Copy()
    source.Worksheets(Sheet).Range('I1:K500').PasteSpecial(Paste=-4163)

Answer 2

您可以像这样打开多个excel文件（示例）：

import win32com.client
import os
path = ('D:\\New Folder\\MyExcelFiles\\')
fileslist = os.listdir('D:\\New Folder\\MyExcelFiles\\')
xl = win32com.client.DispatchEx('Excel.Application')
xl.Visible = True

for i in fileslist :
xl.Workbooks.Open(path+i)
if xl.Cells.Find('2014'):
   xl.Cells.Replace('2015')
   xl.Save()
   xl.Workbooks.Close()
else:
   xl.Workbooks.Close()