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 |
發表於 2010-6-16 13:38
| 
