VFP中DBF表批量导出到EXCEL(转载)

默认分类 | 2021-04-20 11:47:53 | 阅读 332 次 | 评论(0)

来源:https://bbs.csdn.net/topics/391962702

作者:都市夜猫

Local cCurDir, cNewDir, cDbf, cXls, ii
Local array aDbfs[1]

m.cCurDir = Sys(5) + Curdir()
m.cNewDir = GetDir('', '选择要被转换的 Excel 文件所在的文件夹。', '选择文件夹', 1+64)
If Empty(m.cNewDir)
    *--
Else
    Clear
    ChDir (m.cNewDir)
    If ADir(m.aDbfs, '*.dbf') < 1
	MessageBox('选定的文件夹内没有 dbf 文件。', 64, '')
    Else
	MkDir ('转换后的 xls')
	For m.ii = 1 to Alen(aDbfs, 1)
	    m.cDbf = Lower(m.aDbfs[m.ii, 1])
 	    m.cXls = Addbs(JustPath(m.cDbf)) + '转换后的 xls\' + ForceExt(m.cDbf, 'xls')
 	    Select 0
 	    Try
		Use (m.cDbf) Alias _dbf
 	    Catch
	    EndTry
		If Used('_dbf')
		    Export to (m.cXls) Type XL5
		    Use in _dbf
		    ? '导出 ' + m.cDbf + Chr(9) + ' 到 ' + m.cXls
		Else
		    ? '!!! 错误: 打开 ' + m.cDbf + ' 失败 !!!'
		EndIf
	EndFor
    EndIf
EndIf
ChDir (m.cCurdir)

文章评论,共0条
游客请输入验证码
文章分类
最新评论