返回列表 上一主題 發帖

[發問] VB6 MSFlexGrid 元件資料匯至 excel問題

暗黑

帖子
62 
主題
10 
精華
0 
積分
253 
點名
0  
作業系統
xp , win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
人心 
註冊時間
2010-5-21 
最後登錄
2012-8-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-16 13:38 | 只看該作者

[發問] VB6 MSFlexGrid 元件資料匯至 excel問題

VB6 中 有 MSFlexGrid 元件 內資料在匯出至Excel 是
一般模式都是用迴圈方式(程式碼如下)
    For i = 0 To MSFlexGrid1.Rows - 1
        For jNo = 0 To MSFlexGrid1.Cols - 1
          wshExcel.Cells(i + 1, j + 1) =  MSFlexGrid1.TextMatrix(i, j)
        Next cNo
     Next rNo

請問各位大大，要如何讓 MSFlexGrid可以像listbox元件一樣可以直接貼上
Listbox程式碼如下
    Set MyXlsApp = CreateObject("Excel.Application")
    MyXlsApp.Visible = True
    Set xlbook = MyXlsApp.Workbooks.Add
    Set xlsheet1 = xlbook.Worksheets(1)

    xlsheet1.Cells(1, 1).Value = "產品序號"
    xlsheet1.Cells(1, 2).Value = "功率"
    xlsheet1.Cells(1, 3).Value = "全距"
    xlsheet1.Cells(1, 4).Value = "檢驗時間"
   
    xlsheet1.Range(xlsheet1.Cells(1, 1), xlsheet1.Cells(UserForm1.ListBox1.ListCount, UserForm1.ListBox1.ColumnCount)).Offset(1, 0) = UserForm1.ListBox1.List

例如

xlsheet1.Range(x,y),offset)1,0)=MSFlexGrid1.XXXXXXX
收藏 分享
是學程式而不是要程式，是進步的基礎

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 2010-6-27 22:04 | 只看該作者
不好意思~ 我的方式也是用迴圈一個一個取...
可能幫不上什麼忙...
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

暗黑

帖子
62 
主題
10 
精華
0 
積分
253 
點名
0  
作業系統
xp , win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
人心 
註冊時間
2010-5-21 
最後登錄
2012-8-3 
3#
發表於 2010-6-29 10:44 | 只看該作者
閔大大出現了，呵呵
我也在其他網站找了很久，也都是用回圈的方式
是學程式而不是要程式，是進步的基礎

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
4#
發表於 2010-6-29 12:55 | 只看該作者
閔大大出現了，呵呵
我也在其他網站找了很久，也都是用回圈的方式
暗黑 發表於 2010/6/29 10:44 AM


呵呵呵~ 真不好意思!因為小弟沒有更好的方式... 都不敢出現!
如果暗黑兄您研究出更快的方式，也請暗黑兄您不嗇指導~
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

et5323

帖子
128 
主題
13 
精華
1 
積分
118 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
50 
性別
男 
來自
四川成都邛崃 
註冊時間
2010-9-13 
最後登錄
2017-5-12 
5#
發表於 2010-9-13 19:51 | 只看該作者
'没其它的办法，只能用循环的方式读出数据，这和ListView控件差不多。不过可以先将数据读入数组，再通过数组写入Excel,毕竟Excel的VBA是最忌讳逐单元格操作的。
Dim arr(), lRow, lCol
Dim i, j
lRow = MSFlexGrid1.Rows
lCol = MSFlexGrid1.Cols
ReDim arr(1 To lRow, 1 To lCol)
For i = 0 To lRow - 1
    For j = 0 To lCol - 1
        arr(i + 1, j + 1) = MSFlexGrid1.TextMatrix(i, j)
    Next
Next
xlsheet1.Range("a1").Resize(lRow, lCol) = arr

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題