数据库是.csv，怎样将窗口的Text1.Text~Text4.Text 输出到1.csv时，每一条记录一行，用excel打开时数据分别在A1，B1,C1,D1。。

一个例子

Dim ExcelApp As Excel.Application
Dim NewExcel As Excel.Workbook

Private Sub Command1_Click()
Set ExcelApp = CreateObject("Excel.Application")
'ExcelApp.Visible = False
Set NewExcel = ExcelApp.Workbooks.Open(App.Path + "\book1.csv")
With NewExcel
For i = 1 To 10
 .ActiveSheet.Cells(i, 1) = "'" & i * 10
Next
  ExcelApp.Visible = True
  
End With
End Sub

有没有不调研那个Excel的方法

下面又是一个例子，拿去看看吧：

Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim sql As String

STRNAME = App.Path & "\book1.csv"
strSheetName = "book1"
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & STRNAME & ";Extended Properties='Excel 8.0;HDR=Yes'"
sql = "select * from [" & strSheetName & "$]"
rs.Open sql, Conn, 1, 3
rs.AddNew
rs(0) = Text1
rs(1) = Text2
rs.Update
rs.Close
Conn.Close


End Sub

.csv 文件是一样 文本文件，
如果你要自己生成这个文件，直接按这个文件的格式写入数据就可以了。


数据;数据;数据;
数据;数据;数据;

对应的就是
每段数据用 半角分号分隔。

用 execl 打开时，就会是，每一行数据，显示在一行，然后每段数据，依次显示在每个单元格里。

Private Sub Command1_Click()
Dim FileNum As Long
FileNum = FreeFile
Open App.Path & "\book1.csv" For Append As #FileNum
 Print #FileNum, Text1 & " ," & Text2 & " ," & Text3 & " ," & Text4 & " ," & Text5
Close #FileNum
End Sub

感谢，除了第二种方法，没有那个控件调用失败以外，其他都可行。继续拿去研究

很专业