请帮忙，万分感谢! - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请帮忙，万分感谢!

标题：请帮忙，万分感谢!

只看楼主

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 11 楼

得分:0

以下是引用sdta在2014-2-14 11:11:38的发言：

EXCEL版本太高了，没做过，平时只用EXCEL2003

对的 XXX.xlsx没弄过

2014-02-14 11:16

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 12 楼

得分:0

跟版本沒有關係，一樣的用法。

授人以渔，不授人以鱼。

2014-02-14 11:17

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 13 楼

得分:0

以下是引用TonyDeng在2014-2-14 11:12:12的发言：

我這是幫某人說的

别帮wo说

2014-02-14 11:17

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 14 楼

得分:0

文件打不开，如何查看原始数据，怎么说和版本没关系。

坚守VFP最后的阵地

2014-02-14 11:19

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 15 楼

得分:0

你打不開不等於人家打不開

授人以渔，不授人以鱼。

2014-02-14 11:22

andyee

等　级：新手上路
帖　子：90
专家分：0
注　册：2014-2-12

第 16 楼

得分:0

比如说：
我百度到了一段，谁帮我纠错一下
if used temp.dbf then
select
select 0
use temp.dbf
mypath=('d:\data')
myfile=dir(mypath&"*.xlsx")
myexcel=creatobject('excel application')
myexcel.visiable=.f.
  do while myfile<>""
         mybook=myexcel.workbooks.open(mypath&myfile)
         UsedRange =bookexcel.worksheets(o_SheetName).UsedRange
         o_rows=UsedRange.rows.count    &&汇总行
     FOR i=2 TO o_rows
         m1=myexcel.cells(i,1).value
         m2=myexcel.cells(i,2).value
         m3=myexcel.cells(i,3).value
         m4=myexcel.cells(i,4).value
         m5=myexcel.cells(i,5).value
       APPEND BLANK
       REPLACE DATE WITH m1,SELLER WITH m2,BUYER WITH m3,AMOUNT WITH m4,PRODUCT WITH m5
    ENDFOR
  ENDWHILE
Myexcel.workbooks.close
myexcel.quit

2014-02-14 11:27

andyee

等　级：新手上路
帖　子：90
专家分：0
注　册：2014-2-12

第 17 楼

得分:0

我上传其中一个.xlsx