作爲.php文件的Excel行（第1列）+ Excel第1行（第2列到不能）作爲所有文件的數據

Question

我發現了相關的事情，但沒有完全匹配，我不知道如何解決它們。

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

現在我想使用vba，並從第一列的所有行創建文件，並將相同的數據（即cloumn b到第一行的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