Multi Excel工作表从每个工作表中的3个单元中获取数据，并以csv格式输出

我多年来一直没有用过excel，所以花了一些时间把自己的合同作为自雇电工的价格表自动化

每个星期发票时需要花费一些时间填写表格，但是当我复制并粘贴3个单元格的信息，然后input到我的发票中时，会增加工作量。

任何一种灵魂都可以告诉我一种方法，我可以从excel文件中的每个工作表中提取数据（不pipe每周有多less变化）。

我想从每个工作表中提取的单元格是a4：c5：e76

并把它放在一个csv像这样（每一行代表一个工作表）

a4:c5:e76 a4:c5:e76 a4:c5:e76 a4:c5:e76 

Answer 1

这只是一个例子：

 Sub MakeFile() Dim sh As Worksheet Dim TextLine As String Close #1 Open "C:\TestFolder\TestFile.csv" For Output As #1 For Each sh In ActiveWorkbook.Sheets TextLine = sh.Range("A3").Text & ":" & sh.Range("C5").Text & ":" & sh.Range("E76").Text Print #1, TextLine Next sh Close #1 End Sub 

您将需要调整文件规格以匹配您的文件夹结构。