一个CSV文件，内容如下

番号，尺寸，颜色，总数
1，L，BLK，21
2，M，BLK，12
3，S，WHT，20
4，M，WHT，7
5，L，WHT，17
。。。

（第一行为固定）    如何将它写入到SPREAD表格。，拜托了

我是新人，希望有人帮帮我，不胜感激        在线急等

[[it] 本帖最后由 kamo 于 2008-7-31 18:40 编辑 [/it]]

哪位大哥知道的说下呀，在线急等

谢谢大侠们的提点，现在问题已经解决。

Private Sub cCmdCommand_Click()

    Dim iFileNumber As Integer
    iFileNumber = FileSystem.FreeFile()
    Dim Value As Variant
    Dim arrLine() As String

    Open "C:\Documents and Settings\WUDING\デスクトップ\kayi\test.txt" For Input As #iFileNumber

    Dim stResult As String
    Dim i As Long
   
    i = 1
   
    Do While (Not FileSystem.EOF(iFileNumber))
        
        Dim stBuffer As String
        Line Input #iFileNumber, stBuffer
        arrLine = Split(stBuffer, ",")
 
        vaSpread1.SetText 1, i, arrLine(0)
        vaSpread1.SetText 2, i, arrLine(1)
        vaSpread1.SetText 3, i, arrLine(2)
        vaSpread1.SetText 4, i, arrLine(3)

    i = i + 1
    Loop

    Close #iFileNumber
 
End Sub

另外想问一下，如果我只想读取文件里的某一条内容，又该怎么办呢？谢谢

[[it] 本帖最后由 kamo 于 2008-8-5 13:26 编辑 [/it]]

有没有哪位大哥大姐知道呀，拜托了