使用Excel生成格式化INI文件遇空文件问题求助

问题根源是你的VBA代码大概率直接读取了单元格的公式，而非公式计算后的实际IP值，再加上公式返回空值的单元格干扰，最终导致生成的INI文件为空。按下面的方法修改代码即可解决：

核心修改要点 #

• 读取单元格时，获取实际显示的内容（用cell.Value或cell.Text），不要直接读取公式
• 跳过空值单元格，只处理有有效IP的行

可用的完整VBA代码 #

Sub ExportToINI()
    Dim iniFile As Integer
    Dim ws As Worksheet
    Dim ipRange As Range
    Dim cell As Range
    Dim stationNum As Integer
    
    ' 替换成你存IP的工作表名称，比如示例中的"Generator"
    Set ws = ThisWorkbook.Sheets("Generator")
    ' 自动获取IP列（这里假设是K列，从K3开始）的有效范围
    Set ipRange = ws.Range("K3:K" & ws.Cells(ws.Rows.Count, "K").End(xlUp).Row)
    
    ' 创建并打开目标INI文件，替换成你要保存的路径
    iniFile = FreeFile
    Open "C:\YourSavePath\TransferList.ini" For Output As #iniFile
    
    ' 写入INI固定头部内容
    Print #iniFile, "[Transfer-List]"
    Print #iniFile, "Status=Inactive"
    Print #iniFile, "CountStation=255" ' 要是想自动统计实际IP数量，改成下面注释的内容：
    ' Print #iniFile, "CountStation=" & stationNum - 1
    
    ' 遍历IP列生成带序号的Station条目
    stationNum = 1
    For Each cell In ipRange
        ' 只处理非空的有效IP地址
        If Trim(cell.Value) <> "" Then
            Print #iniFile, "Station" & stationNum & "=" & cell.Value & ";VKDGenerator"
            stationNum = stationNum + 1
        End If
    Next cell
    
    Close #iniFile
    MsgBox "INI文件生成完成！", vbInformation
End Sub

注意事项 #

• 把代码里的工作表名称、IP列（示例为K列）、文件保存路径改成你自己的实际信息
• 如果需要CountStation值等于实际的IP数量，直接替换掉固定的255，启用注释里的动态统计代码即可

内容的提问来源于stack exchange，提问作者Trendcutter