есть разные ситуации .поэтому нужны уточнения -как скрипту узнать,куда копировать данные ? скрипту нужно как -то указать,с какой книгой работать
есть разные ситуации .поэтому нужны уточнения -как скрипту узнать,куда копировать данные ? скрипту нужно как -то указать,с какой книгой работатьKarataev
Karataev, по имени документа, тоесть два документа будут неизменны. На моём примере может расмотреть это так. закладка BLANK будет отдельным экселовским документом и заклдака DATA будет отдельным экселовским документом заполняя БЛАНК информация должна уходить в ДАТА скрипт файл распазнаёт по имени.
Насколько осуществлимо не имею никапли представления, решил поинтересоваться у много увожаемой аудитории.
Karataev, по имени документа, тоесть два документа будут неизменны. На моём примере может расмотреть это так. закладка BLANK будет отдельным экселовским документом и заклдака DATA будет отдельным экселовским документом заполняя БЛАНК информация должна уходить в ДАТА скрипт файл распазнаёт по имени.
Насколько осуществлимо не имею никапли представления, решил поинтересоваться у много увожаемой аудитории.Kombinator
принцип такой для этого примера книга с листом Blank и книга с листом Data должны находиться в одной папке назначьте книге с листом Data имя Data.xls [vba]
Код
Private Sub KARTA_Click() Dim shData As Worksheet Set shData = Workbooks.Open(ThisWorkbook.Path & "\" & "Data.xls").Worksheets("DATA") 'и дальше, вместо Sheets("DATA") подставляйте shData. например было так rinda = Sheets("DATA").Range("B9").End(xlDown).Row 'сделайте так rinda = shData.Range("B9").End(xlDown).Row End Sub
[/vba]
принцип такой для этого примера книга с листом Blank и книга с листом Data должны находиться в одной папке назначьте книге с листом Data имя Data.xls [vba]
Код
Private Sub KARTA_Click() Dim shData As Worksheet Set shData = Workbooks.Open(ThisWorkbook.Path & "\" & "Data.xls").Worksheets("DATA") 'и дальше, вместо Sheets("DATA") подставляйте shData. например было так rinda = Sheets("DATA").Range("B9").End(xlDown).Row 'сделайте так rinda = shData.Range("B9").End(xlDown).Row End Sub
Kombinator, Вам вообщем-то все, что нужно написали.) Сделайте 2 переменных: 1-я - книга c бланком, 2-я с листом Data.
[vba]
Код
Dim wbData As Worksheet, wbBlank As Worksheet Set wbBlank = ThisWorkbook.Sheets("BLANK") Set wbData = Workbooks.Open(ThisWorkbook.Path & "\" & "DATA.xls").Sheets("DATA")
[/vba] И обращаться к книгам через переменные.
Вот 2 ваших файла (лист DATA вынесла в отдельную книгу).
Kombinator, Вам вообщем-то все, что нужно написали.) Сделайте 2 переменных: 1-я - книга c бланком, 2-я с листом Data.
[vba]
Код
Dim wbData As Worksheet, wbBlank As Worksheet Set wbBlank = ThisWorkbook.Sheets("BLANK") Set wbData = Workbooks.Open(ThisWorkbook.Path & "\" & "DATA.xls").Sheets("DATA")
[/vba] И обращаться к книгам через переменные.
Вот 2 ваших файла (лист DATA вынесла в отдельную книгу).Manyasha
Manyasha, скажите пожалуйста а можно и если да то как нужно дописать макрос чтобы после сохранения он закрывал файл DATA с сохраненной информацией ?
Manyasha, скажите пожалуйста а можно и если да то как нужно дописать макрос чтобы после сохранения он закрывал файл DATA с сохраненной информацией ?Kombinator
Manyasha, Заменил Set wbData = Workbooks.Open(ThisWorkbook.Path & "\" & "DATA.xls").Sheets("DATA") на
C:\Documents and Settings\idolenko\Desktop\DATA
К сожалению пишет ошибку Compile error - Syntax error , боюсь предположить что ему не нравится ?
Private Sub KARTA_Click() Dim wbData As Worksheet, wbBlank As Worksheet Set wbBlank = ThisWorkbook.Sheets("BLANK") Set wbData = Workbooks.Open(C:\Documents and Settings\idolenko\Desktop\DATA & "\" & "DATA.xls").Sheets("DATA")
Manyasha, Заменил Set wbData = Workbooks.Open(ThisWorkbook.Path & "\" & "DATA.xls").Sheets("DATA") на
C:\Documents and Settings\idolenko\Desktop\DATA
К сожалению пишет ошибку Compile error - Syntax error , боюсь предположить что ему не нравится ?
Private Sub KARTA_Click() Dim wbData As Worksheet, wbBlank As Worksheet Set wbBlank = ThisWorkbook.Sheets("BLANK") Set wbData = Workbooks.Open(C:\Documents and Settings\idolenko\Desktop\DATA & "\" & "DATA.xls").Sheets("DATA")Kombinator
Сообщение отредактировал Kombinator - Вторник, 03.02.2015, 20:39