源 码:
Private Sub Command76_Click()
Dim objApp As Object 'Excel.Application
Dim objBook As Object 'Excel.Workbook
With FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel", "*.xls"
If .Show Then
Me.Text74 = .SelectedItems(1)
End If
End With
Set objApp = CreateObject("Excel.Application")
Set objBook = objApp.Workbooks.Open(Me.Text74, , True)
objBook.Worksheets(1).Select
With objApp
Me.Text77 = .Range("A1").Comment.Text
End With
If Not objApp Is Nothing Then objApp.Quit
Set objApp = Nothing
Set objBook = Nothing
End Sub
附件下载:
点击下载此附件
操作演示: