Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / импорт из sql server 2000 в excel 2003 / 10 сообщений из 10, страница 1 из 1
22.04.2008, 10:52
    #35270505
-=Ogre=-
-=Ogre=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
Вопрос частично описано тут
на msdn описано как сделать примитивное выкачивание данных из бд через адо.
1)можно ли с помощью этого вынимать данные из хранимки с 2 параметрами времени?
2)если пункт 1 реален, то можно как нить унифицировать подключение ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 12:08
    #35270814
-=Ogre=-
-=Ogre=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
неужели никто не занималсо таким?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 12:13
    #35270828
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
> Автор: -=Ogre=-
> неужели никто не занималсо таким?

Просто не совсем понятно: в чем сложности

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 12:38
    #35270945
-=Ogre=-
-=Ogre=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
2Игорь Горбонос
сложность в том, что :
1)никогда ничего не писал в VB
2) стандартные средства(импорт внешних данных через запрос в Excel) по какой то не понятной причине не работают
зы по моему вопросы под цифрами поставлены корректно.
если у кого то есть файлик с типовым запросом к хранимке и перекидыванием данных в ексель/ворд
поделитесь плз, если не жалко
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 12:44
    #35270970
kiv-1980
kiv-1980
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
    Dim sSQLString As String
    Dim objXL As Object
    Dim objWb As Object
    Dim objWs As Object

    Set objXL = CreateObject("Excel.Application")
    If objXL Is Nothing Then Exit Sub

    objXL.SheetsInNewWorkbook =  1 
    Set objWb = objXL.Workbooks.Add 'Open("c:\main.xls")
    Set objWs = objWb.Worksheets( 1 )

    objXL.Visible = True

      sSQLString = "Ваш Запрос"

    objWs.Cells( 1 ) = "Столбец 1"
    objWs.Cells( 2 ) = "Столбец 2"
    objWs.Cells( 3 ) = "Столбец 3"
    objWs.Cells( 4 ) = "Столбец 4"
    objWs.Cells( 5 ) = "Столбец 5"
    objWs.Range("A1:F1").Font.Bold = True
    objWs.Columns("A:F").AutoFit
    
    Set rs = Con.Execute(sSQLString)

    objWs.Range("A2").CopyFromRecordset rs 'передача данных
    
    objWs.Cells.Select
    objXL.Selection.Columns.AutoFit
    objWs.Range("A1").Select
        
    Set rs = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 12:47
    #35270983
-=Ogre=-
-=Ogre=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
2kiv-1980
СПАСИБО, попробую=)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 12:54
    #35271008
-=Ogre=-
-=Ogre=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
мдя, а как это прикручивать?
те если допустим запихнуть в файл *.vbs,то пишет ошибку "в первой строке, предпологаеться наличие окончания сценария.", чего не хватает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 13:04
    #35271048
kiv-1980
kiv-1980
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
Данный пример построен на непосредственном запросе(select........) в базу.
Массив данных копируется в RS, потом передается в Excel и закрывается.

Код: plaintext
1.
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")

Попробуйте закоментарить строки:

Код: plaintext
1.
2.
    'sSQLString = "Ваш Запрос"
    'Set rs = Con.Execute(sSQLString)
    'objWs.Range("A2").CopyFromRecordset rs 'передача данных

Соответственно в Excel передадутся только столбцы.

Код: plaintext
1.
2.
3.
4.
 objWs.Cells( 1 ) = "Столбец 1"
    objWs.Cells( 2 ) = "Столбец 2"
    objWs.Cells( 3 ) = "Столбец 3"
    objWs.Cells( 4 ) = "Столбец 4"
    objWs.Cells( 5 ) = "Столбец 5"

А дальше делайте выводы...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 14:51
    #35271484
-=Ogre=-
-=Ogre=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
2kiv-1980 попытку растолковать мне как это сделать, сделал.=)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 14:56
    #35271497
kiv-1980
kiv-1980
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт из sql server 2000 в excel 2003
Тут почитайте:
http://support.microsoft.com/kb/247412/ru?spid=2971&sid=global
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / импорт из sql server 2000 в excel 2003 / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 342ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162378]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 38ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 231ms
total:  342ms
x
x
Закрыть


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