Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 18:40 25.06.24 
Компютри и Интернет
   >> Visual Basic
Всички теми Следваща тема *Кратък преглед

Тема mshflexgrid to excel  
Авторbate ivan (Нерегистриран)
Публикувано01.03.06 11:08



Долният код трябва да копира грида в ексел ама се скъса да ми дава
Automation.error някои може ли да ми каже къде е проблема


Private Sub Grid2Excel(gridName As MSHFlexGrid)

Dim exc As Excel.Application
Set exc = CreateObject("Excel.Application")
exc.Workbooks.Add
exc.Visible = True


With gridName


For i = 0 To .Rows - 1


For j = 1 To .Cols - 1
exc.Cells(i + 1, j) = .TextMatrix(i, j)
exc.Cells(i + 1, j).Borders.LineStyle = xlDouble
exc.Cells(i + 1, j).Borders.Color = vbBlue
Next j

Next i

exc.Range("A1:" & Chr(65 + j) & 1).Font.Bold = True
exc.Columns("$A:" & "$" & Chr(65 + j)).AutoFit
End With

End Sub







Тема Re: mshflexgrid to excelнови [re: bate ivan]  
АвторKristian (Нерегистриран)
Публикувано02.03.06 13:39



Опитай така:

Public Sub ExportFlexGrid(ByRef objGrid As MSFlexGrid)
Dim objXL As Excel.Application
Dim objWB As Excel.Workbook
Dim objWS As Excel.Worksheet
Dim r As Long
Dim c As Long
Dim intRed As Integer
Dim intGreen As Integer
Dim intBlue As Integer

Set objXL = New Excel.Application
Set objWB = objXL.Workbooks.Add
Set objWS = objWB.Worksheets(1)

With objWS
For r = 0 To objGrid.Rows - 1
For c = 0 To objGrid.Cols - 1
.Cells(r + 1, c + 1) = objGrid.TextMatrix(r, c)
Next
Next

.Cells.Columns.AutoFit
End With

objXL.Visible = True

Set objWS = Nothing
Set objWB = Nothing
Set objXL = Nothing

End Sub

След това когато поискаш извикваш това:

ExportFlexGrid FlexGrid1

Така трябва да стане...




Всички темиСледваща тема*Кратък преглед
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2024 Dir.bg Всички права запазени.