VB6.0 如何读取 EXCEL 中最后一行指定的列？ - 编程论坛

#2

chen35232014-05-08 21:38

C5在VB中表示为:xlsheet.cells(5,3) '第5行第3列
因编程电脑坏了，没试验过只是臆想a=xlsheet.cells(5,3)

#3

大赖皮雄2014-05-09 11:29

首先要建立excel对象，然后用对象打开工作薄文件，再到工作薄文件里去打开工作表，最后才能读写单元格内容。

#4

xw_hjs2015-05-09 21:00

在“工程”“部件”中添加“Microsoft Common Dialog Control 6.0”，在窗体中加入此控件及Command1，再写入以下代码：
Private Sub Command1_Click()
Dim xlApp
Dim xlBook
Dim xlSheet1
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName)
Set xlSheet1 = xlBook.sheets(1)

msgbox xlSheet1.UsedRange.column.Count '弹出窗口说明在第几列

xlBook.Close savechanges:=True
xlApp.Quit
Set xlSheet1 = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
end sub