Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Если я правильно понял, то... 16.09.04 03:32 Число просмотров: 1379
Автор: Korsh <Мельников Михаил> Статус: Elderman
|
> Private Sub CommandButton2_Click()
> Dim Slu As String
> Dim xlApp As Excel.Application
> Dim RWB As Workbook
> Dim DB1 As Database
Dim str as String
> Set DB1 = OpenDatabase("c:\basa1.mdb")
str="Select ush, fio, data, fakt, stat,otp from TAB2 where Slu = '" & Worksheets("Лист1").Range("K2") & "'"
Set RS1 = DB1.OpenRecordset(Name:=str,Type:=dbOpenDynaset)
> Set xlApp = New Excel.Application
> Set RWB = Workbooks.Open("d:\Vibor\Vstav.xls")
> Worksheets("Лист1").Range("A1").CopyFromRecordset RS1
> End Sub
|
|
|
подробно о проекте
Анализ криптографических сетевых...
Если я правильно понял, то... - Korsh