50分，应该很简单

Question

我的程序中欲生成一个excel文件，假设叫test.xls，然后程序每次会生成三个字符串假设为a,b,c，怎样能让这三个字符串分栏插入呢，
Private Sub Command1_Click() Open "d:\\TEST.xls" For Append As #1
   Dim str As String
   str = trim("a") + vbTab + trim("b") +vbtab＋trim("c")+ vbCrLf
   Write #1, str
   Close #1End Sub对不对 ？或者用VBA写一个吧  
请各位NN写出一个例子代码，能运行马上给分

Answer 1

真正的excel不能这样简单的生成……
csv还可以Private Sub Command1_Click() Open "d:\\TEST.csv" For Append As #1
   Dim str As String
   str = trim("a") + "," + trim("b") +","＋trim("c")+ vbCrLf
   Write #1, str
   Close #1End Sub

Answer 2

分栏插入??
是把数据追加到Excel里?放到第几列去呢?数据追加可以用Excel对象来做,也可以把Excel当作数据库来操作

Answer 3

to faysky2()
很简单，就是前三列里,qing请写出代码吧，我在这方面还不太在行

Answer 4

Private Sub Command1_Click()
Dim xlApp As Object,xlBook As Object   
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open App.Path & "\test.xls"

Dim str1$,str2$,str3$,currRow As Integer
str1="abcd"
str2="efgh"
str3="ijkl"
currRoe=xlBook.ActiveSheet.[A1].CurrentRegion.Rows.Count
xlBook.ActiveSheet.Range("A" & currRow)=str1
xlBook.ActiveSheet.Range("B" & currRow)=str2
xlBook.ActiveSheet.Range("C" & currRow)=str3
xlBook.SaveAs App.Path & "\Temp.xls"
xlBook.Close True
xlApp.Quit
Set xlBook=Nothing
Set xlApp=Nothing
End Sub

Answer 5

中间有一句,变量写错了currRoe=xlBook.ActiveSheet.[A1].CurrentRegion.Rows.Count
currRoe应该是currRow

Answer 6

是这样的，每次要去读一下D盘这个文件，看写到那一行了吧，比方说已经到了N行了
那接着从N+1行开始写呀

Answer 7

Set xlBook = xlApp.Workbooks.Open App.Path & "\test.xls"
这一句报错了，我是6。0版，这一句是打开上d:\test.sxls吗？

Answer 8

currRoe=xlBook.ActiveSheet.[A1].CurrentRegion.Rows.Count  '得到A列的行数
xlBook.ActiveSheet.Range("A" & currRow + 1)=str1  '在A列的最后一行添加数据str1Set xlBook = xlApp.Workbooks.Open App.Path & "\test.xls" 
App.Path 表示当前工程所在的目录，整句意思是打开当前目录下的test.xls文件

Answer 9

Private Sub Command1_Click()
Dim xlApp As Object, xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open "d:\test.xls"Dim str1$, str2$, str3$, currRow As Integer
str1 = "abcd"
str2 = "efgh"
str3 = "ijkl"
currRow = xlBook.ActiveSheet.[A1].CurrentRegion.Rows.Count
xlBook.ActiveSheet.Range("A" & currRow) = str1
xlBook.ActiveSheet.Range("B" & currRow) = str2
xlBook.ActiveSheet.Range("C" & currRow) = str3
xlBook.SaveAs "d:\test.xls"
xlBook.Close True
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
就是通不过的，问题在Set xlBook = xlApp.Workbooks.Open "d:\test.xls"

Answer 10

Set xlBook = xlApp.Workbooks.Open("d:\test.xls")