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
如何将上面的数组元素赋值给EXCEL一块连续的区域，假如连续区域为range("b2:h51")
求最简方法
-
等级
本版专家分：10100结帖率 94.74% -
如何将上面的数组元素赋值给EXCEL一块连续的区域，假如连续区域为range("b2:h51")
求最简方法展开阅读全文
-
等级
本版专家分：10100
-
本方法最后要达到目的：是将DBF表中的数据通过数组保存，用数组的方法导入EXCEL表中。
-
等级
本版专家分：216690勋章
-
- 优秀版主 2014年11月论坛优秀版主
-
-
红花
2008年11月 其他数据库开发大版内专家分月排行榜第一
2008年10月 其他数据库开发大版内专家分月排行榜第一
2008年6月 其他数据库开发大版内专家分月排行榜第一
2007年3月 其他数据库开发大版内专家分月排行榜第一
2007年1月 其他数据库开发大版内专家分月排行榜第一
2006年10月 其他数据库开发大版内专家分月排行榜第一
2006年1月 其他数据库开发大版内专家分月排行榜第一
2005年8月 其他数据库开发大版内专家分月排行榜第一
2005年7月 其他数据库开发大版内专家分月排行榜第一
2005年6月 其他数据库开发大版内专家分月排行榜第一
2005年5月 其他数据库开发大版内专家分月排行榜第一
-
-
黄花
2012年2月 其他数据库开发大版内专家分月排行榜第二
2011年12月 其他数据库开发大版内专家分月排行榜第二
2010年10月 其他数据库开发大版内专家分月排行榜第二
2010年2月 其他数据库开发大版内专家分月排行榜第二
2009年2月 其他数据库开发大版内专家分月排行榜第二
2008年12月 其他数据库开发大版内专家分月排行榜第二
2008年9月 其他数据库开发大版内专家分月排行榜第二
2008年7月 其他数据库开发大版内专家分月排行榜第二
2008年3月 其他数据库开发大版内专家分月排行榜第二
2007年8月 其他数据库开发大版内专家分月排行榜第二
2007年4月 其他数据库开发大版内专家分月排行榜第二
2007年2月 其他数据库开发大版内专家分月排行榜第二
2006年11月 其他数据库开发大版内专家分月排行榜第二
2006年3月 其他数据库开发大版内专家分月排行榜第二
2006年2月 其他数据库开发大版内专家分月排行榜第二
2005年12月 其他数据库开发大版内专家分月排行榜第二
2005年11月 其他数据库开发大版内专家分月排行榜第二
2005年10月 其他数据库开发大版内专家分月排行榜第二
2005年2月 其他数据库开发大版内专家分月排行榜第二
2004年12月 其他数据库开发大版内专家分月排行榜第二
-
-
蓝花
2014年1月 其他数据库开发大版内专家分月排行榜第三
2013年11月 其他数据库开发大版内专家分月排行榜第三
2013年8月 其他数据库开发大版内专家分月排行榜第三
2012年8月 其他数据库开发大版内专家分月排行榜第三
2011年10月 其他数据库开发大版内专家分月排行榜第三
2011年2月 其他数据库开发大版内专家分月排行榜第三
2010年9月 其他数据库开发大版内专家分月排行榜第三
2010年8月 其他数据库开发大版内专家分月排行榜第三
2010年7月 其他数据库开发大版内专家分月排行榜第三
2010年6月 其他数据库开发大版内专家分月排行榜第三
2010年3月 其他数据库开发大版内专家分月排行榜第三
2009年8月 其他数据库开发大版内专家分月排行榜第三
2009年7月 其他数据库开发大版内专家分月排行榜第三
2009年6月 其他数据库开发大版内专家分月排行榜第三
2009年3月 其他数据库开发大版内专家分月排行榜第三
2009年1月 其他数据库开发大版内专家分月排行榜第三
2008年8月 其他数据库开发大版内专家分月排行榜第三
2008年5月 其他数据库开发大版内专家分月排行榜第三
2007年11月 其他数据库开发大版内专家分月排行榜第三
2007年10月 其他数据库开发大版内专家分月排行榜第三
2007年7月 其他数据库开发大版内专家分月排行榜第三
2007年6月 其他数据库开发大版内专家分月排行榜第三
2007年5月 其他数据库开发大版内专家分月排行榜第三
2006年12月 其他数据库开发大版内专家分月排行榜第三
2006年8月 其他数据库开发大版内专家分月排行榜第三
2006年4月 其他数据库开发大版内专家分月排行榜第三
2005年9月 其他数据库开发大版内专家分月排行榜第三
2005年4月 其他数据库开发大版内专家分月排行榜第三
2005年3月 其他数据库开发大版内专家分月排行榜第三
2005年1月 其他数据库开发大版内专家分月排行榜第三
2004年11月 其他数据库开发大版内专家分月排行榜第三
2004年10月 其他数据库开发大版内专家分月排行榜第三
2004年9月 其他数据库开发大版内专家分月排行榜第三
-
-
等级
本版专家分：10100
-
这个帖子研究过了，很好。
我就是想知道，如何将数组导入EXCEL指定区域的方法。
-
等级
本版专家分：49054勋章
-
- 黄花 2015年1月 其他数据库开发大版内专家分月排行榜第二
-
-
蓝花
2017年12月 其他数据库开发大版内专家分月排行榜第三
2016年6月 其他数据库开发大版内专家分月排行榜第三
2015年11月 其他数据库开发大版内专家分月排行榜第三
-
-
这个问题与以前那个帖子中的解法差不多吧，稍稍变通一下
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 cFlds, cTemp, ii
Local oo As Excel.Application
m.cFlds = ''
For m.ii = 1 To Alen(m.asz, 1)
m.cFlds = m.cFlds + Textmerge(',f<<m.ii>> V(10)')
Endfor
m.cFlds = Substr(m.cFlds, 2)
m.cTemp = Sys(2015)
Create Cursor (m.cTemp) (&cFlds)
Append From Array m.asz
Locate
_vfp.DataToClip(m.cTemp, 0xffff, 3)
Use In Select(m.cTemp)
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
m.oo.Range("b2:h52").Select
m.oo.Workbooks(1).Sheets(1).Paste
m.oo.Range("b3:h52").Select
m.oo.Selection.Cut
m.oo.Range("b2:h51").Select
m.oo.Workbooks(1).Sheets(1).Paste
m.oo.Visible = .T.
m.oo = Null
-
等级
本版专家分：10100
-
谢谢猫老师，你5楼回帖中的方法，在2楼帖子中已经基本掌握了
本帖问题的出处：http://www.mzvfp.com/read.php?tid=96745
就是想知道，如何将VFP的数组，直接粘贴到EXCEL中指定的连续单元格中。
因为EXCEL中的命令可以将数组直接粘贴到指定的单元格中，在VFP中如何实现这个方法。
再次谢谢楼上的两位大师。
-
等级
本版专家分：10100
-
DataToClip()导入VFP的速度是很快的
65535条记录，6个字段，全部导入，耗时不超过1秒。
-
等级
本版专家分：49054勋章
-
- 黄花 2015年1月 其他数据库开发大版内专家分月排行榜第二
-
-
蓝花
2017年12月 其他数据库开发大版内专家分月排行榜第三
2016年6月 其他数据库开发大版内专家分月排行榜第三
2015年11月 其他数据库开发大版内专家分月排行榜第三
-
-
vb 中确实可以用 range('..').value = 数组名 这样的方式来直接用数组给一个区域赋值，但 vfp 是按值传递数组的，所以只会传第一个数组元素。vfp 不承认 oExcel.range('..').value = @数组名 是合法的表达式，也没有类似 AddressOf 或者 VarPtr 这样的函数来取数组地址；但是，vfp 却可以用 func(@数组名) 的形式将数组地址传给函数。
所以，可以先在 Excel 中动态创建一个宏，然后将数组传给这个宏
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.
这会要求用户按上面代码中注释的那样先打开这个安全开关，多少有些不友好，用户通常为了防范宏病毒都是关闭它的
-
等级
本版专家分：10100
-
猫老师你好，首先表示感谢！我对你的佩服是无法用语言形容的。
能否把下面VBA及VFP代码（含括号参数的意思）的意思解释下：
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.
再次表示感谢！
-
等级
本版专家分：49054勋章
-
- 黄花 2015年1月 其他数据库开发大版内专家分月排行榜第二
-
-
蓝花
2017年12月 其他数据库开发大版内专家分月排行榜第三
2016年6月 其他数据库开发大版内专家分月排行榜第三
2015年11月 其他数据库开发大版内专家分月排行榜第三
-
-
Sub ArrayFill(vfparray)
Range("b2").Resize(UBound(vfparray,1), UBound(vfparray,2)).Value = vfparray
End Sub
ArrayFill - 要创建的宏名称
vfparray - 形参，要传入的 vfp 数组
UBound(vfparray,1) - 传入的 vfp 数组行数, 同样 (...,2) 取列数
Range("b2").Resize(...) - 以 b2 为起点，将范围按传入的数组行列数扩大
---------------------
m.oo.ActiveWorkbook.VBProject.VBComponents.Add(1).CodeModule.AddFromString(m.cc)
在当前工作簿中动态创建由 cc 字符串定义的宏
---------------------
m.oo.Run('ArrayFill', @asz) - 运行名为 ArrayFill 的宏, 按引用传入 asz 数组
---------------------
如果填充起始位置不定，可作为参数传给宏，宏定义改为：
Sub ArrayFill(vfparray, nRow, nCol)
Range(cells(nRow,nCol), cells(nRow+ubound(vfpArray,1)-1, nCol+ubound(vfparray,2)-1)).Value = vfpArray
End Sub
调用改为：m.oo.Run('ArrayFill', @asz, 5, 6) -- 第5行,第6列开始填充
- 数值从单元格区域赋值给单元格区域的研究
这是关于数值从单元格区域赋值给单元格区域的研究 也可以说是range对象对range对象直接赋值 这两种可以实现: mu.[b1:I1] = yu.[E9:L9].Value mu.[b1:I1].Value = yu.[E9:L9].Value 这一种不可以实现 mu.[b1:I1] = yu...
- pandas 更改单元格的值_懂Excel轻松入门Python数据分析包pandas(二十四)：连续区域...
此系列文章收录在公众号中：数据大宇宙 > 数据处理 >E-pd转发本文并私信我"python"，即可获得Python资料以及更多系列文章(持续更新的)经常听别人说 Python 在数据领域有多厉害，结果学了很长时间，连数据处理...
- pandas将df赋值到另一个df_pandas基础
1 dataframe和series操作1.1 构造dataframe1) 空dataframe通过...df1 = pd.DataFrame(columns=['c1', 'c2'], index=['ind1', 'ind2'])2) 通过字典构造dataframe，并给dataframe添加列；可以通过index=[]参数设置df...
- jmeter 循环取值赋值给form_JMeter系列(三)逻辑控制器详解
循环控制器：指定迭代次数，可以用具体数字，也可以通过变量控制永远：表示无限循环点击查看示例：Jmeter实例(四)_图片爬虫简单控制器： 这是最基础的一个控制器，它可以让脚本分层，变成一个模块，但是本书并不...
- 以下关于python的赋值说法中错误的是哪一个选项_用python玩转数据作业答案
用python玩转数据作业答案如果想要快速观察一个dataframe对象的如下所示形式的简要统计信息，请在横线上写出相应的方法名？>>>iris_df_length.________________()sepallength(cm)petallength(cm)count150....
- access vba 常量数组赋值_聊聊 VBA 数组的那些坑
1. 缩减工作薄文件大小，提高运行效率一般而言只是使用 Excel 的内置工作表函数，在运算方面还是很高效的，但有时因为一个单元格牵扯的计算太多，比如调用多单元格数据，对结果文本进行部分替换，按照优先级和条件...
- VB中对EXCEL的各种操作
全面控制 Excel 首先创建 Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口： ExcelID.Visible := True; 2) 更改 Excel 标题栏： ExcelID.Caption ...
- 全网目前最全python例子（附源码）
告别枯燥，60秒学会一个小例子，系统学习Python，从入门到大师。Python之路已有190个例子： 第零章：感受Python之美 第一章：Python基础 第二章：Python之坑 第三章：Python字符串和正则 第四章：Python文件 第五章...
- python数值转换机_python数值转换
Python 数据类型转换操作数据类型转换的一些操作string表示数值的list列表转为int/float型列表# python 3.5a = ['1', '2', '3']b = list(map(int, a)) # 转为整型c = list(map(float, a)) # 转为浮点型tex......
- Excel.Application组件使用方法 matlab可以参考使用
Excel.Application组件使用方法，适合应用于使用EXCEL组件做WEB应用开发。 转自http://bbs.xtjc.com/thread-376095-1-1.html 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private ...
- Excel操作：VBA基础语法
一、常见的数据类型与声明方法 数据类型就是对同一类数据的统称，如整数、日期、字符串等。 VBA里的数据类型有字节型（Byte）、整数型（Integer）、长整数型（Long）、单精度浮点型（Single）、双精度浮点型（Double...
- Python写入Excel文件-多种实现方式（测试成功，附代码）
xlsxwriter库储存数据到excel 简介 示例：写入excel 更多 添加工作表样式： 写入单元格数据 插入图片 写入超链接 插入图表 pandas库储存数据到excel 简介 示例：写入excel openpyxl库储存数据到excel ...
- python数值互换_python值交换
这个问题相信能难倒一批英雄好汉，本篇就详细讲解如何用python进行冒泡排序。一、基本原理1.概念：冒泡排序(Bubble Sort)，是一种计算机领域的较简单的排序算法。它重复地走访过要排序的数列，一次比较两个元素，...
- Excel VBA编程
文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
- python123测验答案数值运算程序_Python程序基础-中国大学mooc-题库零氪
MODULE 01: Python基础之第一周 走近Python1.6 Python的函数、模块和包随堂测验1、简单的输入输出：编程实现输入姓、名的提示语并接受用户输入，并单独显示姓、名和全名，执行效果如下所示： Input your surname: ...
- android 数组赋值字符串_聊聊 VBA 数组的那些坑
1. 缩减工作薄文件大小，提高运行效率一般而言只是使用 Excel 的内置工作表函数，在运算方面还是很高效的，但有时因为一个单元格牵扯的计算太多，比如调用多单元格数据，对结果文本进行部分替换，按照优先级和条件...
- 来吧！带你玩转 Excel VBA
带你玩转 Excel VBA(含CD光盘1张)(双色)（附带近500个VBA思考练习题，Exceltip.net出品） 罗刚君 杨嘉恺 编著 ISBN 978-7-121-20627-6 2013年7月出版 定价：85.00元 648页 16开 编辑推荐...
- Excel.Application使用手册
定制模块行为 ...Option Base 1 '指定数组的第一个下标为1 (2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置
- python dataframe的某一列变为list_3 步理清 Python 数据分析关键点，新手必看
和很多同学接触过程中，我发现自学 Python 数据分析的一个难点是资料繁多，过于复杂。大部分网上的资料总是从 Python 语法教起，夹杂着大量 Python 开发的知识点，花了很多时间却始终云里雾里，不知道哪些知识才是...
- Python学习手册（套装上下册）（原书第5版）
Python学习手册（原书第5版） 本书分为上、下两册。 如果你想动手编写高效、高质量并且很容易与其他语言和工具集成的...每章都包含关于Python语言的重要组成部分的一节课。本书主要内容：了解Python的主要内置对象类...
- Excel.Application组件使用方法，适合应用于使用EXCEL组件做WEB应用开发。
Excel.Application组件使用方法，适合应用于使用EXCEL组件做WEB应用开发。 转自http://bbs.xtjc.com/thread-376095-1-1.html 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private ...
- excel 日期加时间java程序里被转成浮点型_Java常见面试题
Java的基本类型有哪些？ 8种基本类型：byte short int long float double char boolean重写和重载的特点和区别？ a)重载简单说，就是函数或者方法有同样的名称，但是参数列表不相同的情形，这样的同名不同参数的函数...
- C#读取Excel五种方式体会（二）
上一篇文章中，我们找到了三种处理的方式，分别对其优缺点进行了
- Excel.Application使用手册(API)
Excel.Application使用手册 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare ...
- 300个VB全面控制Excel方法
VB全面控制Excel方法大汇总，共300个： 首先创建 Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口：ExcelID.Visible := True; 2) 更改 Excel ...
- 二维数组 赋值_3.9数组（数组基本使用、数组的循环、数组拷贝、数组排序、多维数组）...
3.9数组3.9.1数组基本使用 数组，英文叫Array，是一种数据结构，是用来存放同一数据类型数值的集合。例如存放30个int型数值、存放100个double型数值等等。我们知道使用一个变量，需要先声明一个变量，例如：int a;...
- Open XML操作Excel导入数据
项目中发现使用OleDb(using System.Data.OleDb)相关对象处理Excel导入功能，不是很稳定经常出问题，需要把这个问题解决掉。项目组提出使用OpenXML来处理Excel的导入、导出问题，出于兴趣对OpenXML了解一下，做了简单...
- Excel-VBA基础语法（VBA简介、数据类型、变量、数组、运算符、内置函数、过程与函数）
一、VBA介绍 1、宏和VBA的关系 vba是编程语言，宏是用vba代码保存下来的程序。录制的宏是vba里最简单的程序，正因为如此，录制宏存在许多缺陷：如无法进行判断和... 解决录制宏的这些问题，需要掌握vbs编...
- 来吧 带你玩转 Excel VBA
来吧 带你玩转 Excel VBA
- 编写高效Excel VBA代码的最佳实践(一)
-编写高效Excel VBA代码的最佳实践(一) 很多Excel VBA文章和图书都介绍过如何优化VBA代码，使代码运行得更快。下面搜集了一些使Excel VBA代码运行更快的技术和技巧，基本上都是实践经验的总结。如果您还有其它优化...