| 5 | 1/1 | 返回列表 |
| 查看: 1032 | 回復: 3 | |||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | |||
[求助]
怎樣把MSFlexGrid中某一列的數(shù)據(jù)讀出來
|
|||
|
把某一個數(shù)據(jù)表植入到MSFlexGrid控件的行和列(相當于把數(shù)據(jù)復制過來), 現(xiàn)在想讀取某一列中連續(xù)幾個數(shù)據(jù),讀到數(shù)組或文本中,求哪位高手幫忙指點一二,或者貼個代碼。本人不甚感激。 存在的困難:1.怎樣判斷選取的是哪些數(shù)據(jù),即光標或單元格問題。 2.怎樣準確讀取這些數(shù)據(jù),并存放在數(shù)組中或文本中。 |

版主 (知名作家)
|
【轉(zhuǎn)】 讀取EXCEL并在MSFLexGrid顯示http://www.vbzy.com/Software.asp?id=247 或 讀取Excel文件中的數(shù)據(jù),并顯示在MSFlexGrid表格中 Private Sub GetExcelValue() Dim errMessage As String Dim iRows As Integer Dim iCols As Integer Dim jOut As Integer Dim kOut As Integer Dim objExcel As Excel.Application Dim objWorkBook As Excel.Workbook Dim objSheet As Excel.Worksheet Dim objRange As Excel.Range On Error GoTo err Set objExcel = New Excel.Application Set objWorkBook = objExcel.Workbooks.Open(Me.txtFileName.Text) Set objSheet = objWorkBook.ActiveSheet Set objRange = objSheet.UsedRange iRows = objRange.Rows.count iCols = objRange.Columns.count For jOut = 1 To iRows If Trim$(objSheet.Cells(jOut, 2)) = vbNullString Then Exit For For kOut = 1 To iCols With dbgDispaly .TextMatrix(jOut, kOut - 1) = Trim$(objSheet.Cells(jOut, kOut)) '只需將此句代碼改一下即可 End With Next dbgDispaly.Rows = dbgDispaly.Rows + 1 prbDaoLu.Value = jOut / iRows * 100 Next prbDaoLu.Value = 0 objWorkBook.Close Set objSheet = Nothing Set objWorkBook = Nothing Set objExcel = Nothing err: errMessage = "第" & "[" & err.Number & "]" & "號錯誤" & " " & err.Description If err.Number <> 0 Then MsgBox errMessage, vbCritical, "錯誤" End If End Sub |

版主 (知名作家)
|
你看看這里,方法是大同小異的,代碼改一下即可 http://hi.baidu.com/xuyile510824 ... deeeaaff6222df534b7 >>得到MSFlexGrid控件中當前選中的一行 msflexgrid1.rowsel就是當前選中行 列的話,就是colsel |

| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿吉林大學材料學碩321求調(diào)劑 +11 | Ymlll 2026-03-18 | 14/700 |
|
|---|---|---|---|---|
|
[考研]
|
.6lL 2026-03-18 | 7/350 |
|
|
[考研] 085410人工智能專碩317求調(diào)劑(0854都可以) +4 | xbxudjdn 2026-03-18 | 4/200 |
|
|
[考研] 一志愿中國海洋大學,生物學,301分,求調(diào)劑 +5 | 1孫悟空 2026-03-17 | 6/300 |
|
|
[考研] 一志愿蘇州大學材料求調(diào)劑,總分315(英一) +3 | sbdksD 2026-03-19 | 3/150 |
|
|
[考研] 330求調(diào)劑 +3 | 小材化本科 2026-03-18 | 3/150 |
|
|
[考研] 0854可跨調(diào)劑,一作一項核心論文五項專利,省、國級證書40+數(shù)一英一287 +8 | 小李0854 2026-03-16 | 8/400 |
|
|
[考研] 收復試調(diào)劑生 +4 | 雨后秋荷 2026-03-18 | 4/200 |
|
|
[考研] 302求調(diào)劑 +10 | 呼呼呼。。。。 2026-03-17 | 10/500 |
|
|
[考研] 293求調(diào)劑 +11 | zjl的號 2026-03-16 | 16/800 |
|
|
[考研] 考研化學學碩調(diào)劑,一志愿985 +4 | 張vvvv 2026-03-15 | 6/300 |
|
|
[考研] 302求調(diào)劑 +4 | 小賈同學123 2026-03-15 | 8/400 |
|
|
[論文投稿] 有沒有大佬發(fā)小論文能帶我個二作 +3 | 增銳漏人 2026-03-17 | 4/200 |
|
|
[考研] 機械專碩325,尋找調(diào)劑院校 +3 | y9999 2026-03-15 | 5/250 |
|
|
[考研] 333求調(diào)劑 +3 | 文思客 2026-03-16 | 7/350 |
|
|
[考研] 304求調(diào)劑 +4 | ahbd 2026-03-14 | 4/200 |
|
|
[考研] 326求調(diào)劑 +3 | mlpqaz03 2026-03-15 | 3/150 |
|
|
[考研] 327求調(diào)劑 +6 | 拾光任染 2026-03-15 | 11/550 |
|
|
[考研] 0856專碩279求調(diào)劑 +5 | 加油加油!? 2026-03-15 | 5/250 |
|
|
[考研] 297一志愿上交085600求調(diào)劑 +5 | 指尖八千里 2026-03-14 | 5/250 |
|