Excel 行（第 1 列）作为 .php 文件 + Excel 第 1 行（第 2 列到无穷大）作为所有文件的数据答案

【问题标题】：Excel Rows (1st column) as .php files + Excel Row 1 (2nd column to infinty) as data of all filesExcel 行（第 1 列）作为 .php 文件 + Excel 第 1 行（第 2 列到无穷大）作为所有文件的数据
【发布时间】：2015-04-20 10:58:44
【问题描述】：

我找到了相关的东西，但不是完全匹配，我不知道如何解决它们。

我有一个只有 1 行（多列）和 1 列（多行）的 excel 文件。

现在我想使用 vba 并从第一列的所有行创建文件，然后将相同的数据（即第 b 行的第 1 行的无穷大）放入所有文件中。

只是一个例子：

excel文件：

a 2 3 4
b
c

文件将是：

a.php, b.php, c.php

其中包含相同的数据：

2 3 4

提前致谢

【问题讨论】：

为什么要为数据文件使用php 扩展名？ php 扩展名一般用于 PHP 编程语言编写的程序脚本
第一个，因为我想创建 php 文件，以便我可以将它们上传到网络上。第一行的第二列“b”将包含特定的 php 代码@MarkBaker
您是否考虑过使用文本编辑器而不是使用 MS Excel 作为首选 IDE 将 PHP 文件编写为纯文本文件的可能性？
拥有三个不同文件，内容相同的想法也让我难以理解
这确实让我觉得这是我遇到过的最低效的 PHP 编写方法......而且你的解释仍然表明所有文件都是相同的

标签： vba excel

【解决方案1】：

虽然我不知道这样做来生成网络内容的基本原理，但这是微不足道的。只需循环第一行获取数据，然后循环第一列获取文件名和输出副本：

Const path = "C:\YourDestinationDirectory\"

Public Sub DumpPHP()

    Dim sheet As Worksheet
    Dim data As String
    Dim index As Long

    Set sheet = ActiveSheet

    For index = 2 To sheet.UsedRange.Columns.Count
        data = data & sheet.Cells(1, index)
    Next index

    Dim handle As Integer
    For index = 2 To sheet.UsedRange.Rows.Count
        handle = FreeFile
        Open path & sheet.Cells(index, 1) & ".php" For Output As #handle
        Print #handle, data
        Close #handle
    Next index

End Sub

【讨论】：