Question

我找到了相关的东西，但没有完全匹配，我不知道如何修复它们。

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

现在我想使用vba并从第1列的所有行创建文件，并在所有文件中放入相同的数据（即cloumn b到第1行的infinty）。

只是一个例子：

excel文件：

a 2 3 4
b
c

文件将是：

a.php, b.php, c.php

其中包含相同的数据：

2 3 4

提前致谢

Answer 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

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

1 个答案: