子那么用VB实现数据另存

来源：百度知道 编辑：UC知道 时间：2024/05/31 11:55:58
我想在VB中用几个控件，实现把某个EXCEL中的数据存到一个记事本文件中，并在数据之间用逗号隔开
题目为:怎么用VB实现数据另存

我想在VB中实现

这个是Excel的另存为，录制一段宏就可以了

====================

'这就是VB里的代码了
'单击菜单上的工程-引用 Microsoft Office Excel Object Library
'然后在窗口上添加一按钮,粘贴以下代码
'就可以运行了...

Option Explicit
Private Sub Command1_Click()
Dim oWorkBooks As excel.Workbooks
Set oWorkBooks = excel.Workbooks

Dim oWorkBook As excel.Workbook
Set oWorkBook = oWorkBooks.Open("c:\exl.xls")

oWorkBook.SaveAs "c:\excel1.txt", XlFileFormat.xlCSV

oWorkBook.Application.Quit

Set oWorkBook = Nothing
Set oWorkBooks = Nothing
End Sub