WPS打不开DBF文件是怎么回事

重新安装如果网速没有任何的问题，其他的软件依旧可以使用，只是wps出现故障，那么可以将电脑中的wps卸妆之后再重新安装wps总是在升级，从而造成wps打不开的现象，可以将wps卸载之后再重新安装，或者直接将wps升级下。在卸载其他软件的时候可能会将wps相关的软件也一并卸载掉，造成wps打不开现象，可以使用修复工具修复看看。在临时文件打开试看看点击开始运行输入%temp%在临时文件中打开试看看。更改后缀名当后缀名乱改之后，也可能造成wps打不开的现象，wps的后缀名是doc，如何是后缀名错了，改回来即可。可以尝试以管理员的身份运行此程序，右键单击应用程序运行快捷方式，选择以管理员的身份运行。

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

以下代码是调出文件浏览器窗口，选择xls格式文件，然后把第一行内容显示在listbox上。

请问如何修改代码以实现对dbf格式文件的 *** 作以实现相同的结果。（希望具体点）

Option Explicit

Dim xlApp As ExcelApplication '定义EXCEL类

Dim xlBook As ExcelWorkbook '定义工件簿类

Dim xlsheet As ExcelWorksheet '定义工作表类

Dim Tex As String

Dim ln As String

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

Dim x As Integer

CDShowOpen

List2MousePointer = 11

Open CDFilename For Input As 1

Do Until EOF(1)

Line Input #1, ln

Tex = Tex & ln & vbCrLf

Loop

'判断EXCEL是否打开

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL应用类

xlAppVisible = False '设置EXCEL可见

Set xlBook = xlAppWorkbooksOpen(CDFilename) '打开EXCEL工作簿

Set xlsheet = xlBookWorksheets(1) '打开EXCEL工作表

xlsheetActivate '激活工作表

xlBookRunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏

For x = 1 To 4

List2AddItem xlsheetCells(1, x) '给单元格1行驶列赋值

Next x

Close 1

List2MousePointer = 0

Tex = ""

End Sub

解析:

你的代码是实现对excel *** 作的excelapplication

dbf 是数据库文件

思想:需要先转换 dbf为 excel文件

将dbf文件导入Excel表中可以用数据导入功能。做法：

在Excel中选择菜单中的“数据”>“导入外部数据”>“导入数据”，然后在“文件类型”中选择“dbf”，点“打开”，相应的数据就进入Excel了。

如果按你的意思一定要代码实现的话

那需要看excel有没有给你这个 转换的接口了

如果没有的话、或者需要付费的话、可以联系下微软

不行的话、可以手动 *** 作

如一定要用你的代码、那看来需要找个什么小工具在你的代码前先把文件格式转下在用了

建议希望对你有帮助

以上就是关于WPS打不开DBF文件是怎么回事全部的内容，包括:WPS打不开DBF文件是怎么回事、vb6.0文件 *** 作、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！