VB6 數據導出 Excel：CSV 簡易法或 COM 自動化

方案一：CSV 文本文件（推薦簡單場景）

Open "C:\data.csv" For Output As #1
For m = 68 To 80 Step 3
  For n = 12.6 To 16.2 Step 1.2
    For o = 3.6 To 4.4 Step 0.2
      For p = 210 To 275 Step 30
        If m <> n And m <> o And m <> p And n <> o And n <> p Then
          Print #1, m & "," & n & "," & o & "," & p
        End If
      Next p, o, n, m
Close #1
' 雙擊 CSV 直接在 Excel 打開

方案二：Excel COM 自動化（複雜格式需求）

Dim xlApp As Excel.Application, xlBook As Workbook, xlSheet As Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
' xlSheet.Cells(row, col).Value = ...
xlBook.SaveAs "C:\data.xlsx"
xlApp.Quit

選擇建議

純數據導出用 CSV，無需安裝 Excel、速度快、兼容性好；需合併儲存格、樣式、公式時用 COM，但部署需目標機安裝 Excel且易出版本兼容問題。