vfp中如何把内存中的一个数组，一次性赋值给EXCEL的表中?

[m0_37910054]

VB中可以一次性将一个数组的内容，一次性赋值给EXCEL表中的一个区域
ssArr(10,5)是一个10行5列的表格，已经赋值
...
Xlsapp.Sheets(1).Range("A1:E10" ) = ssArr
...
这个赋值是成功的
但在VFP中值,同样的赋值，结果每一个单格内均为ssArr(1,1)的值,需要通过循环对每个单元格赋值才能实现,是否有更好的方法?

[wwle]

VFP 好像还真没有。

[wmawma123]

可以保存为一个excel表，至于写入excel的话，还是使用scan写吧

[lygcw9602]

下面的代码是都市夜猫老师写的代码，仅供参考：

Local ASZ[50,7]
Store [] To ASZ
For lnI=1 To 50
    For lnI1=1 To 7
        ASZ[lnI,lnI1]=Padl(lnI*lnI1,4,[0])
    Endfor
Endfor
 
Local cc, oo As Excel.Application
 
m.oo = Newobject('Excel.Application')
If m.oo.Workbooks.Count < 1
    m.oo.Workbooks.Add()
Endif
If m.oo.Workbooks(1).Sheets.Count < 1
    m.oo.Sheets.Add()
Endif
 
TEXT to m.cc noshow
    Sub ArrayFill(vfparray)
        Range("b2").Resize(UBound(vfparray,1), UBound(vfparray,2)).Value = vfparray
    End Sub
ENDTEXT
* 执行下面这行需要勾选 Excel 的信任选项: 工具->宏->安全性->可靠发行商->信任对"VB项目"的访问
m.oo.ActiveWorkbook.VBProject.VBComponents.Add(1).CodeModule.AddFromString(m.cc)
m.oo.Run('ArrayFill', @asz)
m.oo.Visible = .T.

[IF先生]

这个VFP中还真没有，我试过只能用for来解决！