Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт в Excel / 10 сообщений из 10, страница 1 из 1
28.01.2003, 09:56
    #32097156
Денис04
Денис04
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
Привет всем! Возможно ли конвертировать данные в Excel в ЗАРАНЕЕ созданную таблицу. спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2003, 10:07
    #32097164
Savik
Savik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
Возможно. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2003, 14:24
    #32098174
Денис04
Денис04
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
а поподробнее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2003, 14:49
    #32098199
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
если ручками то copy/paste, через VBA не смотрел
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2003, 14:56
    #32098206
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
вот это из 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, 15:07
    #32098218
MichaelGK
MichaelGK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
А это из акеса в ексель выводятся данные из формы... не уверен, что способ оптимальный, т.ч. конструктивная критика принимается.
Код: 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, 16:35
    #32098322
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
Связанная таблица к Excel+ запрос на вставку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2003, 17:23
    #32098367
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
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:34
    #32098378
MichaelGK
MichaelGK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
to AlexJuice
Принимается, спасибо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2003, 11:41
    #32098712
Денис04
Денис04
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в Excel
Всем спа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт в Excel / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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