EXCEL2007工作表已没有另存为DBF表的选项

[yjrryyx]

EXCEL2007工作表已没有另存为DBF表的选项，当然也不能：oExcel.ActiveWorkbook.SaveAs('TEST.DBF',8)这种形式，
当然也不能用：appe from getfile("xls")这种形式,怎么办，不要跟我说退回到EXCEL2000，因为公司新的电脑都是按装EXCEL2007的，在EXCEL2007下如何操作EXCEL工作表成为DBF表，VFP真的好无奈啊，请各位高手支支招，谢谢！

[wwwwb]

OR
在ODBC中建立数据源，连接EXCEL 2007，
在VFP中用远程视图访问

[yjrryyx]

不知道如何再次导入到EXCEL 中，看来VFP的生命比我想象中的终结来的更早一点了，都是在程序中自动导入的，用追加形式，不知道如何重新修改了，自己用当然不怕2007还是2011的，是要用程序自动完成的导入，谢谢你，还请高手们再出出主意。

[wwwwb]

假设你已经安装OFFICE2007：
oconnection = CREATEOBJECT("adodb.connection")
oconnection.connectionstring = 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myExcel2007file.xlsx;Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1";
oconnection.open
oConnection.EXECUTE('SELECT * INTO [DBASE 5.0;DATABASE=R:\TEMP].AA FROM [SHEET1$]')

[-晴天]

直接在VFP里导入.

[ACMAIN_CHM]

还是先导出ACCESS然后再保存为DBF

[yjrryyx]

[Quote=引用 2 楼 yjrryyx 的回复:]
谢谢，第一条肯定不行，在EXDEL2007下不管你另存为什么格式，在追加时通通出错，第二条另存为txt格式，会出现乱码，那一种文本文件更正确一点，现在还没调试出来，有没有已在用EXCEL2007的有好的方法的高手显身一下，谢谢！
[/Quote]
另存为2000-2003格式不行，另存为5.0/95 工作簿可以追加到DBF表中，在代码中如何把不是5.0/95 格式转为可追加的格式，在EXCEL2007将格式转为5.0/95工作簿录制宏代码如下：
Sub Macro1()
'
' Macro1 Macro
'

'
Cells.Select
ChDir "C:\Users\yjr\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\yjr\Desktop\6月单价.xls", FileFormat _
:=xlExcel5, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Application.Goto Reference:="Macro1"
End Sub
不知VFP代码如何写，请高手帮忙，谢谢！

[FOXHENGXING]

直接用com的方式访问，循环单元格，把数据填回来就好

[yjrryyx]

唉，看来一般的技术完不动VFP了，从最简单的数据库语言要开始走向复杂的道路了，因为越来越需要要靠第三方控件来支持了！

[dfwxj]

是什么样的数据要导入到DBF？那数据是从哪来的？是机器自动生成出来的还是人手工录入的？

[liups]

所以我只用office2003

[liuanzhao]

调用EXCEL程序，打开要导入的文件，循环单元格,填到对应的DBF文件的字段里

如：

oexl=CREATEOBJECT("excel.application")
oexl.workbooks.open("&lcDelimFile")

ncount=AFIELDS(aprtarray)

nrow=1


WAIT '正在执行所请求的操作，请稍候......' WINDOW AT 40,50 NOWAIT


DO WHILE .t.

APPEND BLANK
FOR i=1 TO ncount
cfield=aprtarray(i,1)



xhbl=oexl.cells(nrow,i).value


IF varTYPE(xhbl)="X" AND cfield="序号" THEN
MESSAGEBOX("第1列遇到空白记录！导入结束",64,"友情提示")
oexl.workbooks.close
oexl.quit
RETURN
ENDIF

REPLACE &cfield WITH xhbl


nrow=nrow+1
i=1

ENDDO

[WWWWA]

[Quote=引用 9 楼 yjrryyx 的回复:]
引用 2 楼 yjrryyx 的回复:
谢谢，第一条肯定不行，在EXDEL2007下不管你另存为什么格式，在追加时通通出错，第二条另存为txt格式，会出现乱码，那一种文本文件更正确一点，现在还没调试出来，有没有已在用EXCEL2007的有好的方法的高手显身一下，谢谢！

另存为2000-2003格式不行，另存为5.0/95 工作簿可以追加到DBF表中，在代码中如何把不是5.0/95 格式转为……
[/Quote]
与2000的VBA类似，试试
ActiveWorkbook.SaveAs("C:\Users\yjr\Desktop\6月单价.xls",56)

[十豆三]

另存为
Microsoft Excel 5.0/95 格式或4.0格式
或
CSV
再导入。

[十豆三]

[Quote=引用 9 楼 yjrryyx 的回复:]
另存为2000-2003格式不行，另存为5.0/95 工作簿可以追加到DBF表中，在代码中如何把不是5.0/95 格式转为可追加的格式，在EXCEL2007将格式转为5.0/95工作簿录制宏代码如下：
Sub Macro1()
'
' Macro1 Macro
'
'
Cells.Select
ChDir "C:\Users\yjr\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\yjr\Desktop\6月单价.xls", FileFormat _
:=xlExcel5, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Application.Goto Reference:="Macro1"
End Sub
不知VFP代码如何写，请高手帮忙，谢谢！[/Quote]
lcFileName='C:\2007格式.xls'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
oExcel.DisplayAlerts=.F.
oExcel.ActiveWorkbook.SaveAs('C:\NewTest95格式.xls',39) && 43为97/2003 xlExcel9795（39为5.0/95 xlExcel5 & xlExcel7)
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量
Messagebox('另存为5.0格式完成！',64,'信息提示')

[wwwwb]

http://msdn.microsoft.com/en-us/library/bb241279(v=office.12).aspx
从内容上看，支持DBF4的
oExcel.ActiveWorkbook.SaveAs('C:\NewTest95格式.xls',11)

[yjrryyx]

[Quote=引用 17 楼 apple_8180 的回复:]
引用 9 楼 yjrryyx 的回复:
另存为2000-2003格式不行，另存为5.0/95 工作簿可以追加到DBF表中，在代码中如何把不是5.0/95 格式转为可追加的格式，在EXCEL2007将格式转为5.0/95工作簿录制宏代码如下：
Sub Macro1()
'
' Macro1 Macro
'
'
Cells.Select
ChDir "C:\Users\yjr\Desk……
[/Quote]
转换成功，谢谢！

[everyday1212]

真NB，学习了！

[qgfudi]

路过，学习！！！

[sdjnjdxc]

烦恼,烦恼

[xjj1976]

可以先另存为”Microsoft Excel 5.0/95“，然后从VF软件中导入即可