VFP数组数据导入EXCEL中的方法

作者在 2015-03-08 10:33:09 发布以下内容
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.
Excel问题 | 阅读 3852 次
文章评论,共1条
z12689
2023-12-21 16:07
1
游客请输入验证码
浏览384753次