您所在位置：主题：请高手进入
dirkseng
[专家分：10] 发布于 2009-03-15 12:16:00
以下承接2009年3月12日标题为：“请VFP高手帮忙解决8位日期转10位日期的问题”文
您不愧是高手！谢谢您了！
SELECT kucun
nCount=AFIELDS(MyArray)
GO TOP
WAIT WINDOW "正在生成Excel文件，请稍候......" NOWAIT
oExl=CREATEOBJECT("Excel.Application")
oExl.Workbooks.Add
oExl.Worksheets("sheet1").Activate
FOR I=1 TO nCount
oExl.ActiveSheet.Columns(I).ColumnWidth=20
oExl.Cells(1,I).Value=MyArray(I,1)
Endfor
SCAN
FOR J=1 TO nCount
cField=MyArray(J,1)
oExl.Cells(RECNO()+1,J).Value=&cField
ENDFOR
ENDSCAN
WAIT CLEAR
oExl.Visible=.t.
通过测试，可运行。不过还有些小的细节，能修正一下就更好了。
1、以“〇”开头的数字，转入Excel文件后，“〇”不能有丢失。请比较：标签号“A81744704810001”的资产序列号，DBF文件中为“02005053”，Excel文件中为“2005053”。
2、字符型字段，自动左对齐，数值型字段，右对齐。
3、关于在Excel中的金额问题，小数点后应自动显示2位(在导入前就设定好，不想在Excel中重新设置），对于超过2位的，只截取2位，不做四舍五入处理（如遇单价、数量、或兑换率等除外）。
4、关于“类别”、“地点”，可否不导入？因为有时可以原封不动的将EXCEL表内的数据粘贴到另一个格式一样的表中，还有，我想向您学习怎样处理其中的无用信息这类事件。
5、生成Excel Sheet后，能否做到只要用户输入一个文件名后，自动存盘推出当前操作界面，不要由用户去另存盘。
6、在执行此程序时，能否设置成由用户自行选择文本文件？（注：因为从Oracle下导出的文本文件名每次是不一样的，因此每次还要将先前的文本文件重命名，然后，才能用新的覆盖原“资产库存明细报表”，这样很麻烦）。
谢谢！谢谢！
（因在上次的无法给您加分，限定最高只能得50分，故转入此条）
您不愧是高手！谢谢您了！
SELECT kucun
nCount=AFIELDS(MyArray)
GO TOP
WAIT WINDOW "正在生成Excel文件，请稍候......" NOWAIT
oExl=CREATEOBJECT("Excel.Application")
oExl.Workbooks.Add
oExl.Worksheets("sheet1").Activate
FOR I=1 TO nCount
oExl.ActiveSheet.Columns(I).ColumnWidth=20
oExl.Cells(1,I).Value=MyArray(I,1)
Endfor
SCAN
FOR J=1 TO nCount
cField=MyArray(J,1)
oExl.Cells(RECNO()+1,J).Value=&cField
ENDFOR
ENDSCAN
WAIT CLEAR
oExl.Visible=.t.
通过测试，可运行。不过还有些小的细节，能修正一下就更好了。
1、以“〇”开头的数字，转入Excel文件后，“〇”不能有丢失。请比较：标签号“A81744704810001”的资产序列号，DBF文件中为“02005053”，Excel文件中为“2005053”。
2、字符型字段，自动左对齐，数值型字段，右对齐。
3、关于在Excel中的金额问题，小数点后应自动显示2位(在导入前就设定好，不想在Excel中重新设置），对于超过2位的，只截取2位，不做四舍五入处理（如遇单价、数量、或兑换率等除外）。
4、关于“类别”、“地点”，可否不导入？因为有时可以原封不动的将EXCEL表内的数据粘贴到另一个格式一样的表中，还有，我想向您学习怎样处理其中的无用信息这类事件。
5、生成Excel Sheet后，能否做到只要用户输入一个文件名后，自动存盘推出当前操作界面，不要由用户去另存盘。
6、在执行此程序时，能否设置成由用户自行选择文本文件？（注：因为从Oracle下导出的文本文件名每次是不一样的，因此每次还要将先前的文本文件重命名，然后，才能用新的覆盖原“资产库存明细报表”，这样很麻烦）。
谢谢！谢谢！
（因在上次的无法给您加分，限定最高只能得50分，故转入此条）
