Vb6 如何将excel文件转换为文本文件?
有人能帮我把txt文件转换成xls文件吗?我们将非常感谢您的帮助。谢谢 我想上述情况正好相反 如果您想在VB6中处理数据本身(我假设您是因为标记而这样做的),请参阅以下代码:Vb6 如何将excel文件转换为文本文件?,vb6,Vb6,有人能帮我把txt文件转换成xls文件吗?我们将非常感谢您的帮助。谢谢 我想上述情况正好相反 如果您想在VB6中处理数据本身(我假设您是因为标记而这样做的),请参阅以下代码: CSV是TXT类型的特例,其中字段以逗号分隔。您应该能够指定任何字符(包括空格或制表符)作为分隔符。我收到一个错误,说用户定义的类型没有定义。我该怎么办?我需要包括一些参考资料吗?在第1行,将cnn设置为新的ADODB.connection,您需要吗?“要在您的计算机上正确安装ADO,您需要安装MDAC。”我需要什么版本
CSV是TXT类型的特例,其中字段以逗号分隔。您应该能够指定任何字符(包括空格或制表符)作为分隔符。我收到一个错误,说用户定义的类型没有定义。我该怎么办?我需要包括一些参考资料吗?在第1行,将cnn设置为新的ADODB.connection,您需要吗?“要在您的计算机上正确安装ADO,您需要安装MDAC。”我需要什么版本的MDAC?只需查看当前的官方下载即可。
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "C:\Documents and Settings\...\My Documents\My Database\Text;" & _
"Extended Properties=""Text;HDR=No;"""
rs.Open "Select * from TextFile.csv", cnn, adOpenStatic, adLockReadOnly, adCmdText
'...
'...
'...
rs.Close
cnn.Close
Set cnn = Nothing