vba编程:在Excel表中有一个按钮控件，点击按钮后可以生成一个csv文件，问题是：

如何利用vba编程实现点击按钮后可以直接在csv文件中的表格里有数据，该数据是在vba编程中赋值的

'创建文本文件

Sub CreateFile()

Dim fso, tf

Set fso = CreateObject("Scripting.FileSystemObject")

Set tf = fso.CreateTextFile("c:\1.csv", True)

'写一行，并带有一个新行字符。

tf.WriteLine("Testing 1, 2, 3.")

'向文件写三个新行字符。

tf.WriteBlankLines(3)

'写一行。

tf.Write ("This is a test.")

tf.Close

End Sub

以下代码可以一次保存所有选定的表格。产生的csv文件在c:\temp文件夹中。 option explicit sub exportselectiontocsv() dim wks as worksheet dim newwks as worksheet for each wks in activewindow.selectedsheets wks.copy 'to a new workbook set newwks = activesheet with newwks application.displayalerts = false .parent.saveas filename:="c:\temp\" & .name, _ fileformat:=xlcsv application.displayalerts = true .parent.close savechanges:=false end with next wks end sub

留联系瞧瞧。