ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите с многократными открытиями файла Excel
18 сообщений из 18, страница 1 из 1
Помогите с многократными открытиями файла Excel
    #36220471
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
Есть вот такая процедура, в которой пока прописано открытие только одного файла, копирование из него значений в соответствии с условием в активный файл в определенную строку. Помогите сделать однократное открытие файла. Например, файл открывается, находятся в нем нужные значения, копируются, куда надо, файл закрывается, открывается следующий, из него снова все нужное копируется и он снова закрывается. На данный момент задана неделя, файл с исходными данными открывается 7 раз и просматриваются все строки в нем по 7 раз....

Код: 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.
Private Sub CommandButton1_Click()
    Dim dFirstDate As Date         'îáúÿâëåíèå ïåðåìåííûõ
    Dim dLastDate As Date
    Dim dDate As Date
    Dim iDay As Integer
    Dim sMonthname As String
    Dim iMonthNum As Integer
    Dim iYear As Integer
    Dim i As Integer
    Dim wb As Workbook
    Dim OPS As Workbook
    

dFirstDate = ActiveWorkbook.Worksheets("Week Summary").Range("C7").Value 'îïðåäåëÿåì äàòó íà÷àëà íåäåëè
dLastDate = ActiveWorkbook.Worksheets("Week Summary").Range("W7").Value  'îïðåäåëÿåì äàòó êîíöà íåäåëè
 
 'îïðåäåëÿåì, ââåäåíà ëè íà÷àëüíàÿ è êîíå÷íàÿ äàòû íåäåëè
 
 If IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("C7")) Then
    MsgBox ("Ââåäèòå äàòó íà÷àëà íåäåëè â ëèñòå Week Summary")
 ElseIf IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("W7")) Then
    MsgBox ("Ââåäèòå äàòó êîíöà íåäåëè â ëèñòå Week Summary")
  Else
    For dDate = dFirstDate To dLastDate
      iMonthNum = DatePart("m", dDate)       'îïðåäåëåíèå íîìåðà ìåñÿöà
      iDay = DatePart("d", dDate)            'îïðåäåëåíèå íîìåðà äíÿ
      iYear = DatePart("yyyy", dDate)        'îïðåäåëåíèå íîìåðà ãîäà
      sMonthname = fGetMonthName(iMonthNum)  'âûçîâ ôóíêöèè, êîòîðàÿ âîçâðàùàåò íàçâàíèå ìåñÿöà ïî åãî íîìåðó
      Application.ScreenUpdating = False
      'Set wb = Workbooks.Open("C:\Documents and Settings\coslone\Desktop\Ðàçðàáîòêà\QA Crush " & sMonthname & " " & iYear & ".xls")
      Set wb = Workbooks.Open("\\eu.dir.bunge.com\KEP\Shared Projects\Operations Reports\QC Reports - Crush & Seeds\" & iYear & "\QA Crush " & sMonthname & " " & iYear & ".xls")
      On Error GoTo ErrHandler
       For i =  1  To wb.Worksheets("Crush").UsedRange.Rows.Count
        If wb.Worksheets.Item("Crush").Cells(i,  4 ).Value = iDay Then
          If wb.Worksheets.Item("Crush").Cells(i,  5 ).Value = ("Ä1 Ìàññîâàÿ äîëÿ âëàãè,%") Then
             Set OPS = ThisWorkbook
             OPS.Worksheets.Item("Data input Volumes & Quality").Cells( 10 ,  20  + (dDate - dFirstDate)).Value = wb.Worksheets.Item("Crush").Cells(i,  32 ).Value
          End If
        End If
       Next i
        End If
    Next dDate
  End If
    
ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
...
Рейтинг: 0 / 0
28.09.2009, 14:17
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220576
Infinity Creator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Infinity Creator
Гость
Oksana Slonevskaya ...

Скопируйте текст, когда у вас включен русский регистр. Тогда при вставке не будет абракадабры
...
Рейтинг: 0 / 0
28.09.2009, 15:00
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220595
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
Infinity Creator,

Код: 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.
Private Sub CommandButton1_Click()
    Dim dFirstDate As Date         'объявление переменных
    Dim dLastDate As Date
    Dim dDate As Date
    Dim iDay As Integer
    Dim sMonthname As String
    Dim iMonthNum As Integer
    Dim iYear As Integer
    Dim i As Integer
    Dim wb As Workbook
    Dim OPS As Workbook
    

dFirstDate = ActiveWorkbook.Worksheets("Week Summary").Range("C7").Value 'определяем дату начала недели
dLastDate = ActiveWorkbook.Worksheets("Week Summary").Range("W7").Value  'определяем дату конца недели
 
 'определяем, введена ли начальная и конечная даты недели
 
 If IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("C7")) Then
    MsgBox ("Введите дату начала недели в листе Week Summary")
 ElseIf IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("W7")) Then
    MsgBox ("Введите дату конца недели в листе Week Summary")
  Else
    For dDate = dFirstDate To dLastDate
      iMonthNum = DatePart("m", dDate)       'определение номера месяца
      iDay = DatePart("d", dDate)            'определение номера дня
      iYear = DatePart("yyyy", dDate)        'определение номера года
      sMonthname = fGetMonthName(iMonthNum)  'вызов функции, которая возвращает название месяца по его номеру
      Application.ScreenUpdating = False
      'Set wb = Workbooks.Open("C:\Documents and Settings\coslone\Desktop\Разработка\QA Crush " & sMonthname & " " & iYear & ".xls")
      Set wb = Workbooks.Open("\\eu.dir.bunge.com\KEP\Shared Projects\Operations Reports\QC Reports - Crush & Seeds\" & iYear & "\QA Crush " & sMonthname & " " & iYear & ".xls")
      On Error GoTo ErrHandler
       For i =  1  To wb.Worksheets("Crush").UsedRange.Rows.Count
        If wb.Worksheets.Item("Crush").Cells(i,  4 ).Value = iDay Then
          If wb.Worksheets.Item("Crush").Cells(i,  5 ).Value = ("Д1 Массовая доля влаги,%") Then
             Set OPS = ThisWorkbook
             OPS.Worksheets.Item("Data input Volumes & Quality").Cells( 10 ,  20  + (dDate - dFirstDate)).Value = wb.Worksheets.Item("Crush").Cells(i,  32 ).Value
          End If
        End If
       Next i
     Next dDate
  End If
    
ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler


 
  
End Sub
...
Рейтинг: 0 / 0
28.09.2009, 15:04
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220610
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Код: plaintext
1.
2.
wb.Close
Next dDate
так?
...
Рейтинг: 0 / 0
28.09.2009, 15:10
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220631
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
все равно будет 7 раз открываться и 7 раз закрываться. он должен 1 раз файл открыть. выбрать из нео данные из соответствующих временных промежутков и закрыть этот файл.
...
Рейтинг: 0 / 0
28.09.2009, 15:16
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220705
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Попробуй добавить после
Код: plaintext
sMonthname = fGetMonthName(iMonthNum)
переменную (которую в начале кода определи/скинь temp = "" )
Код: plaintext
1.
temp = iYear & sMonthname
а перед открытием файла проверяй
Код: plaintext
1.
2.
3.
4.
If iYear & sMonthname <> temp then
      Set wb = Workbooks.Open("\\eu.dir.bunge.com\KEP\Shared Projects\Operations Reports\QC Reports - Crush & Seeds\" & iYear & "\QA Crush " & sMonthname & " " & iYear & ".xls")
      On Error GoTo ErrHandler
End If
...
Рейтинг: 0 / 0
28.09.2009, 15:40
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220761
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
нет, не так...
надо строку
Код: plaintext
1.
      Set wb = Workbooks.Open("\\eu.dir.bunge.com\KEP\Shared Projects\Operations Reports\QC Reports - Crush & Seeds\" & iYear & "\QA Crush " & sMonthname & " " & iYear & ".xls")
вынести перед циклом - это если файл всегда один и тот же, и не бывает перехода на другой месяц/год.
Если месяц/год может меняться, думай, куда впихнуть temp...
...
Рейтинг: 0 / 0
28.09.2009, 15:58
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220767
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
нет, не получается
...
Рейтинг: 0 / 0
28.09.2009, 16:00
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220788
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
temp надо определить аналогично тому, как в цикле, но по первому значению dDate (по dFirstDate), затем в цикле сравнивать новое значение с temp, если совпадает, не открываем, сменилось - открываем и запоминаем новый temp.
Вроде так. В коде описать некогда...
...
Рейтинг: 0 / 0
28.09.2009, 16:08
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220823
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
если б я знала, куда это впихнуть, я б не спрашивала тут. только начинаю кодить ((((((((
...
Рейтинг: 0 / 0
28.09.2009, 16:18
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220881
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Ну так вроде, проверь:

Код: 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.
Private Sub CommandButton1_Click()
    Dim dFirstDate As Date         'объявление переменных
    Dim dLastDate As Date
    Dim dDate As Date
    Dim iDay As Integer
    Dim sMonthname As String
    Dim iMonthNum As Integer
    Dim iYear As Integer
    Dim i As Integer
    Dim wb As Workbook
    Dim OPS As Workbook
    

dFirstDate = ActiveWorkbook.Worksheets("Week Summary").Range("C7").Value 'определяем дату начала недели
dLastDate = ActiveWorkbook.Worksheets("Week Summary").Range("W7").Value  'определяем дату конца недели
 
 'определяем, введена ли начальная и конечная даты недели
 
 If IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("C7")) Then
    MsgBox ("Введите дату начала недели в листе Week Summary")
 ElseIf IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("W7")) Then
    MsgBox ("Введите дату конца недели в листе Week Summary")
  Else
  '=============добавлено===========================
  tempDate = dFirstDate
  temp = DatePart("yyyy", tempDate) & fGetMonthName(DatePart("m", tempDate))
  '=================================================
    For dDate = dFirstDate To dLastDate
      iMonthNum = DatePart("m", dDate)       'определение номера месяца
      iDay = DatePart("d", dDate)            'определение номера дня
      iYear = DatePart("yyyy", dDate)        'определение номера года
      sMonthname = fGetMonthName(iMonthNum)  'вызов функции, которая возвращает название месяца по его номеру
      Application.ScreenUpdating = False
      '=============добавлено===========================
      If iYear & sMonthname <> temp Then
      '===============================================
      'Set wb = Workbooks.Open("C:\Documents and Settings\coslone\Desktop\Разработка\QA Crush " & sMonthname & " " & iYear & ".xls")
      Set wb = Workbooks.Open("\\eu.dir.bunge.com\KEP\Shared Projects\Operations Reports\QC Reports - Crush & Seeds\" & iYear & "\QA Crush " & sMonthname & " " & iYear & ".xls")
        '=============добавлено===========================
        tempDate = dDate
        temp = DatePart("yyyy", tempDate) & fGetMonthName(DatePart("m", tempDate))
        '===============================================
      On Error GoTo ErrHandler
      End If
      
       For i =  1  To wb.Worksheets("Crush").UsedRange.Rows.Count
        If wb.Worksheets.Item("Crush").Cells(i,  4 ).Value = iDay Then
          If wb.Worksheets.Item("Crush").Cells(i,  5 ).Value = ("Д1 Массовая доля влаги,%") Then
             Set OPS = ThisWorkbook
             OPS.Worksheets.Item("Data input Volumes & Quality").Cells( 10 ,  20  + (dDate - dFirstDate)).Value = wb.Worksheets.Item("Crush").Cells(i,  32 ).Value
          End If
        End If
       Next i
     Next dDate
  End If
    
ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
...
Рейтинг: 0 / 0
28.09.2009, 16:35
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220920
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
вообще ничего не открывает и не копирует
...
Рейтинг: 0 / 0
28.09.2009, 16:49
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220930
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Извини, за типами не проследил, правильнее наверное так будет (проверить, сама понимаешь, не на чем):
Код: 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.
Private Sub CommandButton1_Click()
    Dim dFirstDate As Date         'объявление переменных
    Dim dLastDate As Date
    Dim dDate As Date
    Dim iDay As Integer
    Dim sMonthname As String
    Dim iMonthNum As Integer
    Dim iYear As Integer
    Dim i As Integer
    Dim wb As Workbook
    Dim OPS As Workbook
    
    '=============добавлено==================
    Dim tempDate As Date
    Dim temp As String
    '=======================================
    
dFirstDate = ActiveWorkbook.Worksheets("Week Summary").Range("C7").Value 'определяем дату начала недели
dLastDate = ActiveWorkbook.Worksheets("Week Summary").Range("W7").Value  'определяем дату конца недели
 
 'определяем, введена ли начальная и конечная даты недели
 
 If IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("C7")) Then
    MsgBox ("Введите дату начала недели в листе Week Summary")
 ElseIf IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("W7")) Then
    MsgBox ("Введите дату конца недели в листе Week Summary")
  Else
  '=============добавлено===========================
  tempDate = dFirstDate
  temp = CStr(DatePart("yyyy", tempDate)) & fGetMonthName(DatePart("m", tempDate))
  '=================================================
    For dDate = dFirstDate To dLastDate
      iMonthNum = DatePart("m", dDate)       'определение номера месяца
      iDay = DatePart("d", dDate)            'определение номера дня
      iYear = DatePart("yyyy", dDate)        'определение номера года
      sMonthname = fGetMonthName(iMonthNum)  'вызов функции, которая возвращает название месяца по его номеру
      Application.ScreenUpdating = False
      '=============добавлено===========================
      If CStr(iYear) & sMonthname <> temp Then
      '===============================================
      'Set wb = Workbooks.Open("C:\Documents and Settings\coslone\Desktop\Разработка\QA Crush " & sMonthname & " " & iYear & ".xls")
      Set wb = Workbooks.Open("\\eu.dir.bunge.com\KEP\Shared Projects\Operations Reports\QC Reports - Crush & Seeds\" & iYear & "\QA Crush " & sMonthname & " " & iYear & ".xls")
        '=============добавлено===========================
        tempDate = dDate
        temp = CStr(DatePart("yyyy", tempDate)) & fGetMonthName(DatePart("m", tempDate))
        '===============================================
      On Error GoTo ErrHandler
      End If
      
       For i =  1  To wb.Worksheets("Crush").UsedRange.Rows.Count
        If wb.Worksheets.Item("Crush").Cells(i,  4 ).Value = iDay Then
          If wb.Worksheets.Item("Crush").Cells(i,  5 ).Value = ("Д1 Массовая доля влаги,%") Then
             Set OPS = ThisWorkbook
             OPS.Worksheets.Item("Data input Volumes & Quality").Cells( 10 ,  20  + (dDate - dFirstDate)).Value = wb.Worksheets.Item("Crush").Cells(i,  32 ).Value
          End If
        End If
       Next i
     Next dDate
  End If
    
ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
...
Рейтинг: 0 / 0
28.09.2009, 16:53
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36220950
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Если не работает, проверь код в редакторе VBA по F8 - на чём спотыкается. Может вот тут
Код: plaintext
1.
If iYear & sMonthname <> temp Then
нестыковка, просмотри, чему равны эти выражения (подержи мышь над словом на паузе кода, для этого можно stop после этого выражения вписать, если долго по F8 идти, или добавить
Код: plaintext
Msgbox "[" & iYear & sMonthname & "] =?<> [" & temp & "]"
.
...
Рейтинг: 0 / 0
28.09.2009, 17:04
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36221028
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Файл не открывается, потому что эти выражения вначале равны.
Давай так попробуй:
Код: plaintext
1.
2.
3.
4.
5.
6.
     
  '=============добавлено===========================
  tempDate = dFirstDate
  temp = CStr(DatePart("yyyy", tempDate)) & fGetMonthName(DatePart("m", tempDate))
  Set wb = Workbooks.Open("\\eu.dir.bunge.com\KEP\Shared Projects\Operations Reports\QC Reports - Crush & Seeds\" & DatePart("yyyy", tempDate) & "\QA Crush " & fGetMonthName(DatePart("m", tempDate)) & " " & DatePart("yyyy", tempDate) & ".xls")
  '=================================================
А ниже добавь wb.Close :
Код: plaintext
1.
2.
3.
4.
5.
6.
      If CStr(iYear) & sMonthname <> temp Then
      wb.Close
      '===============================================
      'Set wb = Workbooks.Open("C:\Documents and Settings\coslone\Desktop\Šąēšąįīņźą\QA Crush " & sMonthname & " " & iYear & ".xls")
      Set wb = Workbooks.Open("\\eu.dir.bunge.com\KEP\Shared Projects\Operations Reports\QC Reports - Crush & Seeds\" & iYear & "\QA Crush " & sMonthname & " " & iYear & ".xls")
...
Рейтинг: 0 / 0
28.09.2009, 17:35
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36221039
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Весь код в приложении...
...
Рейтинг: 0 / 0
28.09.2009, 17:39
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36222570
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
так не работает. вот что написала сама:

Private Sub CommandButton1_Click()
Dim dFirstDate As Date 'объявление переменных
Dim dLastDate As Date
Dim dDate As Date
Dim iDay As Integer
Dim sMonthname As String
Dim iMonthNum As Integer
Dim iYear As Integer
Dim i As Integer
Dim wb As Workbook
Dim OPS As Workbook
Dim iTempY As Integer
Dim iTempM As Integer



dFirstDate = ActiveWorkbook.Worksheets("Week Summary").Range("C7").Value 'определяем дату начала недели
dLastDate = ActiveWorkbook.Worksheets("Week Summary").Range("W7").Value 'определяем дату конца недели

'определяем, введена ли начальная и конечная даты недели

If IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("C7")) Then
MsgBox ("Введите дату начала недели в листе Week Summary")
ElseIf IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("W7")) Then
MsgBox ("Введите дату конца недели в листе Week Summary")
Else
iTempY = DatePart("yyyy", dFirstDate)
iTempM = DatePart("m", dFirstDate)
For dDate = dFirstDate To dLastDate
iMonthNum = DatePart("m", dDate) 'определение номера месяца
iDay = DatePart("d", dDate) 'определение номера дня
iYear = DatePart("yyyy", dDate) 'определение номера года
sMonthname = fGetMonthName(iMonthNum) 'вызов функции, которая возвращает название месяца по его номеру
Application.ScreenUpdating = False
If dTempY <> iYear Or dTempM <> iMonthNum Then

'Set wb = Workbooks.Open("C:\Documents and Settings\coslone\Desktop\Разработка\QA Crush " & sMonthname & " " & iYear & ".xls")
Set wb = Workbooks.Open("\\eu.dir.bunge.com\KEP\Shared Projects\Operations Reports\QC Reports - Crush & Seeds\" & iYear & "\QA Crush " & sMonthname & " " & iYear & ".xls")
Else



On Error GoTo ErrHandler
For i = 1 To wb.Worksheets("Crush").UsedRange.Rows.Count
If wb.Worksheets.Item("Crush").Cells(i, 4).Value = iDay Then
If wb.Worksheets.Item("Crush").Cells(i, 5).Value = ("Д1 Массовая доля влаги,%") Then
Set OPS = ThisWorkbook
OPS.Worksheets.Item("Data input Volumes & Quality").Cells(10, 20 + (dDate - dFirstDate)).Value = wb.Worksheets.Item("Crush").Cells(i, 32).Value
End If
End If
Next i
End If
Next dDate
End If

ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler




End Sub



как сделать так, чтоб файл не открывался, если условие If dTempY <> iYear Or dTempM <> iMonthNum Then
выполняется, а работать уже с открытым файлом
...
Рейтинг: 0 / 0
29.09.2009, 13:40
| Ответить | Цитировать | Написать  
Помогите с многократными открытиями файла Excel
    #36222818
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Ну в общем это то же, что и я писал...
dTempY, dTempM чему равны? Может это iTempY, iTempM? Тогда и твой код сразу файл не откроет.
как сделать так, чтоб файл не открывался, если условие If dTempY <> iYear Or dTempM <> iMonthNum Then
выполняется - перенеси Else на две строки выше :)
Ну там ещё надо дорабатывать...
А что, код из приложения не работает?
...
Рейтинг: 0 / 0
29.09.2009, 14:50
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите с многократными открытиями файла Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=184&tid=2179012]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 66ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 206ms
total:  358ms
созд. / загр.: 358ms
x
x
Закрыть


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