| 4 | 1/1 | 返回列表 |
| 查看: 1029 | 回復(fù): 3 | ||
[求助]
怎樣把MSFlexGrid中某一列的數(shù)據(jù)讀出來
|
|
把某一個(gè)數(shù)據(jù)表植入到MSFlexGrid控件的行和列(相當(dāng)于把數(shù)據(jù)復(fù)制過來), 現(xiàn)在想讀取某一列中連續(xù)幾個(gè)數(shù)據(jù),讀到數(shù)組或文本中,求哪位高手幫忙指點(diǎn)一二,或者貼個(gè)代碼。本人不甚感激。 存在的困難:1.怎樣判斷選取的是哪些數(shù)據(jù),即光標(biāo)或單元格問題。 2.怎樣準(zhǔn)確讀取這些數(shù)據(jù),并存放在數(shù)組中或文本中。 |

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

版主 (知名作家)
|
【轉(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 & "]" & "號(hào)錯(cuò)誤" & " " & err.Description If err.Number <> 0 Then MsgBox errMessage, vbCritical, "錯(cuò)誤" End If End Sub |


| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研]
|
簡(jiǎn)木ChuFront 2026-03-19 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 工科材料085601 279求調(diào)劑 +6 | 困于星晨 2026-03-17 | 8/400 |
|
|
[考研] 材料學(xué)碩297已過四六級(jí)求調(diào)劑推薦 +5 | adaie 2026-03-19 | 5/250 |
|
|
[考研] 296求調(diào)劑 +3 | www_q 2026-03-18 | 7/350 |
|
|
[考研] 085410人工智能專碩317求調(diào)劑(0854都可以) +4 | xbxudjdn 2026-03-18 | 4/200 |
|
|
[考研] 一志愿蘇州大學(xué)材料求調(diào)劑,總分315(英一) +3 | sbdksD 2026-03-19 | 3/150 |
|
|
[考研] 321求調(diào)劑 +8 | 何潤(rùn)采123 2026-03-18 | 10/500 |
|
|
[考研] 085601材料工程專碩求調(diào)劑 +10 | 慕寒mio 2026-03-16 | 10/500 |
|
|
[考研] 266求調(diào)劑 +5 | 陽陽哇塞 2026-03-14 | 10/500 |
|
|
[考研] 化學(xué)求調(diào)劑 +3 | 臨澤境llllll 2026-03-17 | 4/200 |
|
|
[考研] 302求調(diào)劑 +10 | 呼呼呼。。。。 2026-03-17 | 10/500 |
|
|
[考研] 生物學(xué)071000 329分求調(diào)劑 +3 | 我愛生物生物愛?/a> 2026-03-17 | 3/150 |
|
|
[考研] 301求調(diào)劑 +9 | yy要上岸呀 2026-03-17 | 9/450 |
|
|
[考研] 278求調(diào)劑 +5 | 煙火先于春 2026-03-17 | 5/250 |
|
|
[考研] 302求調(diào)劑 +4 | 小賈同學(xué)123 2026-03-15 | 8/400 |
|
|
[考研] [導(dǎo)師推薦]西南科技大學(xué)國(guó)防/材料導(dǎo)師推薦 +3 | 尖角小荷 2026-03-16 | 6/300 |
|
|
[考研] 318求調(diào)劑 +3 | Yanyali 2026-03-15 | 3/150 |
|
|
[考研] 0703 物理化學(xué)調(diào)劑 +3 | 我可以上岸的對(duì)?/a> 2026-03-13 | 5/250 |
|
|
[考研] 080500,材料學(xué)碩302分求調(diào)劑學(xué)校 +4 | 初識(shí)可樂 2026-03-14 | 5/250 |
|
|
[考研] 一志愿哈工大材料324分求調(diào)劑 +5 | 閆旭東 2026-03-14 | 5/250 |
|