ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel и VsFlexGrid
7 сообщений из 7, страница 1 из 1
Excel и VsFlexGrid
    #34503620
Hato
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hato
Гость
Господа Знатоки раскажите как лучше всего организовать импорт-экспорт в Excel?
...
Рейтинг: 0 / 0
04.05.2007, 00:05
| Ответить | Цитировать | Написать  
Excel и VsFlexGrid
    #34503682
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Импорт чего? Из чего?

Код: plaintext
1.
2.
3.
4.
5.
Dim oExc as Excel.Application

set oExc = new Excel.Application

oExc.Workbook... и т.д.

Вообщем, поподробнее можно о задаче?


Magnus
...
Рейтинг: 0 / 0
04.05.2007, 01:54
| Ответить | Цитировать | Написать  
Excel и VsFlexGrid
    #34504738
Hato
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hato
Гость
Есть VsFlexGrid я выделяю какоето кол-во строк и мне надо
передать их в Excel .
...
Рейтинг: 0 / 0
04.05.2007, 12:53
| Ответить | Цитировать | Написать  
Excel и VsFlexGrid
    #34504861
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Данные в грид попадают откуда? Из рекордсета? Если да то экспортировать надо из негом используя метод CopyFromRecordset. Это самый быстрый способ.



Magnus
...
Рейтинг: 0 / 0
04.05.2007, 13:22
| Ответить | Цитировать | Написать  
Excel и VsFlexGrid
    #34505108
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Самый простой метод- прямой ехпорт (VsFlexGrid 8.0)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub cmdExc_Click()
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application

With Me.VSFlexGrid1
    .SaveGrid "D:\tes.xls", flexFileExcel, SaveExcelSettings.flexXLSaveFixedCells
End With

objExcel.Workbooks.Add ("D:\tes.xls")
 

     
  MsgBox "Export complete...", _
  vbInformation, "... Transfer to EXCEL !!!"
  objExcel.Visible = True
  frmUzura.Caption = strBuffer
  frmUzura.MousePointer = vbDefault
  Set objExcel = Nothing
End Sub
...
Рейтинг: 0 / 0
04.05.2007, 14:23
| Ответить | Цитировать | Написать  
Excel и VsFlexGrid
    #34505176
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Еще что-то , начиная с чего-то...

Private Sub cmd_Click()
Dim n As Integer
Dim cik As Integer, matrx As Integer
Dim sTemp
Dim objExcel As Excel.Application

Set objExcel = New Excel.Application
objExcel.Workbooks.Add ("D:\fond.xls")
With objExcel.ActiveSheet

For cik = 3 To VSFlexGrid1.Rows - 1
For matrx = 1 To 11
.Cells(n, matrx + 1).Value = VSFlexGrid1.Cell(flexcpText, cik, matrx)
Next matrx
End With

MsgBox "TRANSPORT IN MS OFFICE EXCEL ...", _
vbInformation, "... Transfer to EXCEL !!!"
objExcel.Visible = True
Set objExcel = Nothing
...
Рейтинг: 0 / 0
04.05.2007, 14:41
| Ответить | Цитировать | Написать  
Excel и VsFlexGrid
    #34505189
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Нечаенnо нажал ....

Еще кусочек кода:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
n =  0 
  For cik =  1  To VSFlexGrid1.Rows -  1 
   For matrx =  1  To  10 
   .Cells(n, matrx ).Value = VSFlexGrid1.Cell(flexcpText, cik, matrx)
    Next matrx

   Next cik
   End With
...
Рейтинг: 0 / 0
04.05.2007, 14:45
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel и VsFlexGrid
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34505176&tid=2164094]:
 0ms
get settings:
 6ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 158ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 213ms
total:  485ms
созд. / загр.: 485ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]