ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт в Excel
10 сообщений из 10, страница 1 из 1
Экспорт в Excel
    #32097156
Денис04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Денис04
Гость
Привет всем! Возможно ли конвертировать данные в Excel в ЗАРАНЕЕ созданную таблицу. спасибо
...
Рейтинг: 0 / 0
28.01.2003, 09:56
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #32097164
Фотография Savik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Savik
Участник
Возможно. :)
...
Рейтинг: 0 / 0
28.01.2003, 10:07
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #32098174
Денис04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Денис04
Гость
а поподробнее
...
Рейтинг: 0 / 0
29.01.2003, 14:24
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #32098199
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
если ручками то copy/paste, через VBA не смотрел
...
Рейтинг: 0 / 0
29.01.2003, 14:49
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #32098206
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
вот это из Excel'я в Access
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub ToAccess()
Dim dbAccess As Database
  Dim stSQL, Size As String
  Dim Quan As Integer
  Dim PriseO, PriseI As Currency
  Dim dbAccess As Database
  Set dbAccess = OpenDatabase( "C:\My Documents\db1.mdb" )
  For i = y To CountR
    Size = CStr(ActiveSheet.Cells(i,  2 ))
    Quan = CInt(ActiveSheet.Cells(i,  3 ))
    PriseO = CCur(ActiveSheet.Cells(i,  4 ))
    PriseI = CCur(ActiveSheet.Cells(i,  5 ))
    stSQL =  " INSERT INTO "  & Name & _
       "(Month, Size, Quantity, Prise_Out, Prise_In) "  & _
       "VALUES ("  "" & Date & "  "" , "  "" & Size & "  "" , "  "" & Quan & "  "" , "  "" & PriseO & "  "" , "  "" & PriseI & "  "")" 
    dbAccess.Execute (stSQL)
  Next i
  dbAccess.Close
end
...
Рейтинг: 0 / 0
29.01.2003, 14:56
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #32098218
Фотография MichaelGK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MichaelGK
Участник
А это из акеса в ексель выводятся данные из формы... не уверен, что способ оптимальный, т.ч. конструктивная критика принимается.
Код: 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.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
Private Sub cnbtRepPrint_Click()
    On Error Resume Next
    
    Dim ExApp As Object
    Dim rst As New ADODB.Recordset
    Dim St As Integer
    Dim Sp As Integer
    
    Set ExApp = CreateObject( "Excel.Application" )
    
    ExApp.UserControl = True
    ExApp.Workbooks.Open  "C:\Мои документы\Prdlvl3.xls" 
    ExApp.Worksheets( 1 ).Select

‘ заполняем поля в «шапке»
    ExApp.Range( "B2" ).Select
    ExApp.ActiveCell.Formula = Forms( "MainAppForm" ).Controls( "cntelDocDateFirst" )
    ExApp.Range( "C2" ).Select
    ExApp.ActiveCell.Formula = Forms( "MainAppForm" ).Controls( "cntelDocDateLast" )

‘ заполняем таблицу, которая начинается с  5 -ой строки
    St =  6 
    Sp =  5 
    Set rst = Me.RecordsetClone

    rst.MoveFirst
    
    While Not rst.EOF
    
' кусочек для отсекания пустой сторки в конце 
     If St - 5 < rst.RecordCount Then
        ExApp.Rows("" & CStr(St) & ":" & CStr(St) & "").Select
        ExApp.Selection.Insert Shift:=xlDown
        ExApp.Range("A" & CStr(Sp) & ":E" & CStr(Sp) & "").Select
        ExApp.Selection.Copy
        ExApp.Range("A" & CStr(St) & ":E" & CStr(St) & "").Select
        ExApp.ActiveSheet.Paste
        ExApp.Application.CutCopyMode = False
      End If

' ячейку выбираем - данные вставляем

        ExApp.Range( "A"  & CStr(Sp) &  "").Select
        ExApp.ActiveCell.Formula = rst.Fields(" CONTRnam ").Value
        ExApp.Range(" B " & CStr(Sp) & "  ").Select
        ExApp.ActiveCell.Formula = rst.Fields(" Марка ").Value
        ExApp.Range(" C " & CStr(Sp) & "  ").Select
        ExApp.ActiveCell.Formula = rst.Fields(" DOCdate ").Value
        ExApp.Range(" D " & CStr(Sp) & "  ").Select
        ExApp.ActiveCell.Formula = rst.Fields(" DOCnum ").Value
        ExApp.Range(" E " & CStr(Sp) & "  ").Select
        ExApp.ActiveCell.Formula = rst.Fields(" QOUT ").Value
        ExApp.Range(" F " & CStr(Sp) & "  ").Select
        ExApp.ActiveCell.Formula = rst.Fields(" QIN ").Value


    St = St + 1 
    Sp = Sp +  1 
    rst.MoveNext
    
    Wend
‘ сохраняем под другим именем, чтоб не сломать шаблон        
    ExApp.Workbooks("Prdlvl3.xls ").SaveCopyAs " C:\Мои документы\ДавСырье2001\Prdlvl3_S.xls "
    ExApp.Workbooks(" Prdlvl3.xls ").Saved = True
    ExApp.Workbooks(" Prdlvl3.xls ").Close

‘ открываем созданный фал
    ExApp.Workbooks.Open " C:\Мои документы\ДавСырье2001\Prdlvl3_S.xls"
    ExApp.Worksheets( 1 ).Select
    ExApp.Visible = True
    
    Set ExApp = Nothing
    
Exit_cmbtPrintPeredel_Click:
    Exit Sub

End Sub
...
Рейтинг: 0 / 0
29.01.2003, 15:07
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #32098322
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
Связанная таблица к Excel+ запрос на вставку
...
Рейтинг: 0 / 0
29.01.2003, 16:35
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #32098367
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
2 MichaelGK:

ExApp.Range("A" & CStr(Sp) & "").Select
ExApp.ActiveCell.Formula = rst.Fields("CONTRnam").Value


Cells(1, Sp).Value= bla-bla-bla
или
Range("A" & CStr(Sp)).Value= bla-bla-bla

делает то же, но в одну строчку. Выделение ячейки (диапазона) не обязательно, да и время сэкономишь.

& "" - а это зачем?
...
Рейтинг: 0 / 0
29.01.2003, 17:23
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #32098378
Фотография MichaelGK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MichaelGK
Участник
to AlexJuice
Принимается, спасибо...
...
Рейтинг: 0 / 0
29.01.2003, 17:34
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #32098712
Денис04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Денис04
Гость
Всем спа
...
Рейтинг: 0 / 0
30.01.2003, 11:41
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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