【100分】求助:VBscript读CSV单元格的值赋给变量怎么做?
VBscript读CSV单元格的值赋给变量怎么做?我要用VBscript读CSV中某一列的值赋给一个变量,怎么做??? --------------------编程问答-------------------- 问题描述不清楚,是一列中的某个单元格赋值给一个变量?还是将这一列组成一个数组赋值给一个数组变量?还是将这一列连接成字符串赋值给一个字符串变量?
楼主可以创建一个Excel实例,然后用Excel打开CSV,再读取该工作表就行了。 --------------------编程问答--------------------
'先引用excel *.0 object library--------------------编程问答-------------------- csv实际上是文本文件,数据间用逗号分隔,直接读取,用split分解 --------------------编程问答-------------------- 那就按文本方式处理,首先分割到一个二维数组中,然后直接通过下标访问。如果要以数据源的方式访问可能有点困难,可以先用vb做个组建然后供vbs去createobject使用。
Private Sub Command3_Click()
Dim i As Long, A As Long
Dim arr() As String, str As String, Count As Long
Dim Result As String
Set ex = CreateObject("Excel.Application")
'Set wb = ex.Workbooks.Add '新建excel
Set wb = ex.Workbooks.Open("c:\file.csv") ' 你的A文件
Set sh = wb.Sheets(1) '第一个工作表
Count = ex.ActiveSheet.UsedRange.Rows.Count
' Count = ex.Application.WorksheetFunction.CountA(Columns("C:C"))
For i = 0 To Count
If sh.Cells(i + 1, 3) <> "" Then '这是提取第三列的数据
Result = Result & sh.Cells(i + 1, 3) & vbCrLf
End If
Next i
MsgBox Result
wb.Close SaveChanges:=True '直接关闭
ex.Quit
'ex.Visible = True
Set ex = Nothing
Set wb = Nothing
Set sh = Nothing
End Sub
补充:VB , 基础类