TA的每日心情 | 开心 2016-2-24 08:32 |
---|
签到天数: 27 天 连续签到: 1 天 [LV.4]测试营长
|
6#
楼主 |
发表于 2013-7-4 11:42:28
|
只看该作者
本帖最后由 maplee 于 2013-7-4 11:46 编辑
回复 maplee
这么速度 厉害啊
赵佳乐SMILE 发表于 2013-7-3 15:01
呵呵,我是这么写的,求指正~
Dim excelApp
Set excelApp =CreateObject("excel.application")
excelApp.Visible = true
excelApp.Workbooks.Open "D:\KEN_ALL.CSV"
Dim cRow, RowCount
RowCount = excelApp.ActiveSheet.UsedRange.Rows.Count
Dim oSheet, zipCode, City, District_1, District_2, District
Dim City_Check, District_Check
Set oSheet =excelApp.Sheets.Item(1)
For cRow = 0 To RowCount -1
zipCode = oSheet.Cells(cRow+1, 3)
City = trim(oSheet.Cells(cRow+1,7))
District_1 = Trim(oSheet.Cells(cRow+1,8))
District_2 = Trim(oSheet.Cells(cRow+1,9))
District = Trim((District_1&" "&District_2))
dataInput
Next |
|