‘орум программистов, компьютерный форум, киберфорум
Ќаши страницы
VBA
¬ойти
–егистраци€
¬осстановить пароль
 
dimmank
0 / 0 / 0
–егистраци€: 13.06.2017
1

ќткрыть книгу из надстройки

09.12.2014, 18:31. ѕросмотров 196. ќтветов 0
ћетки нет (¬се метки)

ƒоброго времени суток!

≈сть проблемка:
»меетс€ файл надстройки. ¬ этом файле € работаю с активной открытой книгой
Visual Basic
1
2
3
Set WB = ActiveWorkbook
    
    Set L = WB.ActiveSheet
далее мне необходимо открыть еще одну книгу, дл€ копировани€ из нее данных.
но при выполнении команды
Visual Basic
1
Set databook = Workbooks.Open(filename, False, False)
открываетс€ этот файл и выполнение макроса останавливаетс€. ≈сли пройти по коду пошагово, то видно что когда макрос открывает файл, то становитс€ активным вновь открытое окно, и шаги не продолжаютс€ пока не выберешь форму с кодом.

 ак с этим боротьс€?
PS файл который открываетс€ не содержит макросов

ƒобавлено через 6 минут
Visual Basic
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
Sub Start()
    Dim WB As Workbook
    Dim L As Worksheet
    Dim i, iRowsFilled As Integer
    Dim sMod As String
    Dim m As Integer
   ' Dim Row As Integer
    Set WB = ActiveWorkbook
    
    Set L = WB.ActiveSheet
    
   
    Application.ScreenUpdating = False
    
    iRowsFilled = L.Cells(Rows.Count, 3).End(xlUp).Row
  
 
 
 iRowsFilled = L.Cells(Rows.Count, 3).End(xlUp).Row
 
 Dim filename As String
 Dim databook As Workbook
 Dim Datalist As Worksheet
 Dim iRowsFilledData As Integer
 
 filename = ThisWorkbook.Path & "\" & "datalist.xlsx"
 
        'Set databook = Nothing:
        
        Set databook = Workbooks.Open(filename, False, False)  ' Application.Workbooks.Open(filename, False, False)
    
       
 
        If databook Is Nothing Then    
            Pi.Log vbTab & "√О√Ш√И√Б√К√А √ѓ√∞√® √І√*√£√∞√≥√І√™√• √і√*√©√Ђ√*. √Ф√*√©√Ђ √*√• √Ѓ√°√∞√*√°√Ѓ√≤√*√*."
 
        Else    
            Set Datalist = databook.Worksheets(1)    
                  
                  
                    iRowsFilledData = Datalist.Cells(Rows.Count, 1).End(xlUp).Row
                    
                    For i = iRowsFilled To 2 Step -1
                        For m = 2 To iRowsFilledData
                            If L.Range("C" & i) = Datalist.Range("A" & m) Then
                                    L.Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                            'MsgBox ("!!!!")
                            End If
                            
                        Next m
                    Next i
          
                       
                       
        End If
 
        databook.Close False: DoEvents
End Sub
ƒобавлено через 15 минут
—ам и отвечу на свой вопрос)))
ѕри запуске надстройки € использовал сочетание клавиш "Ctrl + Shift + K "
и похоже Shift блокировал выполнение. ѕомен€л на "Ctrl + Alt + K " и все заработало
0
Similar
Ёксперт
41792 / 34177 / 6122
–егистраци€: 12.04.2006
—ообщений: 57,940
09.12.2014, 18:31
ќтветы с готовыми решени€ми:

ѕрограммно открыть книгу и форму в ней
здравствуйте, тока€ проблема: ≈сть книга открываю книгу, вылезает форма типа...

 ак открыть книгу без выполнени€ макросов
ѕомогите открыть файл Excel vba, € туда вписала код: на закрытие программы

 ак открыть книгу .xls в 30 ћЅ, закрывалс€ диспетчером задач.
  таблице .xls прив€зал модуль, в принципе прописывает формулы в листы. ѕри...

ќткрыть несколько файлов *.xls и вернутьс€ в первоначальную книгу
ѕроблема в следующем. ¬ книге 1 - модуль с процедурами дл€ обработки файлов....

ќткрыть книгу Excel по имени, наход€щемус€ в выбранном элементе ComboBox
’очу сделать , что бы открывал файл путем из коренной папке ( где находитс€...

0
MoreAnswers
Ёксперт
37091 / 29110 / 5898
–егистраци€: 17.06.2006
—ообщений: 43,301
09.12.2014, 18:31

 ак открыть книгу (Excel) из VBA и при этом отключить запуск макросов в ней
≈сть самосто€тельный документ (книга Excel с запуском макроса на открытие этой...

 ак, зна€ им€ и пароль доступа к папке на сервере, открыть на VBA книгу Excel
≈сли, кто-нибудь знает, как войд€ в систему под одним именем, получить на VBA...

Ќадстройки
ƒоброго времени суток, форумчане! ѕодскажите, каким образом можно извлечь...


»скать еще темы с ответами

»ли воспользуйтесь поиском по форуму:
1
ќтвет —оздать тему
ќпции темы

 ибер‘орум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
–ейтинг@Mail.ru