读文件:
Function readTextIntoExcel(path As String)
RowIndex = 11
Open path For Input As #1 '
Do While Not EOF(1) '
Line Input #1, currLine
rowDataArr = Split(currLine, Chr(9))’各数据之前以TAB隔开的CSV文件
For i = 0 To UBound(rowDataArr)
Cells(RowIndex, i + 3) = rowDataArr(i)
Next i
RowIndex = RowIndex + 1
Loop
Close #1
Exit Function
End Function
------------------------------------------------------------------------------------------------
写文件:
Function writeInfoIntoTxtFile(fullpath As String)
RowIndex = 11
Open fullpath For Output As #1
Do While Sheet1.Cells(RowIndex, 3) <> ""
Print #1, Sheet1.Cells(RowIndex, 3) & Chr(9) & _
Sheet1.Cells(RowIndex, 4) & Chr(9) & _
Sheet1.Cells(RowIndex, 5) & Chr(9) & _
Sheet1.Cells(RowIndex, 6) & Chr(9) & _
Sheet1.Cells(RowIndex, 7) & Chr(9) & _
Sheet1.Cells(RowIndex, 8)
RowIndex = RowIndex + 1
Loop
Close #1
End Function