急救！！！急救！！！！！Excel问题呀！！！高分！！给你，不够再加！

[ysp128]

怎么样一个字段一个字段地取Excel中的数据
因为我要对字段进行处理才能导入数据库呀

[sxs69]

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlBook = GetObject(App.Path + "\book\biao1.xls")
Set xlsheet = xlBook.Sheets(1)

With xlsheet
text1=.Cells(1, 1)
text2=.Cells(2, 2)
end with

[蘑菇]

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlBook = GetObject(App.Path + "\book\biao1.xls")
Set xlsheet = xlBook.Sheets(1)
用xlsheet对象进行循环读取就行了

[JimexLee]

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlBook = GetObject(App.Path + "\book\biao1.xls")
Set xlsheet = xlBook.Sheets(1)

With xlsheet
text1=.range("A1")'A1是单元格的名称
text2=.range("A2")
end with

[efei]

引用Excel
Dim excel_app As Object
Dim sheet1 As Object
Dim row As Integer
Dim col As Integer
Set excel_app = CreateObject("Excel.Application")
excel_app.Workbooks.Open FileName:="filename"
Set sheet1 = excel_app.Workbooks(1).Worksheets("sheetname")
sheet1.Cells(row, col)就是相应的单元格数据

[s6w6k]

不如先在excel整理数据，然后，再导入！