vb程序将后缀名为.dat的二进制文件转换为Excel的文件

用open打开，用line读取每一行即可。代码如下：open "c:\1.dat"for input as 1 '打开c:\1.dat，文件号1 do while not eof(1)'文件循环读取到结束 line input 1,temp '读取一行到temp中 'text1 = text1 & temp '将这一行放到text控件中。按实现需要 loop '未结束，继续读取 close 1 '...

"1.当然可以，首先要确定自己有一个pdf文档，而且确定目的是需要将pdf文档转换为word格式，然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是否更改文件名，然而在保存类型中选择*.doc选项。4.全部设置完成点击开始转换，确定自己设置好路径、更改文件名和保存类型即可。5.转换完成之后的word文档同样可以通过迅捷pdf转换器重新转换成一开始的pdf文档。"1.当然可以，首先要确定自己有一个pdf文档，而且确定目的是需要将pdf文档转换为word格式，然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是...

将" "(2空格)替换为" "(一空格),知道文件不在变化 将" "(1空格)替换为","另存为aaa.csv 用excel打开就行了 这个最简单 用vb代码如下 '打开文本文件 dim tmpstr as string dim alltxt as string open "c:\error.txt" for input as #1 do until eof(1)read #1,tmpstr alltxt=allt...

VBA不能独立运行，是基于office的

Sub test()MyFileName = Dir("d:\*.txt")i = 1Do While MyFileName <> "" Cells(i, 1) = MyFileName i = i + 1 MyFileName = DirLoopEnd Sub

只要保存为txt文件，然后修改扩展名即可，或者直接保存为：xxx.dat 读写excel文件参考以下代码：Dim EXCEL对象 As Excel.Application Dim 工作薄 As Excel.Workbook Dim 工作薄1 As Excel.Workbook Dim 工作表 As Excel.Worksheet Dim 工作表1 As Excel.Worksheet Dim i As Integer Dim j As Integer ...

Public Class Cls导入数据 Dim xlApp As New Excel.Application()Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim A = "A"Public Function 导出到Excel(ByVal Dt表 As DataTable) As Boolean Dim rowIndex, colIndex As Integer rowIndex = 1 colIndex = 0 xlBook = xlApp...

Private Sub Form_Click()Dim strPath As StringstrPath = App.Path & "\abc\" '指定路径，结尾要带上 \"strPath = "cmd.exe /c ren " & """ & strPath & "*.txt""" & " *.xls"Shell strPath, 0Form1.Print strPathEnd Sub ...

然后稍微修改一下就可以另存为**.vbs放到文件夹里双击打开就可以了。第一行改成你要修改的文件夹路径，第6行改成你要修改成的.CSV格式，以上是我自己用来改文件名的程序，很好用。如果你要改成CSV的格式的文件，那么你用VB的话必须引用EXCEL控件，然后循环打开文件，再用另存为，有点复杂，他们一般...

Dic.Add (Ke(I) & MyName & "\"), "" '就往字典中添加这个次级目录名作为一个条目 End If End If MyName = Dir '继续遍历寻找 Loop I = I + 1 Loop 'Did.Add ("文件清单"), "" '以查找D盘下所有EXCEL文件为例 For Each Ke In Dic.keys MyFileName = Dir(Ke & "*...

错误可能有两个，就是xlsheet、Adodc1.Recordset这两个对象的问题 由于没有你程序的上下文，看不到Adodc1的定义及查询代码 你要检查一下这个Recordset是不是空的，还有 xlsheet是不是已经不是nothing,看代码应该没有问题 或者 或者运行时引用了坐标为0的单元格,如 sheet.cells(0,0)你注释掉　on ...