多个 excel 工作表从每个工作表中的 3 个单元格中获取数据并输出为 csv答案

【问题标题】：Multi excel worksheets grab data from 3 cells in each sheet and output as csv多个 excel 工作表从每个工作表中的 3 个单元格中获取数据并输出为 csv
【发布时间】：2017-04-09 20:20:40
【问题描述】：

我已经好几年没用过excel了，作为一名自雇电工，我花了一些时间来自动化我的合同价目表

每周开具发票需要一段时间来填写表格，但是当我从大量工作表中的 3 个单元格复制和粘贴信息然后输入到我的发票中时，工作量就会增加。

谁能告诉我一种方法，我可以从 excel 文件中的每个工作表中提取数据（不管有多少，因为它每周都在变化）。

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

然后将其输出到 csv 中（每行代表一个工作表）

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

【问题讨论】：

标签： vba excel csv

【解决方案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

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

【讨论】：