[求助]如何点击一按钮获取excel中的内容?

szuki

我是想点按钮，弹出打开excel文件对话框，选择我要选取的xls文件，读取特定的内容。

但是打开excel文件对话框 和 如何引用这个选取的xls文件不是很会，谁来帮忙指点下

用 Set ExcelApp = Excel.Application.Dialogs.Item(xlDialogOpen).Show 好像出错。。    - -!

StartMe

用GetObject就可以获取选择的文件source_file

Set SourceFile = getObject(source_file)

sourceFile 定义为 new workbook

sourceFile.sheets(cc$).Range("a1")就可以获取文件source_file中电子表为cc$中的a1单元格的数据。

szuki

帮忙看看，这个第一次允许还马马虎虎，第二次允许就报错

我的最终需要是将 ComboBox_BTNK  等下拉框取 excel里对应的值，程序中需要打开excel以获得内容，能否不打开excel文件获取信息?

Private Sub CMD_InputExcelData_Click()

Dim ExcelPath As Variant, ExcelName As String, m As Integer
Dim ExcelApp As Excel.Application
Dim ExcelSheet As Excel.Worksheet

On Error GoTo Err_Control

ExcelPath = Excel.Application.GetOpenFilename("Excel Files (*.xls), *.xlsx")    '获取打开文件全路径
If ExcelPath = False Then Exit Sub  '未选择文件时退出

For m = Len(ExcelPath) To 1 Step -1
    If Mid(ExcelPath, m, 1) = "\" Then Exit For
Next m

ExcelName = Right(ExcelPath, Len(ExcelPath) - m)

Set ExcelApp = CreateObject("excel.application")
ExcelApp.Visible = True

ExcelApp.Workbooks.Open (ExcelPath)
Set ExcelSheet = ExcelApp.Workbooks(ExcelName).Sheets(1)  '指定excel中唯一的一个sheet

Dim FCATs As Variant, Fcodes As String
Dim FcatSearch As Range, i As Integer

FCATs = Array("BTNK", "CDHR", "COMM", "EVLT", "FRPR", "HRTZ")       '这个缩略了，实际有好几十个

For i = LBound(FCATs) To UBound(FCATs)
    Set FcatSearch = ExcelSheet.Range("B:B").Find(FCATs(i), , , xlWhole)
    Fcodes = "ComboBox_" & FCATs(i)
    Names.Add Name:=Fcodes, RefersTo:="=" & FcatSearch.Offset(, 1).Address    '命名excel名称以方便调用    '这个还有其他更方便的调用方法吗？通过名称好像比较偏门。
Next i

ComboBox_BTNK.Value = Names("ComboBox_BTNK").RefersToRange.Value
ComboBox_CDHR.Value = Names("ComboBox_CDHR").RefersToRange.Value
ComboBox_COMM.Value = Names("ComboBox_COMM").RefersToRange.Value
ComboBox_EVLT.Value = Names("ComboBox_EVLT").RefersToRange.Value
ComboBox_FRPR.Value = Names("ComboBox_FRPR").RefersToRange.Value
ComboBox_HRTZ.Value = Names("ComboBox_HRTZ").RefersToRange.Value

ExcelApp.ActiveWorkbook.Close SaveChanges:=False
ExcelApp.Quit

Set ExcelApp = Nothing

Exit Sub
Err_Control:
  Debug.Print Err.Number
  MsgBox Err.Description

End Sub

StartMe

用获取的ExcelPath进行对对象的引用

Dim SourceFile As New Workbook    
Set SourceFile = GetObject(ExcelPath)
Set ExcelSheet = SourceFile.Sheets(1)  '引用第一个工作表

然后对B列遍历，ExcelSheet.Range("B"&n).Value读，返回需要列的对应值ExcelSheet.Range("XXX"&n).Value，储存。在下拉框里增加响应值。

szuki

Set SourceFile = GetObject(ExcelPath)
Set ExcelSheet = SourceFile.Sheets(1)  '指定唯一sheet

。。。

。。。

SourceFile.Close SaveChanges:=False

最后 怎么引用excel程序的退出？ 

StartMe

sourcefile.close
消去对象的引用set sourcefile = nothing

其实你最好别用Excel的GetOpenFilename，没发现弹出个打开文件的对话框都很慢么？用Vb本身的打开文件。

szuki

StartMe发表于2009-8-16 20:23:00sourcefile.close消去对象的引用set sourcefile = nothing其实你最好别用Excel的GetOpenFilename，没发现弹出个打开文件的对话框都很慢么？用Vb本身的打开文件。

怎么用vb本身的？

szuki

szuki发表于2009-8-16 22:09:00怎么用vb本身的？

好几个月了，继续求问。

wuyunpeng888

用commondialog控件