> Автор: PlanB
> У меня последний вопрос: твой код открывает файл word или из
> закрытого берёт инфу? Уж очень он быстро всё делает.
Открывает. Но не показывает.
> Когда я из excel в excel делал примерно так:
>
> Private Sub BVN_NES()
> Name$ = "имя б"
> nnn = ActiveWorkbook.Name
> Naz = Application.GetOpenFilename
> If Naz = False Then
> End
> End If
> Workbooks.OpenText Filename:=Naz
> nnn1 = ActiveWorkbook.Name
> ActiveWorkbook.Sheets(1).Columns("A:E").Copy
> Workbooks(nnn).Activate
>
> Sheets.Add
> With ActiveSheet
> .Name = "1"
> .Paste
> .Columns("a:e").ColumnWidth = 11
> End With
> Application.CutCopyMode = False
> Workbooks(nnn1).Close (False)
> Call Group2
> Call Import1(Name)
> Application.DisplayAlerts = False
> Worksheets("1").Delete
> Application.DisplayAlerts = True
> End Sub
>
> вот в этом случае прога тупит секунд по 10 (это с процедурами Call не
> связано, они небольшие)
У меня тупит просто сам вызов Application.GetOpenFilename.
Если возможно, стараюсь обходится без диалогов выбора файла
Ну и ещё может тупить операция копирования/вставки, т.к. вставляеш с
форматами и это может занимать продолжительное время на больших объемах
Попробуй вставлять специальной вставкой, только значения, если подходит
> может можно не открывая файл всё это сделать?
Вот делал кому-то пример:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub Макрос7()
'
' Макрос7 Макрос
' Макрос записан 07.02.2008
'
'
Dim oConn As New ADODB.Connection
Dim oRS As New ADODB.Recordset
Dim arrStr() As String
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Книга1.xls;" & _
"Extended Properties=""Excel 8.0;"""
oRS.Open "SELECT distinct Results.a FROM `C:\Книга1`.Лист1 Results", oConn,
adOpenStatic
'arrStr = Split(oRS.GetString(, , , vbCrLf), vbCrLf)
range("A1").CopyFromRecordset oRS
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
End Sub
Здесь в Tools -> Referens нужно поставить птичку напротив Microsoft ActiveX
Data Object 2.???
--
С уважением Горбонос Игорь Леонидович
Posted via ActualForum NNTP Server 1.4
