'先引用Microsoft Excell 11.0 Object lirary Option ExplicitPrivate Sub Command1_Click() Dim xlExcel As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Worksheet Dim iRow As Long
xlExcel.Workbooks.Open "D:\Book1.xls" Set xlBook = xlExcel.Workbooks(1) xlBook.Sheets(1).Select
For iRow = 1 To xlExcel.ActiveSheet.UsedRange.Rows.Count '将第F列(即第6列)的所有数据导入到List1中。要写文件就很简单了。 List1.AddItem xlBook.Worksheets(1).Cells(iRow, 6) Next
xlBook.Close xlExcel.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlExcel = Nothing
首先,谢谢各位的回答。 谢谢二楼“chenjl1031”大哥,我用你写的代码编译后出现写问题。 我主要想用VB编写一个小的exe文件,有两个按钮,一个按钮是选择需要处理的excel原文件;另一个按钮的功能是执行“Excel中最后一列内容相同的所有行提取保存到文本文件中”,在生成的所有文件中都保留原文件的第一行。 例如: Name Tag Description Type Unit SysID TEST01 W1 TEST1 int N AGM TEST02 W2 TEST2 str Y AGM TEST03 W3 TEST3 int N AGM
Option ExplicitPrivate Sub Command1_Click()
Dim xlExcel As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Dim iRow As Long
xlExcel.Workbooks.Open "D:\Book1.xls"
Set xlBook = xlExcel.Workbooks(1)
xlBook.Sheets(1).Select
For iRow = 1 To xlExcel.ActiveSheet.UsedRange.Rows.Count
'将第F列(即第6列)的所有数据导入到List1中。要写文件就很简单了。
List1.AddItem xlBook.Worksheets(1).Cells(iRow, 6)
Next
xlBook.Close
xlExcel.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlExcel = Nothing
End Sub
谢谢二楼“chenjl1031”大哥,我用你写的代码编译后出现写问题。
我主要想用VB编写一个小的exe文件,有两个按钮,一个按钮是选择需要处理的excel原文件;另一个按钮的功能是执行“Excel中最后一列内容相同的所有行提取保存到文本文件中”,在生成的所有文件中都保留原文件的第一行。
例如:
Name Tag Description Type Unit SysID
TEST01 W1 TEST1 int N AGM
TEST02 W2 TEST2 str Y AGM
TEST03 W3 TEST3 int N AGM